LEFTBOX

Leftboxpermet d'afficher une liste de gauche simple contenant les enregistrementsd'une table, et la sélection de plusieurs éléments

Syntaxe

Leftboxcl_table  boite  Liste_champ

Sizeddimension  [Titled titre_boite ] [Atposition ]Asabrev

Paramètres

Exemples

# Treebox s'appuyant sur un masque de départ(exemple 1)

#ouverture de la table (avec clé :yitmref,yuom,yvatrat )
If !clalev([F:ZMT]) : Local File ZMOTTBX [ZMT] :Endif

#affichage de l'écran de base
Local Mask ZMOTSA17 [ZM17]
Local Dlgbox Mask [ZM17]
& Button "PICK1","FIN"
& With "1","F"
& Coded 1901,1902
& Titled "Test Treebox"
& As [ZM17]
Boxact [ZM17]

#saisie principale
$SAISIE
Boxinp [ZM17] Using RESU
Case RESU
When 7,44, 1902 : Goto FIN
When 1901 : Gosub AFFICHEBOX : Disable 1901
When GSTAPIC : Gosub SAIPIC
When Default
Endcase
Goto SAISIE

# affichage des éléments hiérarchisés
$AFFICHEBOX
Treebox [ZMT] SEL
& [F:ZMT]YITMREF Titled "",
& [F:ZMT]YUOM Titled "",
& [F:ZMT]YVATRAT Titled ""
& Sized(160,240)
& Titled "Fenêtre de picking"
& At(40,40)
& As [PIC]
Boxact [PIC]
Fillbox [PIC]
Return

#saisie dans la boîte de picking hiérarchisée
$SAIPIC
Pick [PIC]
Case status
When 37 : Gosub SELECTION : Goto SAIPIC
When 41 : Gosub DESELECTION : Goto SAIPIC
When Default
Endcase
Return

#un élément a été sélectionné => insertion dansle tableau
$SELECTION
Read [ZMT] YIX0 = [F]YITMREF;[F]YUOM;[F]YVATRAT
....
Return

#un élément a été déselectionné => suppressiondans le tableau
$DESELECTION
Read [ZMT] YIX0 = [F]YITMREF;[F]YUOM;[F]YVATRAT
....
Return

$FIN
Boxclr [PIC]
Close Mask [ZM17]
Close File [ZMT]

# Treebox autonome ne s'appuyant pas sur un masque(exemple 2)

#ouverture de la table (avec clé :yitmref,yuom,yvatrat)
If !clalev([F:ZMT]) : Local File ZMOTTBX [ZMT] : Endif

# affichage des éléments hiérarchisés
Treebox [ZMT] SEL
& [F:ZMT]YITMREF Titled "",
& [F:ZMT]YUOM Titled "",
& [F:ZMT]YVATRAT Titled ""
& Sized(160,240)
& Titled "Fenêtre de picking"
& At(40,40)
& As [PIC]
Boxact [PIC]
Fillbox [PIC]

#saisie dans la boîte de picking hiérarchisée
$SAIPIC
Boxinp [PIC] Using RESU
Case RESU
When GSTAPIC
  Repeat
  Pick [PIC]
  Case status
    When 7, 44 : Break
    When 37 : Gosub SELECTION
    When 41 : Gosub DESELECTION
  Endcase
  Until 1=0
When GSTAPKF : Goto FIN
When GSTAESC, GSTAFIN : Goto FIN
Endcase
Goto SAIPIC

 

# Treebox dont les éléments sont des expressions(exemple 3)

Treebox [ZMT] SEL
& "référence :"-[F:ZMT]YITMREF Titled"",
& "unité :"-[F:ZMT]YUOM Titled "",
& "taux :"-[F:ZMT]YVATRAT Titled""
& Sized(160,240)
& Titled "Fenêtre de picking"
& At(40,40)
& As [PIC]

 

Description et commentaires

Leftboxpermet d'afficher une une liste gauche constituée d'enregistrements d'une table, affichés sous forme simple et pour ensuite sélectionner un ou plusieursenregistrements. La sortie de cette boite avec prise en compte des sélectionss'effectue par activation du bouton "Appliquer". La boite de pickingpeut s'appuyer sur un masque (exemple 1) ou bien être autonome (exemple 2). Laboite de picking peut s'afficher avec des enregistrements pré-sélectionnés enayant utiliser l'instruction Setlbox; dans ce cas, ces enregistrements sontréellement considérés comme déjà sélectionnés.

La table sur laquelle opère la sélection doit avoir été ouverte parl'instruction File ou Local File. Le Leftbox peut aussi s'appuyer sur uneabréviation définie lors d'un lien entre plusieurs tables.

Le deuxième paramètre permet d'identifier la boite de picking.

En troisième paramètre, on définit les champs qui seront affichés dans laboite de picking afin d'identifier chaque enregistrement. La Leftboxs'appuie sur la clé primaire pour l'identification des niveaux hiérarchiques etl'ordre d'affichage des enregistrements. Pour cela, il est impératif de définirle même nombre de champ à afficher qu'il y a de champs dans la clé primaire. Ilest possible de déclarer des champs autres que ceux de la clé primaire. Pourchaque champ, il est nécessaire d'exprimer le titre du champ, qui peut être unechaine vide. Ce titre n'est pas utilisé pour une boite de picking hiérarchisée.Vous pouvez concaténer une chaine de caractère au champ (exemple 3).

La clause Sized permet de donner une dimension à la boîte de sélection.

La clause As permet d'associer une abréviation à cette boite de picking quisera ensuite utilisée par pour l'affichage, le remplissage et la prise encompte des sélections ou désélections par les instructions Boxact, Fillbox,Pick.

Les clauses suivantes sont facultatives :

La clause Titled permet de donner un titre à la boîte de picking.

La clause At permet de préciser une position absolue de la boite à l'écran :Il s'agit du coin supérieur gauche de cet OBJet. Par défaut, la boite s'afficheraen haut à gauche de l'écran.

Remarques

Le nombre d'OBJets-écrans pouvant être ouverts simultanément est au pluségal à 25. On appelle OBJet-écran les boîtes ouvertes par Mesbox, Inpbox, Dlgbox, Listbox, Treebox, Pickbox (ycompris quand c’est une liste de gauche).Il faut aussi prendre encompte dans ce nombre, la  "fenêtre de travail" ouverte aulancement d'une application.

La boîte de picking est refermée dès que l'on en sort soit par le bouton"Appliquer", soit par click sur la croix. L'instruction Closen'existe pas pour une Leftbox.

La déclaration d'un OBJet-écran avec une abréviation déjà utilisée par unautre OBJet-écran, referme ce dernier.

Erreurs associées

Mots-clés associés

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

SOMMAIRE