Erro ao carregar XML do evento S-5011

[CarlosSolla]

 

 

Bom dia!

Após a atualização do ACBR referente revisão 16797 , está apresentando o erro "List index out of bounds (0)' ao tentar carregar o xml do evento S-5011.

var S5011: TS5011;

begin
  S5011 := TS5011.Create;
  S5011.Xml := S1299XML5011.AsString;
  ....
end;

verifiquei os fontes e ao que parece o problema é no treco abaixo (linha 778 da unit pcesS5011.pas), onde, após adicionar um item no comando InfoCREstab.add, o InfoCREstab.Count permanece = 0. Não consegui entender o porque, talvez eu esteja fazendo algo errado

          while Leitor.rExtrai(4, 'infoCREstab', '', j + 1) <> '' do
          begin
            infoCS.ideEstab.Items[i].infoCREstab.Add;
            infoCS.ideEstab.Items[i].infoCREstab.Items[j].FtpCR     := leitor.rCampo(tcInt, 'tpCR');
            infoCS.ideEstab.Items[i].infoCREstab.Items[j].FvrCR     := leitor.rCampo(tcDe2, 'vrCR');
            infoCS.ideEstab.Items[i].infoCREstab.Items[j].FvrSuspCR := leitor.rCampo(tcDe2, 'vrSuspCR');
            inc(j);
          end;

Obrigado a todos!

[CarlosSolla]

Boa tarde!

Acredito que consegui resolver o problema, que era na "function TinfoCREstabCollection.New: TinfoCREstabCollectionItem;" (linha 1173), faltava o comando Self.Add(Result);

Unit alterada em anexo.

Abraço a todos!

pcesS5011.pas

[Italo Giurizzato Junior]

Bom dia Carlos,

Muito obrigado pela colaboração, já enviei para o repositório.

[arce]

Atualizei o fonte com a modificação que o @CarlosSolla mencionou e o erro continua ocorrendo, quando chama o método LerXML.

Segue o arquivo de retorno para análise, pq eu não encontrei uma solução.

EventoS5011.xml

[EMBarbosa]

Em 07/04/2019 at 11:41, arce disse:

Atualizei o fonte com a modificação que o @CarlosSolla mencionou e o erro continua ocorrendo, quando chama o método LerXML.

Segue o arquivo de retorno para análise, pq eu não encontrei uma solução.

EventoS5011.xml 43 kB · 0 downloads

Olá Arce,

   Testei no tanto no Lazarus como no Delphi e funcionou corretamente.

   Utilizando o programa de exemplo, fiz as seguintes alterações no evento "onclick" do botão "btnCarregarXML":

procedure TFExemploEsocial.btnCarregarXMLClick(Sender: TObject);
var
  i: Integer;
 S5011: TS5011;
begin
  OpenDialog1.Title := 'Selecione o Evento (Arquivo XML)';
  OpenDialog1.DefaultExt := '*.xml';
  OpenDialog1.Filter :=
    'Arquivos XML (*.xml)|*.xml|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBreSocial1.Configuracoes.Arquivos.PathSalvar;

  if OpenDialog1.Execute then
  begin
    MemoResp.Clear;
    MemoResp.Lines.LoadFromFile(OpenDialog1.FileName);
    S5011 := TS5011.Create;
    S5011.Xml:= MemoResp.Lines.Text;
  end;

  MemoResp.Lines.Clear;
  MemoResp.Lines.Add('XML de Eventos Carregado com Sucesso!');
  MemoResp.Lines.Add(' ');
  ...// as demais linhas deixei não alterei..

Talvez tenha alguma coisa que eu não entendi. Queira verificar, por favor.

[arce]

@EMBarbosaOs testes foram realizados com o XML que enviei? Pq este contém dados referente a Produçaõ Rural S-1250

Editado 9 Abril, 2019 por arce
erro

[EMBarbosa]

30 minutos atrás, arce disse:

@EMBarbosaOs testes foram realizados com o XML que enviei? Pq este contém dados referente a Produçaõ Rural S-1250

Ué... testei com o arquivo que você anexou acima...

[arce]

Agora deu certo, limpei as DCUs e recompilei. Estranho, pq uso o ACBr com os diretórios vinculados individualmente no path do projeto, para realizar customizações.

O importante que funcionou. Muito obrigado

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.