Identificador de Regra

GER-075CDEAO01

Módulo: GER - Gerais.

Finalidade: Disponibilizar um ponto onde possam ser feitos processamentos específicos após operações realizadas sobre um registro de característica de derivação (E075CDE).

Chamado ao incluir, alterar ou excluir uma característica de derivação nas telas em que foi implementado.

Características: Para a regra são passados todos os campos da tabela "E075CDE" com os dados antigos da característica, ou seja, dados de antes da realização da operação. Tais dados servem, principalmente, para verificar as mudanças ocorridas. Nota-se que em uma inserção não existem dados antigos do registro, logo estes campos possuem valor nulo.

Estes dados são passados através de variáveis que seguem a nomenclatura "VS" + (Ex.: para o campo "DesLiv" a variável se chama "VSDesLiv"). A tipagem das variáveis é análoga a dos campos na tabela.

Assim, para se ter acesso aos novos dados do registro deve-se criar um cursor que busque tais dados já gravados no banco de dados. Nota-se que em uma exclusão não existem dados novos do registro, sendo que a busca por estes dados via cursor é ilógica e inviável, já que registro foi excluído.

É disponibilizada a variável "VSEstado" que indica a operação sendo realizada e pode assumir os seguintes valores:
a) "INSERINDO": indica que o registro de característica está sendo inserido;
b) "ALTERANDO": indica que o registro de característica está sendo alterado;
c) "EXCLUINDO": indica que o registro de característica está sendo excluído;

Este identificador é chamado após a operação, porém antes da efetivação das operações no base de dados, logo qualquer erro que ocorra na regra cancelará a operação.

Tela: F075CDE, F075LCA, F075GCP, F075DPO

Transação: Não se aplica.

Regra:

Definir Alfa VSEstado;
Definir Numero VSCodEmp;
Definir Alfa VSCodPro;
Definir Alfa VSCodDer;
Definir Alfa VSCodCte;
Definir Numero VSSeqCcp;
Definir Alfa VSDesLiv;
Definir Alfa VSObsLiv;

Definir Alfa ENTER;
CaracterParaAlfa(10, ENTER);

Definir Alfa vCodEmp;
Definir Alfa vSeqCcp;
Definir Alfa vMsg;
Definir Alfa VStrAux1;
Definir Alfa VStrAux2;

IntParaAlfa(VSCodEmp, vCodEmp);
IntParaAlfa(VSSeqCcp, vSeqCcp);

se (VSEstado = "INSERINDO")
vMsg = "Produto '" + VSCodPro + "', derivação '" + VSCodDer + "', característica '" + VSCodCte + "', seqüência " + vSeqCcp + " criada para a empresa " + vCodEmp + "!";
senao
se (VSEstado = "ALTERANDO")
vMsg = "Produto '" + VSCodPro + "', derivação '" + VSCodDer + "', característica '" + VSCodCte + "', seqüência " + vSeqCcp + " alterada na empresa " + vCodEmp + "!";
senao
se (VSEstado = "EXCLUINDO")
vMsg = "Produto '" + VSCodPro + "', derivação '" + VSCodDer + "', característica '" + VSCodCte + "', seqüência " + vSeqCcp + " excluída da empresa " + vCodEmp + "!";

se (VSEstado <> "EXCLUINDO") {
vMsg = vMsg + ENTER +
"Valores antigos X novos:" + ENTER;
Definir Cursor xCur075Cde;
xCur075Cde.SQL "SELECT DESLIV, OBSLIV
FROM E075CDE
WHERE
CODEMP = :VSCodEmp AND
CODPRO = :VSCodPro AND
CODDER = :VSCodDer AND
CODCTE = :VSCodCte AND
SEQCCP = :VSSeqCcp";
xCur075Cde.AbrirCursor();
vMsg = vMsg + "DesLiv: " + VSDesLiv + " - " + xCur075Cde.DesLiv + ENTER;
vMsg = vMsg + "ObsLiv: " + VSObsLiv + " - " + xCur075Cde.ObsLiv;
xCur075Cde.FecharCursor();
}

Mensagem(Retorna, vMsg);

Variáveis Disponibilizadas: