Histórico da Página

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 Transportedos dados contidos em aCols, na rotina de Pré-Abono.
Eventos:	Cálculo do vale transporte.Cadastro do Pré-abono
Programa Fonte:	GPEM050PONA350.PRX

User Function GPM050DPROUSER FUNCTION PN350ACOLS()

/*

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

Local aRet := {}

aRet := PARAMIXB[1]
aRet[1,4] := 23.58

RETURN aRet

Return