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
heijmeijer changed their profile photo