Colocar Campos Mensagem.text

[valramosr]

Olá pessoal,

 

Estou usando pela primeira vez o ACBrBoleto!

Queria descriminar no corpo do boleto o seguinte:

 

Mensagem.Text := 'Até o vencimento Desconto de R$' + ValorDesconto +#13+

'Após o vencimento Juros de'+PercJuros'% - R$'+ValorJuros+'multa de'+percmulta'% - R$'+valormulta'+#13+

'Não receber se a parcela anterior estiver em aberto'

 

As variáveis ValorDesconto, PercJuros, ValorJuros, percmulta e valormulta. Irão trazer do banco de dados.

 

Como faço para colocar dentro do Mensagem.Text?

 

Agradeço pela ajuda de quem se dispor a ajudar.

 

 

[Juliana Tamizou]

Bom dia.

 

Quando você informa esses campos automaticamente as mensagens citadas por você são adicionadas ao boleto impresso.

 

Att.

[valramosr]

Bom dia,

Segue o código caso alguém precise de como adicionar  texto no campo de mensagens do boleto!

 

 

Mensagem.Text := 'Até o vencimento Desconto de '+FormatCurr('R$ #,##0.00', StrToFloat(up.fieldbyname('valor_desconto').AsString))+#13+

                     'Após o vencimento Juros de '+FormatCurr('R$ #,##0.00',(StrToFloat(CdsCedentejuros.AsString)*strtofloat(up.fieldbyname('valor_base').AsString))/100)

                     +' ao dia + Multa de '+FormatCurr('R$ #,##0.00',(StrToFloat(CdsCedentemulta.AsString)*strtofloat(up.fieldbyname('valor_base').AsString))/100)+#13+

                     DBEdObservacao1.Text+#13+

                     DBEdObservacao2.Text+#13+

                     DBEdObservacao3.Text;