PICKE
Description
Cette action est appelée juste après la sélection d’un élément dans la liste de picking.
Type d'OBJet
Simple, Combiné
Transaction
Non
Utilisation
Elle permet d’effectuer des contrôles afin de vérifier que l’élément est
sélectionnable ou pas.
Si l’élément est sélectionnable, cette action permet d’alimenter la partie
droite de l’écran, par les informations liées à l’enregistrement
sélectionné.
S'il ne l'est pas, on le signifie au superviseur en positionnant OK=0.
Exemple
La gestion des verrous est automatiquement faite par la
gestion OBJet : Lorsque l'on essaie de rentrer en modification sur un enregistrement
déjà utilisé par un autre utilisateur, la petite clé est présente en bas à droite de
l'écran et on obtient le message d'erreur "Modification en cours sur un autre
poste".
Ces lignes sont à ajouter dans les sections PICKE et
FIN_PICKE comme indiqué dans l'exemple ci-dessous :
Nota : Le gosub AVANT_MOD est facultatif, il est possible que cette section n'existe pas !
# Nouvel élément pické #
If !find(currbox,GBOXPO1,GBOXPT1,GBOXPI1,GBOXPN1) Return : Endif
If REP=""
If !CLECUR | !VERROU | !ACTMOD | GCONSULT OK=0 : Return : Endif
Gosub AVANT_MOD : If !OK Return : Endif
Endif
Case currbox
When GBOXPO1 : Gosub PICKE_CDE From SUBPIHD
When GBOXPT1 : Gosub PICKE_RCP From SUBPIHD
When GBOXPI1 : Gosub PICKE_FAC2 From SUBPIHD
When GBOXPN1 : Gosub PICKE_RET From SUBPIHD
Endcase
Return
$FIN_PICK
# Fin picking #
If REP=""
If !VERROU
GMESSAGE=mess(10,100,1) : GERR=1 : OK=0 : Return
Elsif !CLECUR | !ACTMOD | GCONSULT
GMESSAGE=mess(9,123,1) : GERR=1 : OK=0 : Return
Endif
Endif
Affzo [PIH3]1-99
Gosub TEST_VALID From SUBPIH : # Màj bases taxables et calcul taxes éléments
facturation
Return
Actions associées
 |
|
PICKE |
|
| |
|
