Identificador de Regra

CHA-909CBCIB01

Módulo: CHA - Chão de Fábrica.

Finalidade: O objetivo deste identificador é permitir que o código de barras lido na tela F909CIB seja interpretado, retornando para a tela os valores que serão utilizados para fazer o apontamento.

Tela: F909CIB

Transação: Não se aplica.

Regra:

Deve estar ligado a uma regra.

Exemplo:

Definir Alfa ChaACodBar;
Definir Alfa ChaACodOri;
Definir Numero ChaNNumOrp;
Definir Numero ChaNCodEtg;
Definir Numero ChaNSeqRot;
Definir Alfa ChaACodPro;
Definir Alfa ChaACodDer;
Definir Alfa ChaASeqLid;
Definir Numero ChaNQtdRe1;


Definir Cursor Cur_E900Oop;
Definir Data DataZero;

ChaACodOri = ChaACodBar;
ChaASeqLid = ChaACodBar;
CopiarAlfa(ChaACodOri, 1, 2); @ as duas primeiras posições são a Origem @
CopiarAlfa(ChaASeqLid, 3, 2); @ as duas últimas são o sequencial @
xEmpAtu = EmpAtu;
DataZero = 0;
@ vai buscar a última OP gerada para a origem, trazendo também o estágio/seq. roteiro e o o produto/derivação @
Cur_E900Oop.SQL "SELECT E900COP.NUMORP, E900OOP.CODETG, E900OOP.SEQROT, E900QDO.CODPRO, E900QDO.CODDER FROM \
E900COP , E900QDO , E900OOP WHERE \
E900COP.CODEMP = E900QDO.CODEMP AND \
E900COP.CODORI = E900QDO.CODORI AND \
E900COP.NUMORP = E900QDO.NUMORP AND \
E900COP.CODEMP = E900OOP.CODEMP AND \
E900COP.CODORI = E900OOP.CODORI AND \
E900COP.NUMORP = E900OOP.NUMORP AND \
E900COP.CODEMP = :xEmpAtu AND \
E900COP.CODORI = :ChaACodOri AND \
E900COP.SITORP IN ('A','L') AND \
E900OOP.DTRFIM = :DataZero \
ORDER BY E900COP.NUMORP DESC, E900OOP.CODETG, E900OOP.SEQROT ";
Cur_E900Oop.AbrirCursor();
Se (Cur_E900Oop.Achou)
inicio
ChaNNumOrp = Cur_e900OOP.NumOrp;
ChaNCodEtg = Cur_e900OOP.CodEtg;
ChaNSeqRot = Cur_e900OOP.SeqRot;
ChaACodPro = Cur_e900OOP.CodPro;
ChaACodDer = Cur_e900OOP.CodDer;
ChaNQtdRe1 = 1;
fim;
Senao
GeraLog("Código de barras inválido!");

Variáveis Disponibilizadas: