If [M:SCS1]BETFCYCOD=1 : FILGAUSUP(3)+="&[F:STO]LOCCAT<=3" : GPE=1 : Endif
Esempio 2:
Per autorizzare un cambio da un'ubicazione di conto lavoro (permettendo la picking di una riga di stock presente su un'ubicazione di conto lavoro), bisogna scrivere la sequenza seguente:
If [M:SCS1]BETFCYCOD=1 : FILGAUSUP(3)+="&find([F:STO]LOCCAT,1,2,4)" : GPE=1 : Endif
Questo entry point permette di autorizzare un trasferimento inter-sito o di conto lavoro di uno stock di cui non si è proprietari.
Non vi sono transazioni in corso.
Non c'è file traccia aperto.
Questo entry point è posizionato nell'etichetta $PICKE del programma SUBSCSP.
Viene chiamato dopo il picking di una riga di stock e prima del controllo di disponibilità di questo stock.
Permette, se non si è proprietari dello stock selezionato, di considerarlo come disponibile e di conseguenza autorizzarne il trasferimento.
Per fare ciò, occorre scrivere la sequenza seguente: LOWNER = [F:STO]OWNER