ExecutaEmAfastGrupo1=Verdadeiro
ExecutaEmAfastGrupo2=Verdadeiro
Se ContratoEstagiario Entao
      Retornar
   Fim
Se BaseInss13Salario2ParcelaOrigem>limiteINSSFaixa4 Entao
   Retornar
Senao
   Se Base13Salario2Parcela>limiteINSSFaixa4 Entao
      Retornar
   Fim
Fim
Se DataCompetenciaAno<2004 Entao
   Retornar
Fim
 
Se Valor13SalarioComplementar=0 Entao
   Retornar
Fim
 
Se DataAtualMes<>12 Entao
   Retornar
Fim
 
Se Avos13Salario=0 Entao
   Retornar
Fim
 
BaseINSS13Salario=BaseINSS13Salario+(Base13Salario2Parcela/Avos13Salario)*AvosMaterAdocao13
 
Se EscopoRescisaoDom Entao
   Se (ResMesDataRescisao=12) Entao
      Se ((ResMesDataPagto=12) E (ResDiaDataPagto<=20)) OU (ResAnoDataPagto>ResAnoDataRescisao) Entao
         Retornar
      Fim
   Fim
Fim
 
Se Escopo13SalarioP1Dom ou Escopo13SalarioP2Dom ou Escopo13SalarioCPDom Entao
 
   ExecutaEmAfastGrupo1=Verdadeiro
   ExecutaEmAfastGrupo2=Verdadeiro
Fim
 
Se EscopoSalarioDom ou ((AvosMaternidade13<>0) E (DataAtualAno<2001)) OU ((DataAtualAno=2001) E (DataAtualMes<12)) Entao
   Temp1=1
Senao
   Temp1=0
Fim
 
Se EscopoSalario ou EscopoSalarioCompl ou EscopoSalarioDom Entao
   Temp5=Base13Salario2Parcela
   Se BaseInss13Salario2ParcelaOrigem>0 Entao
      Temp5=0
   Fim
   SalarioContr13Salario=BaseINSS13Salario+Temp5+BaseInss13Salario2ParcelaOrigem+BaseINSS13SalarioOrigem
 
   Se SalarioContr13Salario>LimiteInssFaixa4 Entao
      SalarioContr13Salario=LimiteInssFaixa4
   Fim
 
 Se ParamValorRef<>0 Entao
   Resultado = ParamValorRef
   ParamValorRef = 0
   ValorInss13Salario=ValorInss13Salario+Resultado
   Retornar
Fim
 
Se (Escopo13SalarioP2Dom) ou ((AvosMaternidade13<>0)  E (DataAtualAno<2001)) OU ((DataAtualAno=2001) E (DataAtualMes<12)) Entao
   Temp1=1
Senao
   Temp1=0
Fim
 
SalarioContr13Salario=BaseINSS13Salario+     Temp5
 
Se SalarioContr13Salario > LimiteINSSFaixa4 Entao
   SalarioContr13Salario = LimiteINSSFaixa4
Fim
Se DataCompetenciaAno =2020 e DataCompetenciaMes >= 03 ou DataCompetenciaAno>= 2021 Entao
    Se SalarioContr13Salario <= LimiteINSSFaixa1 Entao
        Resultado = ((int(SalarioContr13Salario*AliqINSSFaixa1))/100) -(ValorInss13Salario2Parcela+ValorInss13Salario2ParcelaOrigem+ValorEventoOrigem)
        ParamValorRef = AliqINSSFaixa1
    Senao
        Temp11 = (int(LimiteINSSFaixa1*AliqINSSFaixa1))/100
    Fim
 
    Se (SalarioContr13Salario > LimiteINSSFaixa1) e (SalarioContr13Salario <= LimiteINSSFaixa2) Entao
        Resultado = (Temp11 + (int((SalarioContr13Salario-LimiteINSSFaixa1)*AliqINSSFaixa2)/100)) -(ValorInss13Salario2Parcela+ValorInss13Salario2ParcelaOrigem+ValorEventoOrigem)
        ParamValorRef = AliqINSSFaixa2
    Senao
        Temp12 = (int((LimiteINSSFaixa2-LimiteINSSFaixa1)*AliqINSSFaixa2))/100
    Fim
 
    Se (SalarioContr13Salario > LimiteINSSFaixa2) e (SalarioContr13Salario <= LimiteINSSFaixa3) Entao
        Resultado = (Temp11 + temp12+ (int((SalarioContr13Salario-LimiteINSSFaixa2)*AliqINSSFaixa3)/100)) -(ValorInss13Salario2Parcela+ValorInss13Salario2ParcelaOrigem+ValorEventoOrigem)
        ParamValorRef = AliqINSSFaixa3
    Senao
        Temp13 = (int((LimiteINSSFaixa3-LimiteINSSFaixa2)*AliqINSSFaixa3))/100
    Fim
    Se (SalarioContr13Salario > LimiteINSSFaixa3) Entao
        Resultado = (Temp11 + temp12 + Temp13+ (int((SalarioContr13Salario-LimiteINSSFaixa3)*AliqINSSFaixa4)/100)) -(ValorInss13Salario2Parcela+ValorInss13Salario2ParcelaOrigem+ValorEventoOrigem)
    ParamValorRef = AliqINSSFaixa4
    Fim
Senao
Se SalarioContr13Salario>LimiteInssFaixa4 Entao
   SalarioContr13Salario=LimiteInssFaixa4
   Temp3=AliqInssFaixa4
Senao
   SalarioContr13Salario=SalarioContr13Salario
Fim
 
Se SalarioContr13Salario<=LimiteInssFaixa1 Entao
   Temp3 = AliqInssFaixa1
Fim
 
Se SalarioContr13Salario>LimiteInssFaixa1  e SalarioContr13Salario<=LimiteInssFaixa2 Entao
   Temp3 = AliqInssFaixa2
Fim
 
Se SalarioContr13Salario>LimiteInssFaixa2  e SalarioContr13Salario<=LimiteInssFaixa3 Entao
   Temp3 = AliqInssFaixa3
Fim
 
Se SalarioContr13Salario>LimiteInssFaixa3  e SalarioContr13Salario<=LimiteInssFaixa4 Entao
   Temp3 = AliqInssFaixa4
Fim
 
Se DataCompetenciaAno>=2020 Entao
   Resultado=(int(SalarioContr13Salario*Temp3))/100 - ValorINSS13Salario2Parcela
Senao
   Resultado=Round(SalarioContr13Salario*(Temp3/100)) - ValorINSS13Salario2Parcela
Fim
ParamValorRef = Temp3
Se Temp1  Entao
   Resultado=(Resultado/(Avos13Salario+AvosMaternidade13))*Avos13Salario
Fim
 
Se Resultado<0 Entao
   Resultado = 0
Fim
 
Se EscopoSalarioCompl Entao
   ValorEventoDiferenca = Resultado
Fim
Fim
Fim
 
ValorInss13Salario=ValorInss13Salario+Resultado