adxmxl donne le nombre d'éléments dans une liste gauche, une boite de picking, ou une boite de sélection.
#-- variable stockant le nombre de lignes max de la liste de gauche
Integer ADXMXLTMP
#ouverture de la table de travail
If !clalev([F:ZMS]) : Local File ZMOTSAI [ZMS] : Endif
#ouverture du masque de travail
Local Mask ZMOTSA10 [ZM10]
#définition de la boîte de saisie avec liste de gauche normale
#avec trois "onglets de liste"
Local Inpbox Mask [ZM10]
& Button "FIN"
& With ""
& Coded 1901
& Titled "Test Inpbox avec Listbox"
& Listbox [ZMS] GAU1
& [F:ZMS]YITMREF Titled "Article",
& [F:ZMS]YITMDES Titled "Intitule"
& Titled "Par intitulé"
& As [INP1]
#-- affichage de la boîte de saisie
#-- et remplissage liste gauche avec seulement 5 enregistrements
Boxact [INP1]
ADXMXLTMP = adxmxl
adxmxl = 5
Fillbox [INP1] GAU1
$MENU
#saisie dans la boîte
Boxinp [INP1] Using RESU1
Case RESU1
When 1901 : Goto FIN
When Default
Endcase
Goto MENU
$FIN
adxmxl = ADXMXLTMP
Close Local Inpbox [INP1]
Close Local Mask [ZM10]
Close File [ZMS]
End
adxmxl est une variable système Adonix de la classe [S]. Elle contient le nombre d'enregistrements à afficher :
adxmxl est initialisée à 250 par le superviseur.
De plus,dans la gestion OBJet, adxmxl est initialisée par :
Ces deux paramètres sont utilisables en dehors du superviseur. Le paramètre LFTBOX est stocké dans la variable globale GNBGAUCHE. Le paramètre NBCHOOSE est stocké dans la variable globale GNBSEL.