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.

<div class="Code"><p>/* Envia uma mensagem antes e depois da inclusão. */<br></br>/* Testa o acesso a um campo da tabela e faz um tratamento no campo de usuário */<br></br><br></br>Se (vExecucaoRegra=1)<br></br> Mensagem(Retorna, "Depois da Inclusão"); <br></br>Senao<br></br> Inicio<br></br> AlfaParaInt (R018CCU.CodCcu, xCodCcu);<br></br> Se (xCodCcu > 1000)<br></br> Inicio<br></br> Mensagem(Retorna, "C.Custo > 1000, Antes da Inclusão");<br></br> R018CCU.usu_qtdcol = 10;<br></br> Fim<br></br> Senao<br></br> Inicio <br></br> Mensagem(Retorna, "C.Custo &#x3C; 1000, Antes da Inclusão");<br></br> R018CCU.usu_qtdcol = 5;<br></br> Fim;<br></br> Fim;</p></div>

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