// evento criado sob responsabilidade da empresa                                                                                                                  
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 ou Horista ou DocenteMensalista Entao
	Se Mensalista Entao
	   Temp2 = SalarioReduzido*1.40
	   Temp3 = Salario* 1.40
	Fim

	Se DocenteMensalista Entao
	   Temp2 = (SalarioReduzido * 1.05)*1.40            
	   Temp3 = (Salario * 1.05)*1.40                
	Fim


	Se Horista Entao
	   Temp2 =( (Salario)* HorasMensaisRedMP936 )*1.40
	   Temp3 = ( (Salario)* HrMensaisAnteriorMP936) * 1.40
		Se HorasMensaisRedMP936= 0 Entao
		   Temp3 = Salario * ((HorasMensaisRais/30)*diasdomes)
		Fim
	Fim


	Se ((DiasDoMes=31) E (DiasTrabalhadosReduzido<>0)) Entao
	   DiasTrabalhadosReduzido = DiasTrabalhadosReduzido - 1
	   Temp4 = DiasTrabalhados -1
	SeNao
	   DiasTrabalhadosReduzido = DiasTrabalhadosReduzido
	   Temp4 = DiasTrabalhados
	Fim
       //@ Temp4 Adiciona os dias de Maternidade ao temp4 antes de fazer a verificação
       Temp4 = Temp4 + Temp1
	Se Temp4>DiasDoMes Entao
	   Temp4 = DiasDoMes
	Fim
    Se DiasDoMes < DiasTrabalhadosReduzido Entao
       DiasTrabalhadosReduzido = DiasDoMes
    Fim
	Se (DataAdmissaoMes = DataCompetenciaMes) E (DataAdmissaoAno = DataCompetenciaAno) Entao
   Resultado = (((Temp2/diasdoMes)*DiasTrabalhadosReduzido) + (Temp3/DiasdoMEs*((Temp4)-DiasTrabalhadosReduzido))) * ParamValorRef/100
Senao
  Resultado = (((Temp2/DiasDoMes)*DiasTrabalhadosReduzido) + (Temp3/DiasDoMes*((Temp4)-DiasTrabalhadosReduzido))) * ParamValorRef/100
Fim
AdiantamentoCredito=Resultado
	Retornar
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 DocenteAulista entao
   Resultado=Round(((UltimoSalarioAulista*(1-(PercReducaoMP936/100)))*(ParamvalorRef/100))/DiasDoMes*(DiasTrabalhados+Temp1))
   AdiantamentoCredito=Resultado
Fim

Se DiasTrabExterior<>0 Entao
   BaseIRRFSalario = 0
Fim