(newButton Able Dst Args)
+CuSu
. The new object is initialised with the values used
in a search for an existing one, if any such terms have been entered.
(newButton T Dst '(+CuSu)
'(nr genKey 'nr '+CuSu)
'nm *CuSuNm
'plz *CuSuPlz
'ort *CuSuOrt
'tel *CuSuTel
'mob *CuSuMob )
See also +Rid, +Able, +Close, +Tip, +Button.
(newUrl @)
newUrl
is used to create a new DB object. In this example,
it is used as action code for a button. Pressing the button will create a
new object of the class "+Bkng" and take the user to the page where such an
object can be edited.
.
.
(gui 6 '(+Able +Button) T ,"Book"
'(newUrl '(+Bkng)
'(nr genKey 'nr '+Bkng)
'pos (curr)
'depd (: home obj depd)
'dept (: home obj dept)
'retd (: home obj retd)
'rett (: home obj rett)
'trsp (if (: home obj trf) ,"Yes" ,"No")
'htl (if (: home obj htl) ,"Yes" ,"No") ) )
.
.
(noButton 'Exe)
(note Str Lst)
+NumField
(gui '(+NumField) 10)
See also +TextField and Input fields.