//Rateio do Abono RateioEmUsoNesteEventoFerias=RateioFeriasAbono //Percentual informando ao lançar o evento Temp10=SalarioMinimo*(ParamValorRef/100) Se EscopoFerias ou EscopoFeriasCompl Entao Resultado=Temp10 Temp1=Resultado*(DiasAbonoMesAtual/TotalDiasDoMesAtual) Temp2=Resultado*(DiasAbono1MesSubSeq/TotalDiasDo1MesSubSeq) Temp3=Resultado*(DiasAbono2MesSubSeq/TotalDiasDo2MesSubSeq) Resultado=Temp1+Temp2+Temp3 ValorAbonoPecuniarioPago=ValorAbonoPecuniarioPago+Resultado ParamValorRef=0 Fim Se EscopoFeriasCompl Entao Se Resultado<0 Entao Resultado=0 Fim ValorEventoDiferenca=Resultado Fim