temp7=ParamValorRef

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

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