Alteracao unit acbrboleto

[francisco.itb]

Srs, alterei a unit acbrboleto na procedure TACBrBoleto.AdicionarMensagensPadroes(Titulo: TACBrTitulo;
  AStringList: TStrings);

Adicionei a mensagem de cobrança acessoria,

      if ValorDespesaCobranca <> 0 then
          AStringList.Add(ACBrStr('Acrescimo de  ' + FormatCurr('R$ #,##0.00',ValorDespesaCobranca)+' Referente a Desp. Acessoria'));
 

e data limite para pagamento.

if DataLimitePagto <> 0 then
         AStringList.Add(ACBrStr('Não Receber após ' + IntToStr(DaysBetween(Vencimento, DataLimitePagto))+ ' dias'));

Segue a mesma para ser atualizada no svn

 

 

ACBrBoleto.pas

[Graziele Rocha Serafim]

Boa tarde @francisco.itb, alteração encontra-se disponível no SVN.

Att.