Gerar Pdf Com Quick Não Estava Funcioncionando

[jdazevedo]

Olá Amigos, 

Como não estava funcionando a geração do Boleto em PDF, efetuei as seguintes mudanças na unit ACBrBoletoFCQuickFr. 

Uso Delphi7

 

- Inclui em Uses QRPDFFilt. 

 

Tirei o comentário das linhas 

548:   FiltroExportacao: TQRPAbstractExportFilter;

 

569: FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);

571: TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;

572: RLLayout.ExportToFilter(FiltroExportacao);

574: FiltroExportacao.Free;

 

Após esta mudança, fiz alguns testes e funcionou perfeitamente. 

 

Como estas linhas estavam comentadas, imagino que alguém teve algum problema, por isso as comentou. 

 

 

[Solivan]

Estavam comentadas porque em versões superiores a que vc usa esse código se torna obsoleto.

[jdazevedo]

Obrigado Solivan,

Vou colocar uma diretiva.  

[Gr@c@]

Também tive problema na geração do pdf no Delphi 7, sendo que o meu QuickReport tem suporte a pdf. Verifiquei que essas linhas estavam comentadas e a diretiva poderia solucionar isso. Essa alteração (com a diretiva) poderia ir para o SVN?

João Duarte, como ficou o trecho do seu fonte usando a diretiva?

Editado 17 Junho, 2014 por Gr@c@

[jdazevedo]

Oi Gr@c@, 

Desculpe-me pela demora na resposta. Estive viajando e estava off. 

 

no uses

{$IFDEF Delphi7}QRPDFFilt,{$ENDIF}QRWebFilt;

 

Trecho do código

            {$IFDEF Delphi7}

              FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);

              try

                TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;

                RLLayout.ExportToFilter(FiltroExportacao);

              finally

                FiltroExportacao.Free;

              end;

            {$ENDIF}

 

[Embrati]

Ainda tenho problemas com envio de boleto por e-mail e geração do arquivo em PDF.

Essas adequações, incluindo a diretiva, ainda não foram colocadas no SVN ?

Tem previsão de quando vai colocar ?

 

Agradeço pela atenção...

[Embrati]

Sugiro também a adição das seguintes linhas no create do form

 

630 :   QRLabel2.Caption := BoletoFC.SoftwareHouse ;

631 :   QRLabel91.Caption := BoletoFC.SoftwareHouse ;

[Juliomar Marchetti]

Anexem os fontes alterados para que possa ser anexado e subido ao svn!

[Embrati]

Não tenho autorização no forum para enviar, seguem procedures atualizadas.

 

 

uses

  SysUtils, StdCtrls, Classes, Graphics, Controls, Forms, Dialogs, ACBrBoleto,

  QRMultiExport, QRCtrls, QuickRpt, ExtCtrls, QRExport, ACBrBarCode,

  {$IFDEF Delphi7}QRPDFFilt,{$ENDIF}QRWebFilt;

 

procedure TACBrBoletoFCQuickFr.FormCreate(Sender: TObject);

begin

   fBoletoFC := TACBrBoletoFCQuick(Owner) ;  // Link para o Pai

   txtSwHouse.Caption := BoletoFC.SoftwareHouse ;

   QRLabel2.Caption := BoletoFC.SoftwareHouse ;

   QRLabel91.Caption := BoletoFC.SoftwareHouse ;

   ACBrBarCode1.Width := imgBarra.Width ;

   ACBrBarCode1.Height:= imgBarra.Height ;

   ACBrBarCode1.Ratio:=3;

   ACBrBarCode1.Modul:=1;

end;

 

procedure TACBrBoletoFCQuick.Imprimir;

var

  frACBrBoletoQuick : TACBRBoletoFCQuickFr;

  RLLayout: TQuickRep;

  //MultiExport : TQRMultiExport ;

  FiltroExportacao: TQRPAbstractExportFilter;

  //HTMLFilter  : TQRHTMLDocumentFilter ;

begin

  inherited Imprimir;    // Executa verificações padroes

 

  frACBrBoletoQuick := TACBrBoletoFCQuickFr.Create(Self);

  try

     with frACBrBoletoQuick do

     begin

        case LayOut of

           lCarne  : RLLayout:= BoletoCarne;

           lPadraoEntrega  : RLLayout:= LayoutPadraoEntrega;

        else

           RLLayout := LayoutBoleto;

        end;

 

        RLLayout.PrinterSettings.Copies := NumCopias ;

 

        case Filtro of

          fiPDF  :

            begin

              {$IFDEF Delphi7}

              FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);

              try

                TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;

                RLLayout.ExportToFilter(FiltroExportacao);

              finally

                FiltroExportacao.Free;

              end;

              {$ENDIF}

//               MultiExport := TQRMultiExport.Create(self);

//               try

//                  MultiExport.Report       := RLLayout ;

//                  MultiExport.ExportFormat := qrxPDF ;

//                  MultiExport.FileName     := NomeArquivo ;

//                  MultiExport.ShowDialog   := MostrarSetup ;

//                  MultiExport.DPI          := 300 ;

//                  MultiExport.DoExport ;

//               finally

//                  MultiExport.Free ;

//               end ;

            end ;

 

          fiHTML :

            begin

               (*  Codigo abaixo comentado pois  não funciona...

               HTMLFilter := TQRHTMLDocumentFilter.Create( NomeArquivo );

               try

                  RLLayout.ExportToFilter( HTMLFilter );

               finally

                  HTMLFilter.Free ;

               end ;

               *)

               raise Exception.Create( ACBrStr('Exportação para HTML não implementada no QuickReport') ) ;

            end ;

        else

          begin

            if MostrarPreview then

               RLLayout.PreviewModal

            else

             begin

               if MostrarSetup then

                  RLLayout.PrinterSetup ;

 

               if (RLLayout.Tag = 0) then

                  RLLayout.Print;

             end ;

          end

        end ;

     end ;

  finally

     frACBrBoletoQuick.Free ;

  end;

end;

 

[Juliomar Marchetti]

Tem que renomear e colocar com extensão txt

[Rudimar]

 

Oi Gr@c@, 

Desculpe-me pela demora na resposta. Estive viajando e estava off. 

 

no uses

{$IFDEF Delphi7}QRPDFFilt,{$ENDIF}QRWebFilt;

 

Trecho do código

            {$IFDEF Delphi7}

              FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);

              try

                TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;

                RLLayout.ExportToFilter(FiltroExportacao);

              finally

                FiltroExportacao.Free;

              end;

            {$ENDIF}

 

 

 

Por acaso ele não estava se referindo a versão do QR? Pois eu tive mesmo problema no Delphi XE6 e sua dica deu certo...

 

 

Obrigado.

[Embrati]

seguem anexos conforme orientado.

ACBrBoletoFCQuickFr dfm.txt

ACBrBoletoFCQuickFr pas.txt

ACBrBoletoFCQuickFr dfm.txt

ACBrBoletoFCQuickFr pas.txt