Identificador de Regra

CPR-420QTEST01

Módulo: CPR - Compras.

Finalidade: Manipular Quantidade a Comprar na tela F420OSC (Produtos).

Com a variável CprNQtdCpr é possível, via regra, manipular a quantidade a comprar que originalmente será sugerida pelo sistema.

Já a variável CPRAIndMst indica se devem ser apresentados os registros que ficaram com a Quantidade a Comprar = 0 (zero). Por padrão esta variável está definida como "N- Não". Caso se deseje apresentar os registros, basta efetuar o tratamento via regra passando para a variável o valor "S" (Sim).

Tela: F420OSC

Transação: Não se aplica.

Regra:

Definir Numero CprNCodEmp;
Definir Numero CprNQtdSol;
Definir Numero CprNQtdCpr;
Definir Alfa CprAIndMst;
Definir Alfa CprACodPro;
Definir Alfa CprACodDer;
Definir Alfa CprACodDep;
Definir cursor CurE210Est;

CurE210Est.SQL "SELECT QTDEST FROM E210EST
WHERE CODEMP = :CprNCodEmp AND
CODDEP = :CprACodDep AND
CODPRO = :CprACodPro AND
CODDER = :CprACodDer";

CurE210Est.AbrirCursor();

Se (CurE210Est.Achou)
inicio
se (CurE210Est.QTDEST >= CprNQtdSol)
CprNQtdCpr = CprNQtdSol;
senao
CprNQtdCpr = CurE210Est.QTDEST;

se (CprNQtdCpr = 0)
CprAIndMst = "S";
fim;

CurE210Est.FecharCursor();

Variáveis Disponibilizadas: