Fiz uma pequena alteração na ACBrBoleto. Por mais que eu selecionava "CodigoMora = 2 (% Mensal)", a descrição no boleto continuava a aparecer 'Cobrar juros de xx % por DIA de atraso' .
Segue código alterado.
Caso eu esteja fazendo algo errado, me ajudem!
if ValorMoraJuros <> 0 then
begin
if DataMoraJuros <> 0 then
AStringList.Add(ACBrStr('Cobrar juros de ' +
ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '% ao mês' ,
FormatCurr('R$ #,##0.00 por dia',ValorMoraJuros)) +
' de atraso para pagamento a partir de ' +
FormatDateTime('dd/mm/yyyy',ifthen(Vencimento = DataMoraJuros,
IncDay(DataMoraJuros,1),DataMoraJuros))))
else
AStringList.Add(ACBrStr('Cobrar juros de ' +
ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '% ao mês',
FormatCurr('R$ #,##0.00 por dia',ValorMoraJuros)) +
' de atraso'));
end;