Boleto com carta anexada

[mlgoncalves]

Prezados, surgiu a necessidade de criar um boleto com uma carta anexada. Então utilizamos como base o Boleto_Carne.fr3 e montamos o Boleto_Carne_Carta.fr3 inserindo um objeto do tipo RichText que carrega em tempo de execução o arquivo .\Carta_boleto.rtf

Para fazer funcionar foi necessário incluir na cláusula USES da unit ACBrBoletoFCFR.PAS a classe frxRich (vide linha 60).

Será que vocês poderiam incluir a alteração da unit ACBrBoletoFCFR.PAS no projeto ACBrBoleto?

Desde já agradeço pela atenção e estou anexando todos os arquivos envolvidos na implementação.

ACBrBoletoFCFR.pas carta_boleto.rtf Boleto_Carne_Carta.fr3 Carta_boleto_pdf.pdf

[BigWings]

10 horas atrás, mlgoncalves disse:

Será que vocês poderiam incluir a alteração da unit ACBrBoletoFCFR.PAS no projeto ACBrBoleto?

Existe na classe TACBrTitulo uma propriedade Detalhamento do tipo TStrings.

Você acha que consegue fazer essa implementação usando essa propriedade em vez de carregar um arquivo com nome fixo do disco?

Assim mantém-se compatibilidade com a impressão em FortesReport.

Vi que fez alteração também no carregamento do logo do banco, qual a necessidade dessa alteração?

[mlgoncalves]

Olá BigWings, obrigado pelo retorno.

Primeiramente, optei por utilizar o boleto em FastReports pela facilidade de se criar layouts de padrões diferentes, e no projeto do boleto em FastReports não encontrei a propriedade 'detalhamento'. Acredito que se for adicionado o 'detalhamento' no projeto não teria problema em utilizá-lo.

Outra coisa, estava com o projeto ACBrBoleto desatualizado e por isso apareceram as diferenças que você apontou. A solicitação que estou fazendo é apenas incluir 'frxRich' na 'uses' da unit 'ACBrBoletoFCFR.PAS'. Assim torna-se possível utilizar o objeto RichText para gerar uma carta formatada.

Verifique se é viável a minha solicitação.

Desde já agradeço.

Estou enviando a unit modificada.

ACBrBoletoFCFR.pas

[BigWings]

2 horas atrás, mlgoncalves disse:

Primeiramente, optei por utilizar o boleto em FastReports pela facilidade de se criar layouts de padrões diferentes, e no projeto do boleto em FastReports não encontrei a propriedade 'detalhamento'. Acredito que se for adicionado o 'detalhamento' no projeto não teria problema em utilizá-lo.

A propriedade está em TACBrTitulo e não no componente de impressão.

Usando o exemplo do demo do componente com a sua implementação, seria algo assim:

procedure TfrmDemo.btnIncluiBoletoClick(Sender: TObject);
var
  Titulo: TACBrTitulo;
begin
  doCarregaBeneficiario;
  Titulo := dm.ACBrBoleto.CriarTituloNaLista;

  with Titulo do
  begin
    Vencimento := StrToDate(edtVencimento.Text);
    DataDocumento := StrToDate(edtDataDoc.Text);
    
    [...]

    Detalhamento.LoadFromFile('.\carta_boleto.rtf');

E na impressão carregar essa propriedade Detalhamento.

2 horas atrás, mlgoncalves disse:

A solicitação que estou fazendo é apenas incluir 'frxRich' na 'uses' da unit 'ACBrBoletoFCFR.PAS'. Assim torna-se possível utilizar o objeto RichText para gerar uma carta formatada.

Seria melhor ter a funcionalidade completa para ser enviado para o repositório.

[mlgoncalves]

Entendi, BigWings! Vou tentar aprimorar a minha programação.