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". Par contre la gestion des verrous n'est pas traitée, lorsque l'on ajoute des lignes par picking. L'ajout de la 1ère ligne va bien nous faire rentrer en modification mais sans contrôle. Pour pallier à ce problème, il faut ajouter quelques lignes dans les traitements applicatifs gérant les pickings.

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 !

 $PICKE
# 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
 Home page link

DEB_PICK

 

PICKE 

 Home page link

FIN_PICK