If [M:SCS1]BETFCYCOD=1 : FILGAUSUP(3)+="&[F:STO]LOCCAT<=3" : GPE=1 : Endif
Exemple 2 :
Pour autoriser un changement de statut d'un emplacement sous-traitant (en permettant le picking d'une ligne de stock présente sur un emplacement sous-traitant), il faut écrire la séquence suivante :
If [M:SCS1]BETFCYCOD=1 : FILGAUSUP(3)+="&find([F:STO]LOCCAT,1,2,4)" : GPE=1 : Endif
Ce point d'entrée permet d'autoriser un transfert inter-site ou sous-traitant d'un stock dont on n'est pas propriétaire.
Il n’y a pas de transaction en cours.
Il n’y a pas de fichier trace ouvert.
Ce point d’entrée est situé dans l’étiquette $PICKE du traitement SUBSCSP.
Il est appelé après le picking d'une ligne de stock et avant le contrôle de disponibilité de ce stock.
Il permet, si on est pas propriétaire du stock pické, de le considérer comme disponible et ainsi d'autoriser son transfert.
Pour celà, il faut écrire la séquence suivante : LOWNER = [F:STO]OWNER