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 :

 $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

 $FIN_PICK

Actions associées

	DEB_PICK
	PICKE
	FIN_PICK

---