Árvore de páginas

Ponto de Entrada

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