Identificador de Regra

CTB-640CONLC02

Módulo: CTB - Contabilidade.

Finalidade: Tem a finalidade de realizar a consistência via regra na exclusão dos lançamentos contábeis. Ao clicar no botão "Excluir" das telas de lançamento, a rotina executa a regra relacionada a este identificador e pelas variáveis de retorno valida se deve ou não permitir suaa exclusão.

Características: Quando não for permitido a exclusão do lançamento, têm-se a opção de retornar também a mensagem que será apresentada ao usuário.

Tela: Lançamentos contábeis

Transação: Não se aplica.

Regra:

@- Dados do Lançamento -@
Definir Numero VSCodEmp;
Definir Numero VSCodFil;
Definir Numero VSNumLot;
Definir Numero VSNumLct;
Definir Numero VSDatLct;
Definir Numero VSCtaDeb;
Definir Numero VSCtaCre;
Definir Numero VSVlrLct;
Definir Numero VSCodHpd;
Definir Alfa VSCplLct;
Definir Numero VSCgcCpf;
@- Variáveis de Retorno do Identificador("CTB" - "640CONLC02") -@
Definir Alfa VSExcluirLct;
Definir Alfa VSMsgCon;

@- Verificar se o Lançamento pode ser excluído -@
VSMsgCon = "";
VSExcluirLct = "S";

ConverteParaMaiusculo(VSCplLct);
Se ((VSCgcCpf = 04731184916) OU (VSCplLct = "NICOLETTI")) {
VSExcluirLct = "N";
VSMsgCon = "Este lançamento pertence ao Nicoletti e não deve ser Excluído!";
}

Se (VSCodFil = 5) {
VSExcluirLct = "N";
VSMsgCon = "Este lançamento pertence a Filial 5 e não deve ser Excluído!";
}

Variáveis Disponibilizadas: