Não existe NFe com a chave ["Chave NF-e"] carregada

[Calmeida79]

Bom dia amigos,

Ao tentar fazer uma carta de correção recebo o erro "Não existe NFe com a chave [ Chave da nota aqui ] carregada"

Ao fechar  o meu sistema e abrir novamente na maioria das veze a carta é transmitida normalmente. Parece que o sistema fica com alguma coisa presa na memória.

Meu código está assim:

NFE.EventoNFe.Evento.Clear;

with NFE.EventoNFe.Evento.New do
begin
      infEvento.chNFe                := Chave;
      infEvento.cOrgao               := CodOrgao;
      infEvento.CNPJ                  := NrCNPJ;
      Evento                                := Now;
      infEvento.dhEvento            := Evento;
      infEvento.tpEvento             := teCCe;
      infEvento.nSeqEvento        := Sequencia;
      infEvento.versaoEvento      := '4.00';
      infEvento.detEvento.descEvento  := 'Carta de Correção';
      infEvento.detEvento.xCorrecao    := quotedstr(RetirarCaractere(ADescCorrecao,[#10,#13,#39]));
      infEvento.detEvento.xCondUso    := EmptyStr;
end;
idLote := '1';

NFE.EnviarEvento(strtoint(idLote));     <- O erro acontece aqui

if not (NFE.WebServices.EnvEvento.cStat in [128,135,136]) then
   Exit;

NFE.EventoNFe.GerarXML;
NFE.EventoNFe.Gerador.SalvarArquivo(EnderecoDiretorioXML + CaminhoXML);

 

[Juliomar Marchetti]

Mandou limpar as notas antes?

[Calmeida79]

48 minutos atrás, Juliomar Marchetti disse:

Mandou limpar as notas antes?

Qual seria o comando? No meu código esta assim como postei... Alias ele segue o exemplo do ACBR...

[Juliomar Marchetti]

NFE.NotasFiscais.Clear;

[Calmeida79]

4 horas atrás, Juliomar Marchetti disse:

NFE.NotasFiscais.Clear;

Coloco antes do NFE.EventoNFe.Evento.Clear; ?

[Juliomar Marchetti]

tanto faz.

[Calmeida79]

Obrigado. Apliquei a linha de código e agora coloquei para testar. Vou aguardar os resultados.