Identificador de Regra

CPR-460CONDG01

Módulo: CPR - Compras.

Finalidade: Consistir as informações dos dados gerais do contrato de compra permitindo bloquear a gravação ou alteração.

São passadas as variáveis dos dados gerais do contrato que deverão ser declaradas , quando necessário o uso, como VSDG + NOME DO CAMPO (E460CTR) e de acordo com o seu tipo (alfa ou número). Estarão disponíveis para serem passados todos os valores dos campos dos dados gerais, sendo necessário apenas declarar a variável na regra associada. Como recomendação, sugere-se declarar apenas as variáveis necessárias para consistência, devido ao fato de que o desempenho pode ser afetado se forem declaradas muitas variáveis.

Tela: F460CTR

Transação: Não se aplica.

Regra:

Definir numero VsDgCodEmp;
Definir numero VsDgCodFil;
Definir numero VsDgNumCtr;
Definir alfa VsDgSitCtr;
Definir Cursor Cur_E460CTR;
Definir alfa aSitCtr;

Inicio
Cur_E460CTR.SQL"SELECT sitctr \
FROM E460CTR \
WHERE CODEMP = :VsDgCodEmp AND \
CODFIL = :VsDgCodFil AND \
numctr = :VsDgNumCtr";
Cur_E460CTR.AbrirCursor();
Se (Cur_E460CTR.Achou)
Inicio
aSitCtr = Cur_E460CTR.SitCtr;
Fim;
Fim;
Cur_E460CTR.FecharCursor();

Se ((aSitCtr = "I") e (VsDgSitCtr = "A"))
Inicio Mensagem(Erro, "A situação do contrato de compra é Inativo na base de dados e está sendo solicitada alteração para Ativo. Essa operação não é permitida");
Fim;

x=y;