Se EscopoFerias ou EscopoFeriasCompl Entao
   Resultado=ParamValorRef-ValorEventoOrigem
   ParamValorRef=0
Fim

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