Se EscopoRescisaoCompl Entao
Se DesconsiderarCalculoResComp<>0 Entao
 Retornar
  Fim
   Fim
Se EscopoRescisao ou EscopoRescisaoCompl ou EscopoRescisaoDom ou Escopo13SalarioP2 ou Escopo13SalarioP2Dom Entao
Resultado=(ParamValorRef)-ValorEventoOrigem
ParamValorRef=0
ValorPensao13Salario=ValorPensao13Salario+Resultado

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