English
EspañolRegra 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.
Exemplo:
/* 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]");
Cancel(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.
English
Español
