ACBRBoleto - Juros e Multa calculados errados

[Roberto Evangelista]

Após a revisão r31091 os juros e multas estão sendo calculados errados.

r31090:

function TACBrBoleto.CalcularPercentualValor(AValorPercentual, AValorDocumento: Double): Double;
begin
  Result := TruncTo((AValorPercentual / 100) * AValorDocumento,2);
end

r31091

function TACBrBoleto.CalcularPercentualValor(AValorPercentual, AValorDocumento: Double): Double;
begin
  Result := (AValorPercentual / AValorDocumento) * 100 ;
end;

 

[Antonio Gomes]

kkkk alguem fazendo regra de 3 

um jeito de meio fugir, é colocar: ImprimirMensagemPadrao = False;

Editado 9 Janeiro, 2024 por Antonio Gomes

[BigWings]

O nome do método é ambíguo, aparentemente foi alterado de calcular qual o valor resultante entre uma porcentagem e um valor, para calcular qual a porcentagem entre dois valores.

Não notei problema nas mensagens padrão do componente, pode dar um exemplo do que está errado?

[Roberto Evangelista]

Multa de 2%

Errado:

 

Correto:

Editado 9 Janeiro, 2024 por Roberto Evangelista
Falta de informação

[Daniel InfoCotidiano]

Atualize seus fontes por favor e rode o instalador. No teste reportado aqui saiu como esperado.

[Roberto Evangelista]

1 hora atrás, Daniel InfoCotidiano disse:

Atualize seus fontes por favor e rode o instalador. No teste reportado aqui saiu como esperado.

Problema corrigido! Obrigado.

[Daniel InfoCotidiano]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.