Regra por processo 727 - Inserir centro de custo
Esta regra será chamada antes e depois da inclusã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 inserir e 1 depois da inserçã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.
Exemplo:
/* Envia uma mensagem antes e depois da
inclusão. */
/* Testa o acesso a um campo da tabela e faz um tratamento no campo de usuário
*/
Se (vExecucaoRegra=1)
Mensagem(Retorna, "Depois da Inclusão");
Senao
Inicio
AlfaParaInt (R018CCU.CodCcu, xCodCcu);
Se (xCodCcu > 1000)
Inicio
Mensagem(Retorna, "C.Custo > 1000, Antes da Inclusão");
R018CCU.usu_qtdcol = 10;
Fim
Senao
Inicio
Mensagem(Retorna, "C.Custo < 1000, Antes da Inclusão");
R018CCU.usu_qtdcol = 5;
Fim;
Fim;
Disponível para os módulos: Módulos que possuem o menu Empresas/ C.Custo habilitado.