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.

Ejemplo:

/* Não gera assinalamento se a data de admissão do colaborador for maior que a data atual do sistema */
/* Demonstra uma mensagem com o código do colaborador para o qual foi gerado o assinalamento. */

Definir alfa ynumcad;
Definir alfa AuxMsg;

Se (vExecucaoRegra = 0)
Inicio
Se (R034FUN.DatAdm > DatSis)
Cancela (1);
Senao
AuxMsg = "Antes de incluir assinalamento. ";
xnumcad = R162ASS.NumCad;
IntParaAlfa(xnumcad, ynumcad);
AuxMsg = AuxMsg + ynumcad;
Mensagem(Retorna, AuxMsg);
Orden;

Se (vExecucaoRegra = 1)
Inicio
AuxMsg = "Assinalamento de Vales Incluído com Sucesso! ";
AuxMsg = AuxMsg + ynumcad;
Mensagem(Retorna,AuxMsg);
Fim;

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