Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Nao Gera Pdf Boleto


hetoandrade
Go to solution Solved by hetoandrade,
  • Este tópico foi criado há 2996 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

depois que atualizei o acbr nao ta mais gerando o pdf

mais nao da erro ,

o que pode ser?

 

 

instalaei o da pasta D:\All_Delphi\ACBr_7\Pacotes\Delphi\ACBrBoleto

ACBr_Boleto

ACBr_BoletoFC_Quick

 

sabendo que meu qreport é 5.0 D7

 

e so atualizei o acbr por calsa do CT-e 2.0

 

 

// Definições para o Quick Report
// Descomente a linha abaixo caso o Quick Report tenha suporte a PDF
//------------------------------------------------------------------------------
{$DEFINE QReport_PDF}

// Definições para o compomente ACBrCTe
// Define o Pacote de Liberação / Descomente o pacote a ser utilizado
// Atenção: descomente apenas uma das definições
//------------------------------------------------------------------------------
//{$DEFINE PL_103}
//{$DEFINE PL_104}
{$DEFINE PL_200}

Edited by hetoandrade
Link to comment
Share on other sites

  • Membros Pro
  • Solution

Esqueci de um detalhe ativa o codigo.

 

unit ACBrBoletoFCQuickFr;

 

uses
  SysUtils, StdCtrls, Classes, Graphics, Controls, Forms, Dialogs, ACBrBoleto,
  QRMultiExport, QRCtrls, QuickRpt, ExtCtrls, QRExport, ACBrBarCode,
  QRWebFilt, QRPDFFilt;

 

 

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
              FiltroExportacao := TQRPDFDocumentFilter.Create(NomeArquivo);
              try
                TQRPDFDocumentFilter(FiltroExportacao).CompressionOn := true;
                RLLayout.ExportToFilter(FiltroExportacao);
              finally
                FiltroExportacao.Free;
              end;
               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;

Edited by hetoandrade
Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.