Correção no PCNLeitor

[Rodrigo - Digibyte]

Ao ler o retorno do evento s2200, tag intervalo, ocorre um erro pois a mesma está em um nivel não previsto. Segue correção:

ORIGINAL:

constructor TLeitor.Create;
var
  i: integer;
begin
  inherited Create;
  FNivel := TStringList.Create;
  for i := 1 to 10 do
    FNivel.add('');
end;

 

ALTERADO:

constructor TLeitor.Create;
var
  i: integer;
begin
  inherited Create;
  FNivel := TStringList.Create;
  for i := 1 to 11 do
    FNivel.add('');
end;

pcnLeitor.pas

Edited March 8, 2018 by Digibyte

[Italo Giurizzato Junior]

Bom dia,

Por Favor qual é o erro que ocorre e em qual unit e linha da mesma?

Desde já muito obrigado.

[Rodrigo - Digibyte]

A unit PCESRetConsultaLote, linha 469, que é o laço horário/intervalo, nivel 10, chama a unit PCNLeitor, função RExtrai

O erro ocorre na unit PCNLeitor linha 175 (não existente na StringList a posição para o nível 10)

 

[Italo Giurizzato Junior]

Ok, mais qual é a mensagem exata do erro?

[Rodrigo - Digibyte]

Então, é que está dentro de um try except mas pegamos os erros com um breakpoint ...

Edited March 8, 2018 by Digibyte

[Italo Giurizzato Junior]

Bom dia,

Muito obrigado pelo retorno.

Tudo indica que a sua correção é válida, vamos analisar e estando tudo OK, enviaremos para o repositório.