eSocial S-5011 Erro: List index out of bounds (0)

[João Manoel]

Na unit pcesS5011 ocorre este erro "List index out of bounds (0)" na linha marcada no código abaixo.

Consta abaixo também parte do XML

          j := 0;
          while Leitor.rExtrai(4, 'infoCREstab', '', j + 1) <> '' do
          begin
            infoCS.ideEstab.Items.infoCREstab.Add;
            infoCS.ideEstab.Items.infoCREstab.Items[j].FtpCR := leitor.rCampo(tcInt, 'tpCR'); //Ocorre o erro aqui já no primeiro
            infoCS.ideEstab.Items.infoCREstab.Items[j].FvrCR := leitor.rCampo(tcDe2, 'vrCR');
            infoCS.ideEstab.Items.infoCREstab.Items[j].FvrSuspCR := leitor.rCampo(tcDe2, 'vrSuspCR');
            inc(j);
          end;
 

Parte do XML

 

Aguardo retorno

 

[Italo Giurizzato Junior]

Boa tarde João,

Pelo fragmento de código da unit notei que os seus fontes estão desatualizados.

Favor atualizar todos os fontes de todas as pastas.
Reinstale a suíte ACBr usando o ACBrInstall_Trunk2 deixando marcado a opção para apagar os arquivos antigos.

Refaça os testes.