Temp1=(Evento0239+EVENTO0238+Evento0003) Temp2=Temp1*(ParamValorRef/100) Se EscopoSalario ou EscopoSalarioCompl ou EscopoRescisao ou EscopoRescisaoCompl Entao // Resultado=((Temp2/30)*DiasTrabalhoIntermitente)-ValorEventoOrigem Resultado=Temp2-ValorEventoOrigem Fim ValorSalarioPago=ValorSalarioPago+Resultado ValorRemuneracao=ValorRemuneracao+Resultado RemuneracaoIntegral=RemuneracaoIntegral+Resultado BaseContratoIntermitente=BaseContratoIntermitente+Resultado Se EscopoSalarioCompl ou EscopoRescisaoCompl Entao Se Resultado<0 Entao Resultado=0 Fim ValorEventoDiferenca=Resultado Fim