CURRBOX |
Currbox determines the name of the current QuickSelect list.
[S]currbox(12) Char
#Opening of the work table
If !clalev([F:ZMS]): Local File ZMOTSAI [ZMS]: Endif
#Opening of the work screen
Local Mask ZMOTSA10 [ZM10]
#Definition of the entry box with a normal QuickSelect list
#with three "list tabs"
Local Inpbox Mask [ZM10]
& Button "OK"
& With ""
& Coded 1901
& Titled "Test Inpbox avec Listbox"
& Listbox [ZMS] GAU1
& [F:ZMS]YITMREF Titled
"Product",
& [F:ZMS]YITMDES Titled "Title"
& Titled "By Title"
& Listbox [ZMS] GAU2
& [F:ZMS]YITMREF Titled
"Product",
& [F:ZMS]YBASPRI Titled "Price"
& Titled "By Base Price"
& Listbox [ZMS] GAU3
& [F:ZMS]YITMREF Titled
"Product",
& [F:ZMS]YUOM Titled "Unit",
& [F:ZMS]YVATRAT Titled "Rates"
& Titled "By Unit and Rate"
& As [INP1]
#Display of
the entry box
#and display of all "list tabs"
Boxact [INP1]
Fillbox [INP1] GAU1
Fillbox [INP1] GAU2
Fillbox [INP1] GAU3
$MENU
#Entry in the box
Boxinp [INP1] Using RESU1
#Select according to choice
Case RESU1
When GSTALFT
#test: Selection from the GAU1
list
If currbox =
"GAU1": ... : Endif
When 1901: Goto FIN
When Default
Endcase
Goto MENU
$FIN
#Closing of the main box and of the
screen
Close Local Inpbox [INP1]
Close Local Mask [ZM10]
# Closing of the table
Close File [ZMS]
End
currbox is a system variable of the Char type, which sets the name of the current QuickSelect list.
currbox is set by a record selection by QuickSelect list.
|
Error |
Description |
|
|
|
Treebox - Pickbox - Listbox - Pick - Boxact - Fillbox - Setlbox - Dislbox
CONTENTS
|
|