List index out of bounds (0) ao emitir nfe

Nonilton Alves · 17 Junho, 2019

Olá, gostaria mais uma vez de ajuda dos nobre colegas...

Estou com a seguinte situação:

Um computador que usa um sistema de nfe eletronica com sistema operacional 64 bits consegue... gerar, validar, assinar, enviar e imprimir a nfe normalmente.

Mas outro computador que usa sistema operacional 32 bits consegue.. gerar... validar... assinar mas na hora de enviar gera o erro;

List index out of bounds (0).

Não sei mais o que fazer... ja fiz de tudo... e não funciona...

alguem pode me dar uma luz.

Aqui o XML gerado.

17.xml

Breno Luiz · 17 Junho, 2019

Poste parte do código, onde faz o envio da NFC-e. Esse erro ocorre, normalmente, quando você cria um "loop", e não consegue acessar um objeto referenciado. Ex: Você tenta acessar a NF-e 5 do componente ACBrNFe, porém no mesmo, só contém 4 notas. Estranho que você disse que em sistema operacional 64 bits funciona, mas mesmo assim poste parte do código para tentar analisar se há algo de errado.

Nonilton Alves · 17 Junho, 2019

Obrigado pela resposta...

Acho que descobrir... o porque do problema...

NotaF := acbrnf1.NotasFiscais.Add;
    if not QrConsulta.FieldByName('CHAVE').IsNull then
      begin
        NotaF.NFe.infNFe.ID := QrConsulta.FieldByName('CHAVE').AsString;
      end;

    NotaF.NFe.Ide.cNF   := codNFe; //aqui se eu informar algum valor, tipo o codigo da NFe ele gera uma exceção: chave numerica invalida. chave não gerada.. Se eu tirar fica gerando chaves diferentes a cada nova tentativa.
    NotaF.NFe.Ide.nNF   := codNFe;
    NotaF.NFe.Ide.natOp := QrConsulta.FieldByName('CFOP').AsString + '-' + Copy(QrConsulta.FieldByName('DESC_CFOP').AsString, 0, 40);

...

Engraçado que sempre funcionou assim... Estou olhando no demo... e tambem funciona parecido com o código em destaque.

Alguem tem uma luz?