Erro de Violação de Acesso - Banco Daycoval Remessa CNAB400 Dados da NFe

[bfbraz]

Estou tentando gerar o CNAB 400 de Remessa para o Banco Daycoval, sem os dados da NFe gera corretamente, as com as NFes dá erro de Violação de acesso na procedure TACBrBancoDaycoval.GerarRegistrosNFe(ACBrTitulo: TACBrTitulo;  aRemessa: TStringList);

 

O erro ocorre nessa linha

wLinha:= wLinha +
                  PadRight(ACBrTitulo.ListaDadosNFe[J].NumNFe,15) +
                  IntToStrZero( round(ACBrTitulo.ListaDadosNFe[J].ValorNFe  * 100 ), 13) +
                  FormatDateTime('ddmmyyyy',ACBrTitulo.ListaDadosNFe[J].EmissaoNFe)      +
                  PadLeft(ACBrTitulo.ListaDadosNFe[J].ChaveNFe, 44, '0');

 

Estou fazendo o inputs dos dados da seguinte fomra:

Var

               lDadosNFe: TACBrDadosNFe;

               BoletoPrint : TACBrTitulo;

Begin

               BoletoPrint := ACBrBoleto.CriarTituloNaLista;

               lDadosNFe := BoletoPrint.CriarNFeNaLista;
               lDadosNFe.
               lDadosNFe.NumNFe     := '123';
               lDadosNFe.ValorNFe   := 500,00;
               lDadosNFe.EmissaoNFe := 26/08/2025;
               lDadosNFe.ChaveNFe   := '99999999999999999999999999999999999999999999';

               BoletoPrint.ListaDadosNFe.Clear;
               BoletoPrint.ListaDadosNFe. Add( lDadosNFe );

End;

 

Quando o ACBrBoleto vai processar as informações nessa Procedure TACBrBancoDaycoval.GerarRegistrosNFe(ACBrTitulo: TACBrTitulo;  aRemessa: TStringList); da o erro na linha mencionada acima

 

Podem me auxiliar como devo proceder?

Os do ACBr foram atualizados essa semana

 

[BigWings]

50 minutos atrás, bfbraz disse:

               BoletoPrint.ListaDadosNFe.Clear;
               BoletoPrint.ListaDadosNFe. Add( lDadosNFe );

Apenas remova essas duas linhas.

[bfbraz]

Funcionou!

Obrigado @BigWings 

[Juliomar Marchetti]

1 hora atrás, bfbraz disse:

         BoletoPrint.ListaDadosNFe.Clear;
               BoletoPrint.ListaDadosNFe. Add( lDadosNFe );

porque tá limpando a lista e adicionand de novo.

tira isso e vai passar

[Juliomar Marchetti]

Obrigado por reportar.

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