Identificador de Regra

GER-085CLIAO01

Módulo: GER - Gerais.

Finalidade: Disponibilizar um ponto onde possam ser feitos processamentos específicos após operações realizadas sobre um registro de cliente (E085CLI). Chamado ao incluir, alterar ou excluir um cliente nas telas em que foi implementado.

Características: Para a regra são passados todos os campos da tabela "E085CLI" com os dados antigos do cliente, 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 pelas variáveis que seguem a nomenclatura "VS" + (Ex.: para o campo "SitCli" a variável se chama "VSSitCli"). 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 está sendo inserido;
b) "ALTERANDO": Indica que o registro está sendo alterado;
c) "EXCLUINDO": Indica que o registro está sendo excluído;

Este identificador é chamado, para algumas telas rotinas, antes da gravação das operações no base de dados, logo qualquer erro que ocorra na regra cancelará a operação.

Tela: F085CAD, F095FOR

Transação: Não se aplica.

Regra:

Definir Alfa VSEstado;
Definir Numero VSCodCli;
Definir Alfa VSSitCli;
Definir Alfa VSNomCli;
Definir Alfa VSTipCli;
Definir Numero VSCepCli;

Definir Alfa ENTER;
CaracterParaAlfa(10, ENTER);

Definir Alfa vCodCliStr;
Definir Alfa vMsg;
Definir Alfa vStrAux1;
Definir Alfa vStrAux2;
IntParaStr(VSCodCli, vCodCliStr);

se (VSEstado = "INSERINDO")
vMsg = "Cliente " + vCodCliStr + " criado!";
senao
se (VSEstado = "ALTERANDO")
vMsg = "Cliente " + vCodCliStr + " alterado!";
senao
se (VSEstado = "EXCLUINDO")
vMsg = "Cliente " + vCodCliStr + " excluído!";

se (VSEstado <> "EXCLUINDO") {
vMsg = vMsg + ENTER +
"Valores antigos X novos:" + ENTER;
Definir Cursor xCur085CLI;
xCur085CLI.SQL "SELECT SITCLI, NOMCLI, TIPCLI, CEPCLI
FROM E085CLI
WHERE
CODCLI = :VSCodCli";
xCur085CLI.AbrirCursor();
vMsg = vMsg + "SitCli: " + VSSitCli + " - " + xCur085CLI.SitCli + ENTER;
vMsg = vMsg + "NomCli: " + VSNomCli + " - " + xCur085CLI.NomCli + ENTER;
vMsg = vMsg + "TipCli: " + VSTipCli + " - " + xCur085CLI.TipCli + ENTER;
IntParaStr(VSCepCli, vStrAux1);
IntParaStr(xCur085CLI.CepCli, vStrAux2);
vMsg = vMsg + "CepCli: " + vStrAux1 + " - " + vStrAux2;
xCur085CLI.FecharCursor();
}

Mensagem(Retorna, vMsg);

Variáveis Disponibilizadas: