Erro ao consultar protocolo REINF

[thi4182]

Ao consultar um protocolo em que a resposta do lote é "2 - Lote processado com sucesso - Todos eventos processados com sucesso." a unit pcnReinfR9005.pas dá o erro "Project *.exe raised exception class EListError with message 'List index out of bounds (0)'."

Identifiquei que o erro é na leitura da tag "totApurMen" que não é feito o .new antes de preencher ela.

Coloquei em anexo ela ajustada, onde o erro não ocorre mais.

Ajustei as outras tags semelhantes que estavam do mesmo jeito, mas as demais eu não consegui testar, por não ter exemplos.

 

Obrigado

pcnReinfR9005.pas

[magistech]

Testei o código acima e  o erro relacionado  a "Project *.exe raised exception class EListError with message 'List index out of bounds (0)'."  não ocorre mais, porem não esta retornando o recibo para os novos registro da família 4000.

[Diego Foliene]

Muito obrigado pela contribuição.
A mesma foi enviada ao SVN na Rev-28497.
Queira, por favor, atualizar seus fontes, reinstalar o ACBr para realizar novos testes e reportar qualquer problema.