Correção No Acbrbancoitau.pas

[Jacinto Junior]

Bom dia.

 

Fiz um ajuste no ACBrBancoItau.pas em GerarRegistroTransacao400 pois a DataMoraJuros é sempre inicializada com zero, porém comparada com nulo:

 

      {Mora Juros}
      if (ValorMoraJuros > 0) then
      begin
         // DONE -oJacinto Junior: Ajustar pois DataMoraJuros é inicializada com zero, sendo portanto sempre diferente de null.
//        if (DataMoraJuros <> Null) then
        if DataMoraJuros <> 0 then
          ADataMoraJuros := FormatDateTime('ddmmyy', DataMoraJuros)
        else
          ADataMoraJuros := padR('', 6, '0');
      end
      else
        ADataMoraJuros := padR('', 6, '0');
 

Att.,

 

Junior

ACBrBancoItau.pas

[guilhermeurutun]

Jaciinto,

 

Já atualizaram a Unit no SVN?

[Jacinto Junior]

Olá guilhermeurutun. A atualização no SVN depende dos mantenedores do ACBr.

[Jacinto Junior]

Boa tarde.

 

Fiz um ajuste na função CalcularDigitoVerificador para adequar ao que consta no anexo 4 do manual e melhorar a legibilidade. Também adicionei o motivo completo de uma ocorrência.

 

Att.,

 

Junior

ACBrBancoItau.pas