Acumulando NFes impressão (Não limpa o componente)

[Link Automação]

Bom dia pessoal!
Estou com um problema; 
Uso o seguinte código para imprimir NFe:

if (Sender = btnImprimirDANFE) then
    begin
      ArqXML := CtrlNFe.LocalizaXML(dmNFe.zq_Reg50Chave_Acesso.AsString);
      DmComps.ACBrNFe1.NotasFiscais.Clear;
      DmComps.ACBrNFe1.NotasFiscais.LoadFromFile(ArqXML);

      DmComps.ACBrNFeDANFEFR1.NomeDocumento := 'NF-e ' +
        dmNFe.zq_Reg50Numero.AsString;
      DmComps.ACBrNFeDANFEFR1.Cancelada :=
        (CharInSet(dmNFe.zq_Reg50Situacao.AsString[1], ['X', 'S'])) and
        (dmNFe.zq_Reg50SituacaoNFeCod.AsString = '101');

      DmComps.ACBrNFe1.NotasFiscais.Imprimir;
    end

A primeira NFe funciona tudo ok, ai se vou imprimir mais uma logo na sequência, a primeira continua, ela sai novamente. Não está limpando as notas mesmo usando o ACBrNFe1.NotasFiscais.Clear;

Alguém poderia me dar ideia do que pode ser?

[BigWings]

5 minutos atrás, Link Automação disse:

Alguém poderia me dar ideia do que pode ser?

Está com os fontes atualizados?

[Link Automação]

Atualizei mês passado.

Estou atualizando novamente.

Editado 19 Junho por Link Automação
Completar resposta

[Link Automação]

Atualizei e continuou mesma coisa

[BigWings]

Teve uma correção.

Citar

Revision: 33759
Author: pandaaa
Date: quarta-feira, 22 de maio de 2024 12:21:26
Message:
Limpeza da impressão anterior já carregada
 por Victor H Gonzales - Pandaaaa
----
Modified : /trunk2/Fontes/ACBrDFe/ACBrNFe/DANFE/NFe/Fast/ACBrNFeDANFEFRDM.pas

 

 

7 minutos atrás, Link Automação disse:

Atualizei e continuou mesma coisa

Veja se após atualizar, executou o ACBrInstall_Trunk2.exe pra recompilar os fontes.

E após isso, recompilou a sua aplicação.

[Link Automação]

Agora deu certo! 

Muito obrigado pela ajuda! 

[BigWings]

Obrigado por reportar.

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