SE ESCOPOSALARIO OU ESCOPOSALARIOCOMPL OU ESCOPORESCISAO OU ESCOPORESCISAOCOMPL ENTAO
   RESULTADO=PARAMVALORREF-VALOREVENTOORIGEM
   PARAMVALORREF=0
FIM

SE ESCOPOSALARIOCOMPL OU ESCOPORESCISAOCOMPL ENTAO
   SE RESULTADO<0 ENTAO
      RESULTADO=0
   FIM
VALOREVENTODIFERENCA=RESULTADO
FIM