Erro no Valor da Multa na Remessa CNAB400 da CEF

[sismais]

Olá pessoal, me desculpem se eu estiver errado, mas acredito que tenha um pequeno erro na geração de remessa CNAB400 da caixa.

No arquivo ACBrBancoCaixa.pas linha 1020 temos:

IntToStrZero(round((ValorDocumento*PercentualMulta)/100), 10)    + //358 até 367 - Valor nominal da multa

Exemplo de Aplicação:
ValorDocumento := 313,00;  // R$ 313,00
PercentualMulta := 3 ;    // 3% 
Resultado gerado:=  "0000000009"
Resultado esperado: "0000000939"   |    (313 * 3 / 100) = R$ 9,39

Pelo que observei o round remove os decimais, e no IntToStrZero resta apenas o "9" no final da string.
Para gerar o valor correto, o "PercentualMulta" deveria ser multiplicado por 100 (assim como é feito com o Juros e Desconto), ficando assim:

IntToStrZero(round((ValorDocumento* (PercentualMulta*100) )/100), 10)    + //358 até 367 - Valor nominal da multa

No manual "LEIAUTE DE ARQUIVO ELETRÔNICO PADRÃO CNAB 400 COBRANÇA BANCÁRIA CAIXA - SIGCB" Versão: 67.126 v006 micro, não tem uma especificação clara de como deve ser o formato, mas presumo que seja como está sendo feito no juro atualmente, onde os ultimos 2 caracteres da string são dos decimais.

OBS: Detectei este probleam após implementar em um cliente (até achei que era alguma falha minha, pois muita gente deve usar boleto caixa, mas parece que não.)

Por favor, os moderadores do fonte poderiam dar uma olhada?

 

[sismais]

Gente, algum retorno sobre isso?

[Juliomar Marchetti]

Espera pelo menos umas 24 horas para pedir novamente ou postar, quem sabe quem usa ainda não deu tempo de vir até aqui 

[sismais]

15 horas atrás, Juliomar Marchetti disse:

Espera pelo menos umas 24 horas para pedir novamente ou postar, quem sabe quem usa ainda não deu tempo de vir até aqui 

Obrigado, e desculpa. É o cliente que está no meu pé aqui. Mas vou fazer um paleativo até a solução definitiva.

[José M. S. Junior]

Bom dia, Atualizado no SVN. Obrigado!

[sismais]

16 minutos atrás, José M. S. Junior disse:

Bom dia, Atualizado no SVN. Obrigado!

Obrigado José, baixado e testado.