Sugestão para usar botão Enviar (e-mail) do preview do boleto

[RicardoVoigt]

Bom dia,

gostaria de fazer uma sugestão de código (1 linha) na impressão de boletos (Fortes), pensando na possibilidade descrita no tópico abaixo, onde foi discutido usar o componente "RLPreviewSetup" para enviar e-mail anexando qualquer relatório do projeto clicando no botão Enviar do Preview, e usando um mesmo código fonte.

 

Basicamente a minha sugestão seria preencher a propriedade "JobTitle" no boleto.

RLLayout.JobTitle := 'boleto ' + ACBrBoleto.Banco.nome;

Em um projeto onde todos os relatórios feitos com Fortes tiverem esta propriedade JobTitle preenchida (com o respectivo título do relatório ou nome de arquivo por exemplo), seria possível usar o trecho de código abaixo, no evento OnSend do componente "RLPreviewSetup" para criar o arquivo PDF do relatório e anexar no e-mail, inclusive de boletos.

// usar o JobTitle como nome do arquivo PDF do relatório
anexo := DIR_APP +  (Sender as TRLPreviewForm).Preview.Pages.JobTitle + '.pdf';

// apagar o arquivo, caso ja exista...
if FileExists(anexo) then
begin
  DeleteFile(anexo);
end;

RLPDFFilter1.FileName := anexo;

// salvar o relatório em PDF usando componente "RLPDFFilter"
RLPDFFilter1.FilterPages( (Sender as TRLPreviewForm).Preview.Pages );

//enviar o e-mail anexando o pdf...

 

Qualquer outra ideia será bem vinda...

Att

Ricardo

ACBrBoletoFCFortesFr.pas

[Juliomar Marchetti]

Bom dia.

subi ao svn sua ideia.

obrigado