Regra por processo 714 - Gerar assinalamento coletivo de vales

Esta regra será chamada antes e depois de processar o assinalamento de vales para cada colaborador no menu Benefícios > Vales > Coletivos > Assinalamentos do módulo BS.

Recursos utilizados: 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: R162ASS.

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

<div class="Code"><p>/* Não gera assinalamento se a data de admissão do colaborador for maior que a data atual do sistema */<br></br>/* Demonstra uma mensagem com o código do colaborador para o qual foi gerado o assinalamento. */</p><p>Definir alfa ynumcad;<br></br>Definir alfa AuxMsg;<br></br><br></br>Se (vExecucaoRegra = 0)<br></br> Inicio<br></br> Se (R034FUN.DatAdm > DatSis)<br></br> Cancel(1);<br></br> Senao<br></br> AuxMsg = "Antes de incluir assinalamento. "; <br></br> xnumcad = R162ASS.NumCad;<br></br> IntParaAlfa(xnumcad, ynumcad);<br></br> AuxMsg = AuxMsg + ynumcad;<br></br> Mensagem(Retorna, AuxMsg);<br></br> Fim;<br></br><br></br>Se (vExecucaoRegra = 1) <br></br> Inicio<br></br> AuxMsg = "Assinalamento de Vales Incluído com Sucesso! ";<br></br> AuxMsg = AuxMsg + ynumcad;<br></br> Mensagem(Retorna,AuxMsg);<br></br> Fim;</p></div>

Disponível para o módulo: Módulo BS.