list index out of bounds (0) - cancelamento da nfce

[FSoftware]

Olá, bom dia ! Estou tentando cancelar nfce pela chave e estou recebendo sempre o mesmo erro : list index out of bounds (0).

Se alguém puder ajudar. Obrigado.

ACBrNFe.Configuracoes.Geral.ModeloDF := moNFCe;    
ACBrNFe.EventoNFe.Evento.Clear;

    with ACBrNFe.EventoNFe.Evento.New do
    begin
      infEvento.chNFe := sChave;
      infEvento.CNPJ   := CNPJ;
      infEvento.dhEvento := now;
      infEvento.tpEvento := teCancelamento;
      infEvento.detEvento.xJust := Justificativa;
      infEvento.detEvento.nProt := Protocolo;
    end;
      ACBrNFe.EnviarEvento(StrToInt(idLote));

[BigWings]

No programa exemplo do componente também ocorre o problema?

[FSoftware]

Não, realizei o teste no exemplo e esta funcionando normalmente.

[BigWings]

4 minutos atrás, FSoftware disse:

Não, realizei o teste no exemplo e esta funcionando normalmente.

Isso indica que é algo na sua rotina, precisa debugar e encontrar o erro.

Geralmente é quando você tenta acessar um item de uma lista sem testar antes, por exemplo:

ACBrNFe.NotasFiscais[0]  // vai dar o erro se não tiver nada na lista

Trocar para:

if ACBrNFe.NotasFiscais.Count > 0 then
  ACBrNFe.NotasFiscais[0]...

 

[FSoftware]

Entendi. Mas são funções (cancelar e consultar pela chave) que estão a mais de ano em funcionamento e recentemente começou aparecer esse problema, mas vou verificar.

Muito obrigado pela ajuda.

Edited April 25 by FSoftware

[Renato Rubinho]

Veja o onStatusChange, esses dias o próprio BigWings matou a charada de outra pessoa que estava com problema semelhante e era no evento.

[FSoftware]

Resolvido, limpando e carregando novamente as configurações do componente ACBrNFe voltou funcionar.

Mas obrigado Renato pela força. 

[Renato Rubinho]

Obrigado por reportar.

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