Regra por processo 712 - Gerar solicitação coletiva de vales

Esta regra será chamada antes e depois de processar a solicitação de vales para cada colaborador no menu Benefícios > Vales > Coletivos > Solicitações 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: R162SOC.

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 solicitação 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 gerada a solicitação. */

Definir alfa ynumcad;
Definir alfa AuxMsg;

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

Se (vExecucaoRegra = 1)
Inicio
AuxMsg = "Solicitação de Vales Incluída com Sucesso! ";
AuxMsg = AuxMsg + ynumcad;
Mensagem(Retorna,AuxMsg);
Fim;

Disponível para o módulo: BS.