CodigoMoraJuros CNAB 240 Banco ABCBrasil

[heijmeijer]

Bom dia pessoal,

Em homologação com o Banco ABC Brasil - CNAB 240, identifiquei que a variável STipoJuros estava fixa para a opção 1 - Valor por dia.

Nos meus testes, precisava que fosse tratado a opção Taxa Mensal, para isso, efetuei as seguintes mudanças no arquivo ACBrBancoABCBrasil, função GerarRegistroTransacao240.

Antigo:

 if (ValorMoraJuros > 0) then
    begin
      STipoJuros := '1'; // Valor por dia
      if DataMoraJuros <> 0 then
        sDataMoraJuros := FormatDateTime('ddmmyyyy', DataMoraJuros)
      else
        sDataMoraJuros := PadLeft('', 8, '0');
    end
    else
    begin
      sDataMoraJuros := PadLeft('', 8, '0');
      STipoJuros := '3'; // Isento
      sValorMoraJuros := IntToStrZero(0, 15);
    end;

Novo:

 if (ValorMoraJuros > 0) then
    begin
      case CodigoMoraJuros of
        cjTaxaMensal:
          begin
            STipoJuros := '2';
            sValorMoraJuros := IntToStrZero(round(ValorMoraJuros * 10000), 15);
          end;
      else
        STipoJuros := '1';
        sValorMoraJuros := IntToStrZero(round(ValorMoraJuros * 100), 15);
      end;

      if DataMoraJuros <> 0 then
        sDataMoraJuros := FormatDateTime('ddmmyyyy', DataMoraJuros)
      else
        sDataMoraJuros := PadLeft('', 8, '0');
    end
    else
    begin
      sDataMoraJuros := PadLeft('', 8, '0');
      STipoJuros := '3'; // Isento
      sValorMoraJuros := IntToStrZero(0, 15);
    end;

Feito isso, os arquivos funcionaram conforme esperado e o boleto foi homologado.

Sugiro essas alterações.

Atenciosamente,
Alexis Heijmeijer

Editado 15 Março, 2023 por heijmeijer