Boleto Bradesco duplicando instruções de multa e juros

[LeoSlander]

Bom dia!

Estou abrindo esse tópico pois estava com problemas de duplicidade nas instruções como juros e multa ao gerar a impressão do ACBrBoleto.

Para resolver foi feito:

Dentro de TACBrBoleto = class( TACBrComponent )

em public foi adicionado ultimo_documento: String;

e na  procedure TACBrBoleto.AdicionarMensagensPadroes(Titulo: TACBrTitulo;
  AStringList: TStrings);

   if Titulo.NumeroDocumento <> ultimo_documento then
     exit;

Ao fazer a chamada jogo o numero do documento para a variável ultimo_documento.

A duplicidade acontece para boletos com dois registro (boleto comum).

Pessoal essa foi uma forma que fiz para solucionar rapidamente.

Se alguém que dá manutenção puder olhar agradeço muito.

Desculpa abrir esse tópico, só abri porque não encontrei tópico específico para este problema e os que encontrei um pouco relacionado são antigos.

[Juliana Tamizou]

Bom dia.

Você consegue reproduzir esta situação com o demo?

Att.

[LeoSlander]

Boa tarde!

Acredito que consigo sim.

[LeoSlander]

Bom dia Juliana!

Aqui verifiquei com mais detalhe o que estava acontecendo.

O que aconteceu foi que antes de enviar o comando de impressão ACBrBoleto.Imprimir; no carregamento das informações do boleto eu estava executando o comando de mensagens que entendi que precisa executá-lo para gerar as mesmas ACBrBoleto.AdicionarMensagensPadroes(Titulo, Mensagem);, porém as mensagens já são adicionadas no momento do comando de impressão, então o que fiz foi somente tirar esse comando de adicionar mensagens.

Obrigado pela atenção!

Editado 2 Fevereiro, 2017 por LeoSlander