Descrição: | GPM050DPRO - Dias Vale Transporte |
Observações: | Ponto de entrada que permite a alteração da tabela SR0 antes de efetuar o cálculo do Vale Transporte |
Eventos: | Cálculo do vale transporte |
Programa Fonte: | GPEM050.PRX |
User Function GPM050DPRO()
/*
Para os funcionarios do sindicato 01, sempre calcula 24 dias de vale transporte
*/
If SRA->RA_SINDICA == "01"
If SR0->(Reclock("SR0", .F.) )
SR0->R0_DIASPRO := 24
MsUnlock("SR0")
EndIf
EndIf
Return