Temp10=SalarioMinimo

Temp12=Temp10*(ParamValorRef/100)

Se EscopoFerias ou EscopoFeriasDom ou EscopoFeriasCompl Entao
   Resultado=Temp12
   Temp1=Resultado*(DiasFeriasMesAtual/TotalDiasDoMesAtual)
   Temp2=Resultado*(DiasFerias1MesSubSeq/TotalDiasDo1MesSubSeq)
   Temp3=Resultado*(DiasFerias2MesSubSeq/TotalDiasDo2MesSubSeq)
   Resultado=Round(Temp1+Temp2+Temp3)-ValorEventoOrigem
   ValorPensaoFerias=ValorPensaoFerias+Resultado
   ParamValorRef=0
Fim

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