CURRBOX

Currbox permet de connaître le nom de la liste gauche courante.

Classe, type et dimension

Char [S]currbox(12)

Exemples

#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 "OK"
& With ""
& Coded 1901
& Titled "Test Inpbox avec Listbox"
& Listbox [ZMS] GAU1
&   [F:ZMS]YITMREF Titled"Article",
&   [F:ZMS]YITMDES Titled"Intitule"
&   Titled "Par intitulé"
& Listbox [ZMS] GAU2
&   [F:ZMS]YITMREF Titled"Article",
&   [F:ZMS]YBASPRI Titled "Prix"
&   Titled "Par prix de base"
& Listbox [ZMS] GAU3
&   [F:ZMS]YITMREF Titled"Article",
&   [F:ZMS]YUOM Titled "Unité",
&   [F:ZMS]YVATRAT Titled "Taux"
& Titled "Par unité et taux"
& As [INP1]

#affichage de la boîte de saisie
#et remplissage de tous les "onglets deliste"
Boxact [INP1]
Fillbox [INP1] GAU1
Fillbox [INP1] GAU2
Fillbox [INP1] GAU3

$MENU
#saisie dans la boîte
Boxinp [INP1] Using RESU1
#aiguillage selon choix
Case RESU1
  When GSTALFT
  #test : sélection dans la liste GAU1
  Ifcurrbox ="GAU1" : ... : Endif
  When 1901 : Goto FIN
  When Default
Endcase
Goto MENU

$FIN
#fermeture de la boîte principale et du masque
Close Local Inpbox [INP1]
Close Local Mask [ZM10]
# Fermeture de la table
Close File [ZMS]
End

Description et commentaires

currbox est  une  variable système de type Char, qui fixe le nom de la listede gauche courante.

currboxest positionnée par une sélection d'enregistrements par liste de gauche.

Erreurs associées

Mots-clés associés

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

SOMMAIRE