Regra por processo 677 - Antes exclusão de vales gerados colaborador

Esta regra será chamada antes da exclusão de Vales Gerados, a cada colaborador, na rotina de Benefícios do módulo BS.

Recursos utilizados: Estarão disponíveis para consulta os campos NumEmp, TipCol, NumCad, CodVal e TabEve da tabela R162GER.

O campo DatVal também estará disponível, mas demonstrará sempre a Data Final da Competência informada. Isto porque a regra é chamada a cada colaborador, e não a cada dia, não tendo como mostrar adequadamente o DatVal e os demais campos, como QtdVal, VlrVal, StaVal e OriVal.

Ejemplo:

/* Não permite a Exclusão dos Vales de Código 5 Refeição */

Se (R162GER.CodVal = 5)
Inicio
Mensagem(Retorna,"Não é Permitido Excluir os Vales do Tipo Refeição. [Ok]");
Cancela (1);
Fim;

/* Guarda as informações do vale excluído para ser usado na mensagem da RPP 678 - depois da exclusão */

Definir Alfa aNumCad;
Definir Alfa aCodVal;
IntParaAlfa(R162GER.NumCad, aNumCad);
IntParaAlfa(R162GER.CodVal, aCodVal);

Disponível para o módulo: Módulo BS - rotina de Benefícios.