implementação do boleto exportado (pdf) com senha

[Fernando Rodrigo]

@goyazsistemas fez uma implementação no boleto para exportação via PDF e com senha para ter acesso ao boleto.

Isso é usado muito em fatura de cartão de crédito, uma maior segurança para os nossos clientes.

Fiz uma alteração nela e já fiz vários testes e esta funcionando normal.

Segue as unit que foram alteradas

Campo que foi adicionado

Unit AcbrBoleto 

FPdfSenha       : String;

procedure SetPdfSenha(const Value: string);

property PdfSenha        : string          read fPdfSenha         write SetPdfSenha;

procedure TACBrBoletoFCClass.SetPdfSenha(const Value: string);
begin
  FPdfSenha := Value;
end;
 

Unit ACBrBoletoFCFR

          fiPDF:
            begin
              if FModoThread then
              begin
                frxPDFExport.ShowDialog := False;
                frxPDFExport.ShowProgress := False;
              end
              else
              begin
                frxPDFExport.ShowDialog := MostrarSetup;
                frxPDFExport.ShowProgress := MostrarProgresso;
              end;
              frxPDFExport.FileName := NomeArquivo;
              frxPDFExport.Author := SoftwareHouse;
              frxPDFExport.Creator := SoftwareHouse;
              frxPDFExport.Producer := SoftwareHouse;
              frxPDFExport.Title := 'Boleto';
              frxPDFExport.Subject := frxPDFExport.Title;
              frxPDFExport.Keywords := frxPDFExport.Title;
              frxPDFExport.Background := IncorporarBackgroundPdf;//False diminui 70% do tamanho do pdf
              frxPDFExport.EmbeddedFonts := IncorporarFontesPdf;

              if PdfSenha <> '' then
                begin
                   frxPDFExport.UserPassword    := PdfSenha;
                   frxPDFExport.ProtectionFlags := [ePrint];
                end;

              frxReport.Export(FdmBoleto.frxPDFExport);

              if frxPDFExport.FileName <> NomeArquivo then
                NomeArquivo := frxPDFExport.FileName;
            end;

 

 

ACBrBoleto.pas ACBrBoletoFCFR.pas

[Juliana Tamizou]

Bom dia,

Veja neste tópico que já foi enviada uma contribuição para este caso, porém precisava uma análise mais detalhada, de modo a ser funcional para todos os geradores.

 

Att.

[Fernando Rodrigo]

9 minutos atrás, Juliana Tamizou disse:

Bom dia,

Veja neste tópico que já foi enviada uma contribuição para este caso, porém precisava uma análise mais detalhada, de modo a ser funcional para todos os geradores.

 

Att.

blz Juliana, mas tem 2 meses que foi enviado para análise, e ate agora não foi implementado no componente, como são poucas alterações e ja foi bastante testado, acho que não teria problema em adicionar essa alteração no componente