PICKE

Description

Cette action est appelée juste après la sélection d’un élément dans la listede picking.

Type d'OBJet

Simple, Combiné

Transaction

Non

Utilisation

Elle permet d’effectuer des contrôles afin de vérifier que l’élément estsélectionnable ou pas.
Si l’élément est sélectionnable, cette action permet d’alimenter la partiedroite de l’écran, par les informations liées à l’enregistrementsé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 lagestion OBJet : Lorsque l'on essaie de rentrer en modification sur un enregistrementdéjà utilisé par un autre utilisateur, la petite clé est présente en bas à droite del'écran et on obtient le message d'erreur "Modification en cours sur un autreposte". Par contre la gestion des verrous n'est pas traitée, lorsque l'on ajoute deslignes par picking. L'ajout de la 1ère ligne va bien nous faire rentrer en modificationmais sans contrôle. Pour pallier à ce problème, il faut ajouter quelques lignes dansles traitements applicatifs gérant les pickings.

Ces lignes sont à ajouter dans les sections PICKE etFIN_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émentsfacturation
Return

Actions associées

	DEB_PICK
	PICKE
	FIN_PICK