Ajuste Descrição Boleto

[marcosschmidt]

Fiz uma pequena alteração na ACBrBoleto. Por mais que eu selecionava  "CodigoMora = 2 (% Mensal)", a descrição no boleto continuava a aparecer 'Cobrar juros de xx % por DIA de atraso' .

Segue código alterado.

Caso eu esteja fazendo algo errado, me ajudem!

 

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

[José M. S. Junior]

Bom dia, ajuste disponibilizado no SVN...

[denerbuzato]

Prezados,

Essa "pequena" alteração na unit ACBrBoleto na realidade teve um impacto "grande" nas demais cobranças.

Por exemplo:
Antes para o SICOOB CNAB 400 era passado para o componente nas propriedades "CodigoMora" o valor de "2" que significa "percentual" e na propriedades "ValorMoraJuros" o valor de "0.33"
O boleto impresso ficava com o texto correto "Cobrar juros de 0,33% por dia de atraso..."
Na remessa ficava correto na posição 161 "Taxa de mora mês" onde ficava "099000"

 

Agora se eu deixar alimentando como está, a remessa embora fique correta, o boleto não, pois o texto fica
"Cobrar juros de 0,33% ao mês de atraso..." onde o correto seria cobrar "Cobrar juros de 10% ao mês de atraso"

 

Se eu alterar a propriedade "ValorMoraJuros" para o valor de "10" que é o juros ao mês o texto do boleto fica correto
"Cobrar juros de 10% ao mês de atraso..." porém a remessa fica errada "300000"

 

Isso porque na geração da remessa "unit ACBrBancoBancoob" ele está tratando a taxa como sendo diária e aplica um calculo para transformar em taxa mensal.

 

 

 

Editado 20 Agosto, 2018 por denerbuzato

[marcosschmidt]

Boa tarde,, minha alteração não foi na parte dos cálculos, mas unicamente para aparecer os valores referentes aos tipos informados,, mas analisando seu código, você tem razão! pois ele faz * 30

 

Editado 20 Agosto, 2018 por marcosschmidt

[José M. S. Junior]

Boa tarde, Compreendi o problema... Mas o erro parece estar na Unit do banco BANCOOB em não validar o CodigoMora... para verificar se é por dia ou mensal antes de realizar esse cálculo...

Da forma que estava a mensagem no boleto estava errada...

Veja especificação padrão FEBRABAN:

[denerbuzato]

Esse detalhe de usar a propriedade "CodigoMora" para "1" valor diário e "2" para taxa mensal se aplica apenas no CNAB 240

Já no CNAB 400 é apenas taxa mensal e a procedure GerarRegistroTransacao400 nem faz uso da "CodigoMora"

Sendo assim, para resolver será necessário remover essa multiplicação por 30 na procedure GerarRegistroTransacao400

Ficando assim:

                  IntToStrZero( Round( (ValorMoraJuros) *10000 ), 6)      +  // Taxa de mora mês

 

Segue unit alterada para analise 

 

ACBrBancoBancoob.pas

[José M. S. Junior]

Correto,  mas me refiro também ao modelo do boleto no manual pela maioria dos Bancos e FEBRABAN . Se a mensagem de Juros de Mora é em "%" o padrão é Mensal.

Pelo que verifiquei para CNAB400 a maioria dos outros bancos utilizam apenas valor por dia... Por isso a mensagem da forma que estava não havia sido identificada ainda.

Mas para Bancoob, realmente causa problema da forma que está... Vamos verificar para atutualizar no SVN. Obrigado!

[rrommullo]

Boa tarde,

Realmente fui surpreendido com essa alteração com meus clientes do SICOOB. Fiz a alteração sugerida pelo @denerbuzato  

Fico no aguardo da atualização para manter meu componente atualizado.

[carlos_tedex]

Em 20/08/2018 at 15:26, denerbuzato disse:

Sendo assim, para resolver será necessário remover essa multiplicação por 30 na procedure GerarRegistroTransacao400

Ficando assim:

                  IntToStrZero( Round( (ValorMoraJuros) *10000 ), 6)      +  // Taxa de mora mês

Segue unit alterada para analise 

ACBrBancoBancoob.pas

Bom dia,

Também tive que fazer a mesma alteração.

No aguardo também!

[José M. S. Junior]

Em 20/08/2018 at 15:26, denerbuzato disse:

Sendo assim, para resolver será necessário remover essa multiplicação por 30 na procedure GerarRegistroTransacao400

Ficando assim:

                  IntToStrZero( Round( (ValorMoraJuros) *10000 ), 6)      +  // Taxa de mora mês

 

Segue unit alterada para analise 

Bom dia, ajuste disponível no SVN. Obrigado!