ExecutaEmAfastGrupo1=Verdadeiro ExecutaEmAfastGrupo2=Verdadeiro Se EscopoSalario ou EscopoSalarioDom ou EscopoSalarioCompl ou EscopoRescisao ou EscopoRescisaoDom ou EscopoRescisaoCompl Entao RESULTADO=PARAMVALORREF-VALOREVENTOORIGEM PARAMVALORREF=0 FIM SE ESCOPOSALARIOCOMPL OU ESCOPORESCISAOCOMPL ENTAO SE RESULTADO<0 ENTAO RESULTADO=0 FIM VALOREVENTODIFERENCA=RESULTADO FIM