Imprimir Percentual de Juros/ multa no boleto

[diegoPego]

Bom dia

Até o presente momento sempre imprimíamos os boletos com o valor (R$) multa/juros, porém recebemos uma solicitação de um cliente que utiliza o boleto SICREDI
na cidade de Dourados/MS que deseja que o seu % configurado de juros/multa aparece no boleto ao invés de imprimir o valor em (R$).
Tal solicitação surgiu devido que alguns casos o percentual de Juros/multa calculado na apuração diária é muito pequeno desta forma a informação no boleto fica 0.00 

 

Procedimento realizado na unit ACBrBoleto.pas em anexo

1 - criar: 

     property MostrarPercentualMulta: Currency read FMostrarPercentualMulta write SetMostrarPercentualMulta;
     property MostrarPercentualJuros: Currency read FMostrarPercentualJuros write SetMostrarPercentualJuros; 
     
E quando alimentamos:

      if MostrarPercentualJuros <> 0 then
      begin
         AStringList.Add(ACBrStr('Cobrar juros de ' +
                                 FormatCurr('#,##0.00',MostrarPercentualJuros) + '%' +
                                 ' por dia de atraso'));
      end;

      if MostrarPercentualMulta <> 0 then
      begin
         AStringList.Add(ACBrStr('Cobrar multa de ' +
                                 FormatCurr('#,##0.00',MostrarPercentualMulta) + '%' +
                                 ' após o vencimento.'));
      end;
      
Ao inves de mostrar os valores apurados em R$ aparece os %.      
      

ACBrBoleto.pas

[Juliana Tamizou]

Bom dia.

Sua alteração entrou na fila para análise, obrigada pela contribuição.

Att.