Gestão de Pessoas - Manual do Usuário > Customizações > Regras > Regras por Processo > Regra por processo 712 - Gerar solicitação coletiva de vales

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.

Exemplo:

/* 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)
   Cancel(1);
Senao
   AuxMsg = "Antes de incluir solicitação. ";
   xnumcad = R162SOC.NumCad;
   IntParaAlfa(xnumcad, ynumcad);
   AuxMsg = AuxMsg + ynumcad;
   Mensagem(Retorna, AuxMsg);
Fim;

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.