Se ContratoIntermitente=1 entao

Se EscopoRescisaoCompl Entao
   Se DesconsiderarCalculoResComp <> 0 Entao
      Retornar
   Fim
Fim

// Para não executar no Mês/Ano da Data da Celebração
Se (EscopoSalarioCompl=1) e (DesconsiderarEventoNoMesDataCelebracao=1) Entao
   Retornar
Fim

Se EscopoSalario ou EscopoSalarioCompl ou EscopoRescisao ou EscopoRescisaoCompl ou EscopoSalarioDom ou EscopoRescisaoDom Entao
   Se Mensalista Entao
      Resultado=((((Evento0238+Evento0003)*(PercentualValeTransporte/100))/30)*DiasTrabalhoIntermitente)-ValorEventoOrigem
   Fim
   Se Horista Entao
      Resultado=(((Evento0239+Evento0003)*(PercentualValeTransporte/100)))-ValorEventoOrigem
   Fim
   ParamValorRef=PercentualValeTransporte
Fim

Se EscopoRescisaoCompl ou EscopoSalarioCompl Entao
   Se Resultado<0 Entao
      Resultado=0
   Fim
   ValorEventoDiferenca=Resultado
Fim