Recuperar A Linha Digitada

[koplin]

Saudações:

 

Fiz uma alteração no ACBRBoleto para permitir a recuperação da Linha digitada. Esta funcionalidade eu já usava com outro componente, que  modifiquei, para permitir que eu possa enviar o texto da linha por e-mail. Ao migrar para o ACBRBoleto, senti falta desta funcionalidade e em virtude dela ser útil para outros e evitar que eu fique com um código diferente, envio as units modificadas para sua apreciação. Se julgarem procedente, fiquem a vontade para implementar.

 

A ideia é ter uma propriedade LinhaDigitada, que é preenchida sempre que uma geração de boleto ocorra. Assim Após a geração, recupero a informação para posterior uso.

 

trecho exemplificando o uso:

 

        AcbrBoleto1.GerarPDF;

     //troco '%linhadigitada' pelo texto da propriedade LinhaDigitada

        FindReplace('%linhadigitada', Boleto1.Banco.LinhaDigitada, AStringList);

//envio o e-mail com a mensagem contendo a linha digitada

        AcbrBoleto1.EnviarEmail(QvwBoletomail_host.AsString,

                            QvwBoletomail_port.AsString,

                            QvwBoletomail_user.AsString,

                            QvwBoletomail_password.AsString,

                            QvwBoletomail_from.AsString,

                            '[email protected]', //to

                            QvwBoletomail_assunto.AsString,

                            AStringList,//mensagem

                     ...

 

Cordialmente,

 

Alfredo Koplin.

 

 ACBrBoleto.pas  

Editado 6 Junho, 2013 por koplin

[Juliana Tamizou]

Bom dia.

 

Consegui fazer a análise dos fontes e cheguei a conclusão seria ainda mais interessante que os títulos tivessem uma propriedade para armazenar o conteúdo da linha digitável depois que a mesma for calculada.

 

Acabei de subir ao svn a alteração conforme citei, acredito que continuará atendendo suas necessidades.

 

Att.