Temp7 = ParamValorRef

Se EscopoFerias ou EscopoFeriasCompl Entao
     RateioEmUsoNesteEventoFerias=RateioFeriasAbono
     Resultado=Temp7
     Temp1=Resultado*(DiasAbonoMesAtual/TotalDiasDoMesAtual)
     Temp2=Resultado*(DiasAbono1MesSubSeq/TotalDiasDo1MesSubSeq)
     Temp3=Resultado*(DiasAbono2MesSubSeq/TotalDiasDo2MesSubSeq)
     Resultado=Temp1+Temp2+Temp3-ValorEventoOrigem
     ValorAbonoPecuniarioPago=ValorAbonoPecuniarioPago+Resultado
Fim

Se EscopoFeriasCompl Entao
   Se Resultado<0 Entao
      Resultado=0
   Fim
   ValorEventoDiferenca=Resultado
Fim