Erro no calculo de juros no arquivo remessa cobBancoob (Bco 756)

[jorjoema]

Olá, implantei o banco 756 e percebi o seguinte erro de cálculo:

ACBrBancoBancoob.pas

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

O que ocorre é que calcular um percentual sobre o valor resultará em um número % correspondente 20 vezes menor que o correto, fazendo com que o banco cobre juros bem menores que o definido no boleto. (ex: 10% -> 0,5%)

Para corrigir, criei fPercentualJuros (PercentualJuros), (em ACBrBoletos) para trazer efetivamente o percentual usado para cálculo na emissão.

L:387   IntToStrZero( Round( PercentualJuros * 10000 ), 6)      +  // Taxa de mora mês

 

ACBrBoleto.pas

L:1400    fPercentualMulta   : Double;
               fPercentualJuros   : Double; 

L:1583   property PercentualMulta      : Double   read fPercentualMulta       write fPercentualMulta;
              property PercentualJuros      : Double   read fPercentualJuros       write fPercentualJuros;

L:2589   fPercentualMulta      := 0;
              fPercentualJuros      := 0;

Poderiam verificar a possibilidade de ajuste nos fontes?

Obrigado.

 

 

 

[BigWings]

A propriedade ValorMoraJuros pode ser em reais ou em percentual, pra definir qual está informando configure as propriedades CodigoMora e/ou CodigoMoraJuros.

[jorjoema]

Esqueci de informar... se refere ao CNAB400. E neste layout tem de ser informado o % de Juros.

[jorjoema]

BigWings, obrigado pela resposta, mas por favor, considere o seguinte:

Titulo.CodigoMoraJuros   := cjTaxaMensal;

Titulo.ValorMoraJuros      := Taxa % ao mes;

Se usar "cjTaxaMensal" como sugerido, nas observações do boleto será impresso o "x%" ( "ValorMoraJuros" em %);

Assim fica correto, mas nas observações a descrição do juro sai em % ao mês.

------------------------------------------------------------------------------------------------------------------------------------------------------

Porém, necessito informar nas observações a descrição do valor em "R$ / dia"...

Neste caso,

Titulo.CodigoMoraJuros   := cjValorDia;

Titulo.ValorMoraJuros      := Valor em R$ por dia de atraso...

e esse "ValorMoraJuros" será convertido erroneamente no arquivo de remessa do banco, pois multiplica "ValorMoraJuros  X 10000" e não um "percentual mensal X 10000", como seria esperado.

Isso no CNAB400

[José M. S. Junior]

Boa tarde, o % é baseado no campo ("CodigoMora")... No caso SICOOB CNAB400, seguindo o manual deve ser sempre % Mensal. E faz a multiplicação para seguir a especificação:

Para sair correto no Boleto, basta passar ( codigoMora:=2 )

[jorjoema]

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

Boa tarde, o % é baseado no campo ("CodigoMora")... No caso SICOOB CNAB400, seguindo o manual deve ser sempre % Mensal. E faz a multiplicação para seguir a especificação:

Para sair correto no Boleto, basta passar ( codigoMora:=2 )

Tá multiplicando valor por 10000. Está errado.

[jorjoema]

BigWings e José Jr, obrigado pelas respostas.

Na geração do arquivo de registro CNAB400 a ser enviado ao banco SICOOB, os campos CodigoMora e/ou CodigoMoraJuros, não são usados ( são usados somente na CNAB240).

A solução dada pelo BigWings foi suficiente para resolver o problema. Passei a informar o % da taxa mensal no lugar do valor, ao gerar o registro para o SICOOB.

A propriedade "ValorMoraJuros" sendo usada para passar % ou valor, me parece inapropriada e fere as boas práticas de programação.

Fica a sugestão ao time que cuida deste desenvolvimento a refatoração deste trecho, para um melhor entendimento (conforme indiquei no primeiro post).

Obrigado.

Editado 8 Julho, 2021 por jorjoema