Multa no boleto imprime SOMENTE valor não Imprime Percentual.

[MCandido]

Comecei a utilizar os componentes do ACBr, abri o demo de Boleto para testes e vi que na tela consta % Multa, mas somente imprime em valor independente de como esta Titulo.CodigoMulta, pois a msg esta fixa dentro do fonte do ACBrBoleto, como consta no codigo extraido abaixo, por favor verifique. Muito obrigado

 

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]));  <<===== mensagem com valor FIXA
end;

[Juliomar Marchetti]

dá uma pesquisada aqui no fórum que já tem relatos e informação sobre a situação explicando

[MCandido]

Juliomar boa tarde, muito obrigado por responder,

 

Mas ja perquisei bastante o forum, mas nenhuma solução, a unica foi de eu escrever meu codigo montando a msg e colocando no campo instruçoes, mas se o componente ja tem porque vou ter que escrever codigo, porque não implementar igual ao campo de ValorMora/Juros.

 

[Juliomar Marchetti]

2 horas atrás, MCandido disse:

Juliomar boa tarde, muito obrigado por responder,

 

Mas ja perquisei bastante o forum, mas nenhuma solução, a unica foi de eu escrever meu codigo montando a msg e colocando no campo instruçoes, mas se o componente ja tem porque vou ter que escrever codigo, porque não implementar igual ao campo de ValorMora/Juros.

 

mas sim tem o porque disso.

assim que eu estiver com tempo pesquiso e posto  tópico aqui pra tu ler