Se ContratoIntermitente=1 entao
Retornar
Fim
Se ((DataAfastamentoDia < 29) E (DataAfastamentoMes = 11) E (DataAfastamentoAno = 1999)) Ou ((DataAfastamentoMes < 11) E (DataAfastamentoAno = 1999)) Ou (DataAfastamentoAno < 1999) Entao
Temp1=DiasSalarioMaternidade
SeNao
Temp9=0
Se ((DataAfastamentoMes >= 9) E (DataAfastamentoAno = 2003)) OU (DataAfastamentoAno > 2003) Entao
Temp9=1
Fim
Se (Temp9=0) E (((DataRequerimentoMes >= 9) E (DataRequerimentoAno = 2003)) OU (DataRequerimentoAno > 2003)) Entao
Se ( (DataCompetenciaMes>=9) E (DataCompetenciaAno=2003) ) OU (DataCompetenciaAno > 2003) Entao
Temp9=1
Fim
Fim
Se Temp9=1 Entao
Temp1=DiasSalarioMaternidade
Se EscopoAdiantamentoDom Entao
Temp1=0
Fim
Fim
Fim
Se EscopoAdtoSocio Entao
Resultado=Round(Salario*(ParamValorRef/100))
AdiantamentoCredito=AdiantamentoCredito+Resultado
Fim
Se Mensalista entao
Se DiasTrabalhadosReduzido<>0 entao
Temp3=Round((((Salario*(1-PercReducaoMP936/100))*(ParamValorRef/100))/DiasDoMes)*(DiasTrabalhadosReduzido))
Temp4=Round(((Salario*(ParamValorRef/100))/DiasDoMes)*((DiasTrabalhados-DiasTrabalhadosReduzido)+Temp1))
senao
Temp4=Round(((Salario*(ParamValorRef/100))/DiasDoMes)*(DiasTrabalhados+Temp1))
Fim
Resultado=Temp3+Temp4
AdiantamentoCredito=AdiantamentoCredito+Temp3+Temp4
Fim
Se Horista entao
Se DiasTrabalhadosReduzido<>0 entao
Se HorasMensaisRais<HrMensaisAnteriorMP936 entao
Temp5=Round((((Salario*HorasMensaisRedMP936)*(ParamValorRef/100))/DiasDoMes)*(DiasTrabalhadosReduzido))
Temp6=Round((((Salario*HrMensaisAnteriorMP936)*(ParamValorRef/100))/DiasDoMes)*((DiasTrabalhados-DiasTrabalhadosReduzido)+Temp1))
Senao
Temp5=Round((((Salario*HrMensaisAnteriorMP936)*(ParamValorRef/100))/DiasDoMes)*(DiasTrabalhadosReduzido))
Temp6=Round((((Salario*HorasMensaisRais)*(ParamValorRef/100))/DiasDoMes)*((DiasTrabalhados-DiasTrabalhadosReduzido)+Temp1))
Fim
Senao
Temp6=Round((((Salario*HorasMensaisRais)*(ParamValorRef/100))/DiasDoMes)*(DiasTrabalhados+Temp1))
Fim
Resultado=Temp5+Temp6
AdiantamentoCredito=AdiantamentoCredito+Temp5+Temp6
Fim
Se Comissionado entao
Resultado=Round((((salario+UltimoValorComissao)*(ParamvalorRef/100))/DiasDoMes)*(DiasTrabalhados+Temp1))
Se UltimoValorComissao=0 e Salario=0 Entao
Resultado=Round((((PisoSalarialSindicato)*(ParamvalorRef/100))/DiasDoMes)*(DiasTrabalhados+Temp1))
Fim
AdiantamentoCredito=Resultado
Fim
Se Tarefeiro entao
Resultado=Round(((UltimoSalarioTarefeiro*(ParamvalorRef/100))/DiasDoMes)*(DiasTrabalhados+Temp1))
AdiantamentoCredito=Resultado
Fim
Se DocenteMensalista entao
Resultado=Round((((Salario*1.05)*(1-(PercReducaoMP936/100)))*(ParamvalorRef/100))/DiasDoMes*(DiasTrabalhados+Temp1))
AdiantamentoCredito=Resultado
Fim
Se DocenteAulista entao
Resultado=Round(((UltimoSalarioAulista*(1-(PercReducaoMP936/100)))*(ParamvalorRef/100))/DiasDoMes*(DiasTrabalhados+Temp1))
AdiantamentoCredito=Resultado
Fim
Se DiasTrabExterior<>0 Entao
BaseIRRFSalario = 0
Fim