Codigo Mora CNAB 240 - Banco do Brasil

[fernandoschulz]

Bom dia,

Precisei implementar a propriedade CodigoMora na Unit do Banco do Brasil CNAB 240.

Atualmente a programação só contemplava o código mora = 1 (Valor Diário) e 3 (Isento), conforme programação abaixo:
 

IfThen(ValorMoraJuros > 0, '1', '3')                                      + // 118 - Código de juros de mora: Valor por dia

Conforme manual do banco do brasil existe o código 2 (Taxa Mensal) também, segue abaixo: 

 

Em anexo Unit com alterações, fiz update no acbr boleto hoje de manhã antes de efetuar as alterações.

Obs: Fiz uma programação no início da função que gera o registro de transação 240 que, caso alguém não trabalhe com a propriedade CodigoMora, as alterações que fiz não irão dar problema para essa pessoa:
 

     {Código Mora}
     if CodigoMora = '' then
     begin
       if ValorMoraJuros > 0 then
         CodigoMora := '1'
       else
         CodigoMora := '3';
     end;

Obrigado,
Fernando Schulz.

ACBrBancoBrasil.pas

Esqueci de falar, já mandei remessa para o banco e está tudo certo, banco aceitou normal, e impressões pelo banco e componente ficaram corretas

[José M. S. Junior]

Obrigado, será adicionado assim que possível.

[José M. S. Junior]

Favor atualizar os fontes para testes...