Regra por processo 729 - Excluir centro de custo

Esta regra será chamada antes e depois da exclusão de um centro de custo na tela C.Custo que se encontra em Empresas > C.Custo.

Recursos disponíveis: poderá ser utilizada a variável de sistema vExecucaoRegra para identificar em qual momento está executando: a variável retornará 0 se estiver sendo chamada antes de excluir e 1 depois da exclusão.

Tabela Disponível: R018CCU.

Comando Cancel: o usuário poderá impedir o processo utilizando o comando Cancel() ou o comando Mensagem(Erro...) para cancelar.

Ejemplo:

/* Envia uma mensagem antes e depois da exclusão, testando um campo da R018CCU. */

Se (vExecucaoRegra=1)
Mensagem(Retorna, "Depois da Exclusão");
senao
Inicio
AlfaParaInt (R018CCU.CodCcu, xCodCcu);
Se (xCodCcu = 1000)
Mensagem(Retorna, "Você está excluindo o CCU = 1000, Antes da Exclusão");
Senao
Mensagem(Retorna, "Você está excluindo um CCU <> 1000, Antes da Exclusão");
Fim;

Disponível para os módulos: Módulos que possuem o menu Empresas/ C.Custo habilitado.