CURRBOX

Contents

Currbox  determines the name of the current QuickSelect list.

 

Class, Type, and Dimension

[S]currbox(12) Char

 

Examples

#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

 

Description and Comments

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.

 

Associated Errors

Error

Description

 

 

 

Associated Keywords

Treebox  -  Pickbox  -  Listbox  Pick  -  Boxact  -  Fillbox  -  Setlbox  -    Dislbox

 


CONTENTS


Copyright © Sage 1999 - 2007