ADXMXL |
adxmxldonne le nombre d'éléments dans une liste gauche, une boite de picking, ou uneboite de sélection.
Shortint [S]adxmxl
#-- variable stockant le nombre de lignes max de laliste 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 degauche normale
#avec trois "onglets de liste"
Local Inpbox Mask [ZM10]
& Button "FIN"
& With ""
& Coded1901
& 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 5enregistrements
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
adxmxlest initialisée à 250 par le superviseur.
De plus,dans la gestion OBJet, adxmxlest initialisée par :
Ces deux paramètres sont utilisables en dehors du superviseur. Le paramètreLFTBOX est stocké dans la variable globale GNBGAUCHE. Le paramètre NBCHOOSE eststocké dans la variable globale GNBSEL.
Pas d'erreur associée.
AdonixX3(r) L4G |