Dúvida Sobre multa no boleto

[Antonelly Silva]

Ola boa tarde. Já havia adiantado o assunto com o Daniel Infocotidiano no discord sobre algumas divergência quando ao calculo de multa na emissão do boleto.

 

O código do componente acbr conforme abaixo, só trata a mensagem como R$.  Por exemplo, cobrar multa de R$ 2,00.

Ele não deveria ter a possibilidade de informar também em percentual? por exemplo: Cobrar multa de 2%..

 

 

function TACBrBoleto.GerarMensagemPadraoMulta(ATitulo: TACBrTitulo): String;
var AValorMulta : Currency;
  ATipoMulta : String;
begin

  if ATitulo.MultaValorFixo then
    AValorMulta := ATitulo.PercentualMulta
  else
    AValorMulta := RoundABNT((ATitulo.PercentualMulta / 100) * ATitulo.ValorDocumento,2);

  if (ATitulo.DataMulta <> 0) and (ATitulo.DataMulta > ATitulo.Vencimento) then
    ATipoMulta := 'a partir de ' + FormatDateTime('dd/mm/yyyy',ATitulo.DataMulta)
  else
    ATipoMulta := 'após o vencimento';

  Result := ACBrStr(Format('Cobrar multa de R$%s para pagamento %s.',[FormatFloatBr(AValorMulta),ATipoMulta]));
end;
 

[Victor H. Gonzales - Panda]

não achei agora, mas me recordo de alguma normativa no passado (+- 2017) que pedia para que a multa fosse convertida para a o valor monetário.

tanto que, se olhar o calculo é feito a conversão se MultaValorFixo = false ele faz um calculo, aplicando o valor.