Setlbox
Setlbox permet d'initialiser une sélection dans une liste de gauche.
Setlbox permet d'initialiser une ou plusieurs sélections, ou de re-sélectionner automatiquement un enregistrement suite à une dé-sélection non autorisée.
Syntaxe
Setlboxabrev
Paramètres
Elément | Description | Restrictions |
abrev | Abréviation attribuée à cette boite de picking |
|
Exemples
# initialisation : pré-sélection du 1er et dernier enregistrement
# affichage des éléments hiérarchisés
$AFFICHEBOX
Treebox [ZMT] SEL
& [F:ZMT]YITMREF Titled "",
& [F:ZMT]YUOM Titled "",
& [F:ZMT]YITMDES Titled ""
& Sized(160,240)
& Titled "Fenêtre de picking"
& At(40,40)
& As [PIC]
Boxact [PIC]
Fillbox [PIC]
# Pré-sélection du 1er et dernier enregistrement
Read [ZMT] First
Setlbox [PIC]
Read [ZMT] Last
Setlbox [PIC]
Return
# reposionnement d'une sélection ou dé-sélection suite à contrôles
$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
# dé-sélection si sélection impossible suite à contrôle
$SELECTION
If ...
Dislbox [PIC]
Endif
Return
# sélection si dé-sélection impossible suite à contrôle
$DESELECTION
If ...
Setlbox [PIC]
Endif
Return
Description
Setlbox permet d'initialiser une sélection dans une liste de gauche.
Setlbox permet d'initialiser une ou plusieurs sélections,ou de re-sélectionner automatiquement un enregistrement suite à une dé-sélection non autorisée.
Le traitement fonctionnel associé devra être déclenché manuellement car la sélection ou désélection ne sera pas prise en compte par l'instruction Pick.