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?