Se EscopoRescisao ou EscopoRescisaoCompl ou Escopo13SalarioP2 Entao
 Temp1=SalarioMinimo*ParamValorRef/100
   Resultado=(Temp1)-ValorEventoOrigem
   Se EscopoRescisaoCompl Entao
      Se Resultado<0 Entao
         Resultado=0
      Fim
      ValorEventoDiferenca=Resultado
   Fim
ValorPensao13Salario=ValorPensao13Salario+Resultado
Fim