Se EscopoRescisaoCompl Entao Se DesconsiderarCalculoResComp<>0 Entao Retornar Fim Fim Se PercReducaoMP936<> 0 e HorasMensaisRedMP936 <> 0 Entao Temp7= HorasSemanaisRedMP936 Temp8= HorasMensaisRedMP936 Senao Temp7= QtdeHsSemanaCentesimais Temp8= HorasMensaisRais Fim // Para não executar no Mês/Ano da Data da Celebração Se (EscopoSalarioCompl=1) e (DesconsiderarEventoNoMesDataCelebracao=1) Entao Retornar Fim Se DiasTrabalhadosReduzido<>0 e HorasSemanaisRedMP936 <> 0 Entao Temp5 = Temp8/(1-(PercReducaoMP936/100)) Senao Temp5 = Temp8 Fim Se Mensalista Entao Temp1=Salario Fim Se Horista Entao Temp1=Salario*Temp8 Fim Se EscopoSalario ou EscopoSalarioCompl ou EscopoSalarioDom ou EscopoRescisao ou EscopoRescisaoCompl ou EscopoRescisaoDom Entao Se ConsiderarHorasCentesimais=1 Entao HorasCentesimais=Verdadeiro Temp1=((Temp1/Temp5)*ParamValorRef)-ValorEventoOrigem Fim Se ConsiderarHorasCentesimais=0 Entao Temp1=((Temp1/Temp5)*ParamValorRef)-ValorEventoOrigem Fim Resultado=Temp1 Fim Se EscopoRescisaoCompl ou EscopoSalarioCompl Entao Se Resultado<0 Entao Resultado=0 Fim ValorEventoDiferenca=Resultado Se ContratoVerdeAmarelo Entao ValorEventoDiferenca = 0 Fim Se ContratoVerdeAmarelo Entao ValorEventoDiferenca = 0 Fim Fim