provável correção nas mensagens padrões

[jun_pdv]

Bom dia!

Posso ter entendido errado, porém quando vou gerar as mensagens dos boletos utilizando a função AdicionarMensagensPadroes, a função está gerando erroneamente quando tenho uma taxa mensal de juros, exemplo: se tenho uma taxa mensal de 0,99%, na mensagem padrão, é apresentado "Cobrar juros de 0,99% por dia de atraso para pagamento a partir de 31/03/2018", sendo que o correto seria "Cobrar juros de 0,033% por dia de atraso para pagamento a partir de 31/03/2018 " .

Fiz a seguinte correção para resolver este problema nas linhas 1995 e 2002. 

• Como estava antes:

if ValorMoraJuros <> 0 then
      begin
         if DataMoraJuros <> 0 then
            AStringList.Add(ACBrStr('Cobrar juros de '                        +
                            ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros) + '%',
                                   FormatCurr('R$ #,##0.00',ValorMoraJuros))         +
                             ' por dia 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) + '%',
                                           FormatCurr('R$ #,##0.00',ValorMoraJuros))         +
                             ' por dia de atraso'));
      end;

• Depois:

if ValorMoraJuros <> 0 then
      begin
         if DataMoraJuros <> 0 then
            AStringList.Add(ACBrStr('Cobrar juros de '                        +
                            ifthen(((CodigoMora = '2') or (CodigoMora = 'B')), FloatToStr(ValorMoraJuros/30) + '%',
                                   FormatCurr('R$ #,##0.00',ValorMoraJuros))         +
                             ' por dia 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/30) + '%',
                                           FormatCurr('R$ #,##0.00',ValorMoraJuros))         +
                             ' por dia de atraso'));
      end;

 

Resolveu o meu problema, porém gostaria de saber se está certo ou se tenho que gerar o valorMoraJuros de outra maneira?

Att Junior Ferreira

[jun_pdv]

Bom dia!

Sei que vocês são extremamente ocupados, mas conseguiram verificar esse problema? Ele vai estar disponível no SVN?

[Juliomar Marchetti]

Bom dia.

não pois não foi anexado ao post a unit alterada

anexe a mesma e será posta na fila de avaliações para subir ao svn.

[jun_pdv]

Bom dia!

Peço desculpas desde já, segue em anexo a unit com a correção, linhas 2007 e  2014.

ACBrBoleto.pas