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