Identificador de Regra

CHA-900AIDLS01

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

A regra deste identificador é executada ao clicar no botão "Processar" da tela de manutenção das reservas dos lotes (F900DLS), possibilitando ao usuário efetuar consistências e impedir que os dados sejam gravados caso as mesmas não sejam satisfeitas.

Tela: Manutenção das reservas dos lotes (F900DLS)

Transação: Não se aplica.

Regra:

Deve estar ligado a uma regra.

Exemplo de regra que evita que o mesmo lote do mesmo componente seja reservado para mais de uma O.P.:

@ variáveis alimentadas pelo ERP @
Definir Alfa VSCodOri;
Definir Numero VNNumOrp;
Definir Numero VNCodEtg;
Definir Alfa VSCodPro;
Definir Alfa VSCodDer;
Definir Alfa VSCodDep;
Definir Alfa VSCodLot;
Definir Numero VNQtdRes;

@ variáveis auxiliares @
Definir Cursor Cur_E900Dls;
Definir Numero xCodEmp;
Definir Alfa MsgErro;


xCodEmp = CodEmp;

Cur_E900Dls.SQL "SELECT CODEMP FROM E900DLS WHERE CODEMP = :xCodEmp AND CODPRO = :VSCodPro AND CODDER = :VSCodDer AND CODLOT = :VSCodLot AND (CODORI <> :VSCodOri OR NUMORP <> :VNNumOrp)";
Cur_E900Dls.AbrirCursor();

Se (Cur_E900Dls.Achou)
inicio
MsgErro = "Lote " + VSCodLot + " do produto/derivação " + VSCodPro + "/" + VSCodDer + " já está sendo usado por alguma outra OP!";
GeraLog(MsgErro);
fim;

Variáveis Disponibilizadas: