Jump to content

dev botao

Problema inclusão de intervalos na S-1050


CarlosSolla
Go to solution Solved by BigWings,
  • Este tópico foi criado há 2247 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

Bom dia a todos!

Estava incluindo algumas tabelas de horários com 2 intervalos , e estava dando o seguinte erro:

First chance exception at $750F08F2. Exception class EArgumentOutOfRangeException with message 'Argument out of range'. 

Como não detectei nenhum problema na carga dos eventos, tentei alterar a procedure pcesS1050.TEvtTabHorTur.GerarHorarioIntervalo , conforme abaixo, e parou de dar o erro. Alguém já passou por isso, ou eu fiz alguma coisa errada?

procedure TEvtTabHorTur.GerarHorarioIntervalo;
var
  i: Integer;
  objHorarioIntervalo: THorarioIntervaloCollectionItem;
begin
  if InfoHorContratual.dadosHorContratual.horarioIntervalo.Count > 99 then
    Gerador.wAlerta('', 'horarioIntervalo', 'Lista de Horário de Intervalo', ERR_MSG_MAIOR_MAXIMO + '99');

  for i := 0 to InfoHorContratual.dadosHorContratual.horarioIntervalo.Count - 1 do
  begin
    objHorarioIntervalo := InfoHorContratual.dadosHorContratual.horarioIntervalo.Items[i];
    //try
      Gerador.wGrupo('horarioIntervalo');

      Gerador.wCampo(tcStr, '', 'tpInterv',  1, 1, 1, eSTpIntervaloToStr(objHorarioIntervalo.tpInterv));
      Gerador.wCampo(tcStr, '', 'durInterv', 1, 3, 1, objHorarioIntervalo.durInterv);

      if (objHorarioIntervalo.tpInterv = tinHorarioFixo) then
      begin
        Gerador.wCampo(tcStr, '', 'iniInterv',  4, 4, 1, objHorarioIntervalo.iniInterv);
        Gerador.wCampo(tcStr, '', 'termInterv', 4, 4, 1, objHorarioIntervalo.termInterv);
      end;

      Gerador.wGrupo('/horarioIntervalo');
    //finally
      //FreeAndNil(objHorarioIntervalo);
    //end;
  end;

  for i := InfoHorContratual.dadosHorContratual.horarioIntervalo.Count - 1 downto 0 do
  begin
    objHorarioIntervalo := InfoHorContratual.dadosHorContratual.horarioIntervalo.Items[i];
    FreeAndNil(objHorarioIntervalo);
  end;

end;

 

Link to comment
Share on other sites

  • Consultores

Carlos,

Obrigado, vamos analisar, caso esteja tudo OK, vamos enviar para o repositório.

Desde já muito obrigado pela colaboração.

 

  • Thanks 1
Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link to comment
Share on other sites

  • Moderadores
  • Solution
1 hora atrás, CarlosSolla disse:

Estava incluindo algumas tabelas de horários com 2 intervalos , e estava dando o seguinte erro:

First chance exception at $750F08F2. Exception class EArgumentOutOfRangeException with message 'Argument out of range'. 

Como não detectei nenhum problema na carga dos eventos, tentei alterar a procedure pcesS1050.TEvtTabHorTur.GerarHorarioIntervalo , conforme abaixo, e parou de dar o erro. Alguém já passou por isso, ou eu fiz alguma coisa errada? 

O FreeAndNil é desnecessário nessa rotina. Os itens da lista já são destruídos pelo Owner dela.

Correção enviada ao repositório:

03/04/2018
-- pcesS1050 --
[-] Correção de erro "Argument out of range" na geração do evento S-1050.
    https://www.projetoacbr.com.br/forum/topic/42490-problema-inclus%C3%A3o-de-intervalos-na-s-1050/
  Por: CarlosSolla / BigWings

 

 

  • Thanks 2
Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link to comment
Share on other sites

  • Este tópico foi criado há 2247 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.