If [M:SCS1]BETFCYCOD=1 : FILGAUSUP(3)+="&[F:STO]LOCCAT<=3" : GPE=1 : Endif
Exemplo 2
Para autorizar uma alteração de estatuto de um acondicionamento sub-contrato (em permitindo o "picking" de uma linha de stock apresenta sobre um acondicionamento -subcontrato), falta escrever a sequência seguinte :
If [M:SCS1]BETFCYCOD=1 : FILGAUSUP(3)+="&find([F:STO]LOCCAT,1,2,4)" : GPE=1 : Endif
Este ponto de entrada permite autorizar uma transferência inter-estabelecimento ou sub-contrato de um stock cujo não é proprietário
Não existe transação em curso.
Não existe ficheiro rasto aberto.
Este ponto de entrada está situado na etiqueta $PICKE do tratamento SUBSCSP.
Está chamado após o picking de uma linha de stock e antes o controlo de disponibilidade deste stock.
Permite, se se é proprietário do stock assinalado (pické), de o considerar como disponível e assim de autorizar a sua transferência.
Para isso, falta escrever a sequência seguinte : LOWNER = [F:STO]OWNER