Novas Rotinas No Acbrboleto (Acbrboletofcquickfr)

[Rafael jorge]

implementei a rotina de importação em pdf do quickrep na unit ACBrBoletoFCQuickFr

colocar um QRPDFFilter1 no form.

na procedure TACBrBoletoFCQuick.Imprimir (linha 544):

procedure TACBrBoletoFCQuick.Imprimir;
var
  frACBrBoletoQuick : TACBRBoletoFCQuickFr;
  RLLayout          : TQuickRep;
  nomeArquivopdf    : string;
  //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
              try
               rllayout.Prepare;
               QRPDFFilter1.CompressionOn := true;
               case LayOut of
                 lCarne         : nomeArquivopdf := txtNomeSacado4.caption;
                 lPadraoEntrega : nomeArquivopdf := txtNomeSacado6_2.caption;
                 lPadrao        : nomeArquivopdf := txtNomeSacado2.caption;
                else nomeArquivopdf := txtNomeSacado2.caption;
               end;
               if DirectoryExists(extractfilepath(paramstr(0))+'BoletoPDF') = false
                then CreateDir(extractfilepath(paramstr(0))+'BoletoPDF');
               self.nomearquivo := extractfilepath(paramstr(0))+'BoletoPDF\'+nomearquivopdf+'.pdf';
               RLLayout.ExportToFilter(TQRPDFDocumentFilter.create(self.nomearquivo));
              except 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]

Boa noite!

primeiro que agradecer a contribuição!

 

quero também pedir para que anexe o código não o cole no post !

fica ruim pra nós querer fazer algo e sair procurando dentro dos fontes!

 

caso não saiba onde anexa, nessa caixa onde digita o post tem um botão Mais Opções

clique nele e anexe sua unit!

[Rafael jorge]

do jeito que eu fiz setando o nomearquivo. automaticamente a rotina de enviar email (criando um pdf) usando o quikrep também vai funcionar.

vou implementar o html agora tambem.

[Rafael jorge]

Pronto. feito também o filtro em html.

No caso do pdf eu fiz ele criar uma pasta, ja o html como utiliza arquivos como a logo do banco e a imagem do código de barras deixei ele na pasta padrão mesmo. ta em anexo o código.

ACBrBoletoFCQuickFr.pas

ACBrBoletoFCQuickFr.pas

[Juliomar Marchetti]

Boa tarde!

Rafael poderia lhe pedir uma favor?

veja o arquivo ACBrNFeDANFeQR.pas

e tente implementar da mesma forma sem por o componente estático no form 

pois temos usuários que tem o QuickReport sem o filtro para PDF!

 

depois anexe novamente!

veja que tem a diretiva {$IFDEF QReport_PDF}

[Rafael jorge]

vou tentar e te digo algo.