DANFE FR - ImprimePDF Unica NF em um Lote

[Álax Filho]

Boa tarde, pessoal o seguinte estou utilizando o envio de NF-e(s) em lote, notei que a ImprimirDANFEPDF para o Fast Report possui uma diferença para os outros códigos (Rave, QR, ...)

Para o FR não há diferença entre as duas chamdas abaixo:

ACBrNFe.NotasFiscais.Items.ImprimirPDF() // Gravar PDF somente de uma NF do lote

ACBrNFe.NotasFiscais.ImprimirPDF() // Gravar todas PDF das NF do lote

Sendo que para o Rave ou QR funciona perfeitamente.

Para corrigir alterei o procedure para:

(Se possível gostaria de fosse incluído)

procedure TACBrNFeDANFEFR.ImprimirDANFEPDF(NFE: TNFe);

const

TITULO_PDF = 'Nota Fiscal Eletrônica';

var

I: Integer;

begin

if PrepareReport(NFE) then

begin

dmDanfe.frxPDFExport.Author := Sistema;

dmDanfe.frxPDFExport.Creator := Sistema;

dmDanfe.frxPDFExport.Producer := Sistema;

dmDanfe.frxPDFExport.Title := TITULO_PDF;

dmDanfe.frxPDFExport.Subject := TITULO_PDF;

dmDanfe.frxPDFExport.Keywords := TITULO_PDF;

dmDanfe.frxPDFExport.ShowDialog := False;

if NFE = nil then // <<<<<<<======= foi chamado para ACBrNFe.NotasFiscais.ImprimirPDF() // Gravar todas PDF das NF do lote

begin

for I := 0 to TACBrNFe(ACBrNFe).NotasFiscais.Count - 1 do

begin

dmDanfe.frxPDFExport.FileName := PathPDF + dmDanfe.NFe.procNFe.chNFe + '.pdf';

dmDanfe.frxReport.Export(dmDanfe.frxPDFExport);

end;

end

else // <<<<<<<<===== foi chamado ACBrNFe.NotasFiscais.Items.ImprimirPDF() // Gravar PDF somente de uma NF do lote

begin

dmDanfe.NFe := NFE;

dmDanfe.frxPDFExport.FileName := PathPDF + dmDanfe.NFe.procNFe.chNFe + '.pdf';

dmDanfe.frxReport.Export(dmDanfe.frxPDFExport);

end

end;

end;