Correção De Bug Ao Exportar Para Dacte Para Pdf (Fast Report)

windsoft · 18 Maio, 2015

Olá bom dia!

Após a exportação do DACTE para PDF, utilizando a função ImprimirDACTEPDF, o componente estava desabilitando a propriedade ShowDialog e não estava restaurando o valor anterior.

Fiz a correção na unit ACBrCTeDACTEFR.pas (assim como já ocorre na NFe) para que o componente restaure o estado da propriedade após a exportação do PDF.

O trecho de código alterado pode ser visto abaixo (comentado) e os arquivos alterados estão anexo.

O Mesmo problema ocorre com o DAMDFE (MDFe), para não criar um tópico idêntico peço que já atualizem este também (a unit corrigida também já está anexo).

procedure TACBrCTeDACTEFR.ImprimirDACTEPDF(CTE: TCTe);
const
  TITULO_PDF = 'Conhecimento de Transporte Eletrônico';
var
  I: Integer;
  // Alteração WindSoft
  // Após a exportação do DACTE em PDF retornar o estado anterior da
  // Propriedade ShowDialog
  bOldShowDialog : Boolean;
begin
  if PrepareReport(CTE) then
  begin
    dmDacte.frxPDFExport.Author     := Sistema;
    dmDacte.frxPDFExport.Creator    := Sistema;
    dmDacte.frxPDFExport.Producer   := Sistema;
    dmDacte.frxPDFExport.Title      := TITULO_PDF;
    dmDacte.frxPDFExport.Subject    := TITULO_PDF;
    dmDacte.frxPDFExport.Keywords   := TITULO_PDF;
    // Alteração WindSoft
    bOldShowDialog := dmDacte.frxPDFExport.ShowDialog;
    try
      dmDacte.frxPDFExport.ShowDialog := False;

      for I := 0 to TACBrCTe(ACBrCTe).Conhecimentos.Count - 1 do
      begin
        dmDacte.frxPDFExport.FileName := IncludeTrailingPathDelimiter(PathPDF) + dmDacte.CTe.procCTe.chCTe + '-cte.pdf';
        dmDacte.frxReport.Export(dmDacte.frxPDFExport);
      end;
    finally
      dmDacte.frxPDFExport.ShowDialog := bOldShowDialog;
    end;
    //
  end;
end;

ACBrCTeDACTEFR.zip