Se ContratoIntermitente=1 Entao
   Retornar
Fim

Se Escopo13SalarioP1 ou Escopo13SalarioP2 ou Escopo13SalarioCP ou Escopo13SalarioP1Dom ou Escopo13SalarioP2Dom ou Escopo13SalarioCPDom Entao
 ExecutaEmAfastGrupo1 = Verdadeiro
   ExecutaEmAfastGrupo2 = Verdadeiro
Fim

Se ParamValorRef<>0 Entao
   Resultado = ParamValorRef
   ParamValorRef=0
   Valor1Parcela13Salario=Round(Valor1Parcela13Salario+Resultado)
   Retornar
Fim

Se ResAdto13SlDeFerias > 0 Entao
   Se Nao PagaResAdto13Na1Parcela Entao
      Retornar
   Fim
Fim

Se Mensalista Entao
   Temp1=Salario
Fim

Se Horista Entao
   Temp1=(Salario*HorasMensaisRAIS)
Fim

Se Comissionado Entao
   Se (Salario=0) e (ValorMediaVarComissao13>0) Entao
      Temp1=ValorMediaVarComissao13
   Fim
   Se ((Salario=0) e (ValorMediaVarComissao13=0)) ou ((Salario+ValorMediaVarComissao13)<PisoSalarialSindicato) Entao
      Temp1=PisoSalarialSindicato
   Fim
   Se ((Salario>0) e (ValorMediaVarComissao13>0)) ou ((Salario>0) e (ValorMediaVarValor13>0) e (ValorMediaVarComissao13<=0)) Entao
      Temp1=Salario+ValorMediaVarComissao13
   Fim
Fim

Se DocenteMensalista Entao
   Temp1=Salario*1.05
Fim

Se DocenteAulista Entao
   Temp1=UltimoSalarioAulista
Fim

Se Tarefeiro Entao
   Temp1=UltimoSalarioTarefeiro
Fim

ValorRemuneracaoParaMediaHora=ValorRemuneracao+Temp1
Temp6=SalarioHora

Se Comissionado Entao
   Temp6=Temp1/HorasMensaisRais
Fim
   Temp7=ValorRemuneracaoParaMediaHora/HorasMensaisRais

Se ConsiderarVlrRemuneracaoCalcMedHE=1 Entao
   Temp8=Round((ValorMediaVarHora13/Temp6)*Temp7)
Senao
   Temp8=ValorMediaVarHora13
Fim

// é para não somar a Média de Comissão como Valor Remuneração
Se Comissionado Entao
   Se (Salario=0) e (ValorMediaVarComissao13>0) Entao
      Temp1=0
   Fim
   Se ((Salario=0) e (ValorMediaVarComissao13=0)) ou ((Salario+ValorMediaVarComissao13)<PisoSalarialSindicato) Entao
      Temp1=0
   Fim
   Se ((Salario>0) e (ValorMediaVarComissao13>0)) ou ((Salario>0) e (ValorMediaVarValor13>=0) e (ValorMediaVarComissao13<=0)) Entao
      Temp1=Salario
   Fim
Fim

Temp2=((Temp1+ValorMediaVarComissao13+Temp8+ValorMediaVarValor13)/12)
Se Comissionado Entao
     Temp10=PisoSalarialSindicato/12
     Se Temp2<=Temp10 Entao
           Temp2=Temp10
     Fim
Fim
Resultado=(Temp2*Avos13Salario)/2
Valor1Parcela13Salario=Round(Valor1Parcela13Salario+Resultado)
ParamValorRef=Avos13Salario/2