Dúvida - Função Export no Fast Reports

[pjunior]

Pessoal, uma dúvida, usando o Danfe em Fast Reports.

Após fazer uma NF, e a impressão, eu sempre executo o Imprimir Danfe em PDF, pra ficar com 2 arquivos, o XML e o PDF.

Ate aí, td bem, está OK.

Porém, fechando a tela de NF, e entrando em qquer outro relatório feito em Fast, qdo mando exportar pra PDF, a exportação automaticamente salva e sobrepõe o último arquivo Danfe gerado.

Alguem sabe como fazer pra desativar isso, pois pra salvar qquer outro relatório após exportar o Danfe, somente fechando e reabrindo o sistema.

[]´s

[pjunior]

Bom dia, pessoal.

Bom, fuçando bastante no FR, descobri que, fazendo da seguinte forma, resolve o problema:

Criei um objeto TfrxPDFExport dentro da função, e uso ele pra exportação. Feito assim a exportação não conflita mais.

Segue abaixo o código fonte de como ficou a função. Como podemos fazer pra mandar isso pro SVN ?

Adicionar no Uses:

frxExportPDF

******

procedure TACBrNFeDANFEFR.ImprimirDANFEPDF(NFE: TNFe);

const TITULO_PDF = 'Nota Fiscal Eletrônica';

var I: Integer;

Export2PDF: TfrxPDFExport;

begin

if PrepareReport(NFE) then

begin

Export2PDF:= TfrxPDFExport.Create(nil);

Export2PDF.ShowDialog:= False;

Export2PDF.Compressed:= True;

Export2PDF.EmbeddedFonts:= False;

Export2PDF.PrintOptimized:= True;

Export2PDF.ShowProgress:= True;

Export2PDF.Background:= True;

Export2PDF.Author:= Sistema;

Export2PDF.Creator:= Sistema;

Export2PDF.Producer:= Sistema;

Export2PDF.Title:= TITULO_PDF;

Export2PDF.Subject:= TITULO_PDF;

Export2PDF.Keywords:= TITULO_PDF;

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

begin

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

dmDanfe.frxReport.Export(Export2PDF);

end;

FreeandNil(Export2PDF);

end;

end;

******

[nazarenoneto]

Eu estava com o mesmo problema e resolvi, peço que deem uma olhada no arquivo em anexo, ele foi alterado em dois locais, no imprimirDANFE e imprimirEvento, onde foi acrescentado o seguinte comando:

    dmDanfe.frxPDFExport.ShowDialog := True;

Isso porque nas procedures de imprimirDANFEPDF e imprimirEVENTOPDF, ele seta essa propriedade para false, logo quando vamos executar uma proxima vez sem fechar o sistem, ele não mostrar o dialog.

ACBrNFeDANFEFR.pas