Boleto Banco Do Brasil Com Diferença Campo Valor E Linha Digitável

[daniel_mirassol]

Boa tarde !

Estou com problema com boleto do Banco do Brasil onde o valor do documentos está saindo poer exemplo 138,71 e na linha digitável está saindo 138,72, diferença de 0,01 (um centavo).

Alguém já teve este problema ?

 

Anexo documento.

[Juliana Tamizou]

Boa noite.

 

Você reproduziu esse problema no demo?

 

Att.

[daniel_mirassol]

Boa Tarde !

Não , mas vou efetuar para te dar uma posição .

[daniel_mirassol]

Juliana. boa tarde !

No exemplo não apresentou o erro, mas o cliente que está apresentando esta falha emite vários boletos cerca 80 a 100 diariamente e do nada acontece em alguns esta falha, tem ideia de possa ser ?

[Juliana Tamizou]

Boa noite Daniel.

O componente utiliza o mesmo campo na montagem da linha digitável e na impressão do valor...não vejo como poderia sair diferente no boleto...

Você chegou a testar no demo com um número semelhante a quantidade de boletos emitida por seu cliente?

 

Att.

[Lucas Fernando Matias]

Estou com o mesmo problema, obteve alguma solução ?
Descobriu algo ?

Alguns saem a diferença outros não e uma estou tratando todas as minhas parcelas para sempre conter valores com 2 casas decimais, nunca passo valor com mais de 2 casas para o componente, exemplo 1578,55

Portando não trata-se de arredondamento exemplo 1578,558


Sempre do um clear no componente (ACBrBoleto1.ListadeBoletos.Clear) antes de gerar o boleto.

[Juliana Tamizou]

Bom dia Lucas.

Você fez um teste com o demo?

Att.

[Lucas Fernando Matias]

No demo não deu o erro aqui no meu PC, só dá na máquina do Cliente, não dá em todos os boletos, é hora sim e hora não...

Eu estive analisando ontem a montagem do código de barras do boleto function TACBrBancoSantander.MontarCodigoBarras ( const ACBrTitulo: TACBrTitulo) : String;.
 

Nesta linha, reparei que dependendo das configurações do sistema operacional ele não retorna o valor com 2 casas decimais.

                      IntToStrZero(Round(ACBrTitulo.ValorDocumento*100),10) + //Valor nominal

 

então modifiquei para que não houvesse nenhuma alteração no valor, removia multiplicação por 100, formatei para ser apresentado com 2 casas decimais e removi todos os pontos e virgulas do valor.

                      IntToStrZero(
                                    StrToInt64(
                                               StringReplace(
                                                             StringReplace(
                                                                           FormatFloat('0.00', ACBrTitulo.ValorDocumento),
                                                                           '.', '', [rfReplaceAll]
                                                                          ),
                                                             ',', '', [rfReplaceAll]
                                                             )
                                               ),
                                  10) + //Valor nominal

Está tudo funcionando normal depois desta alteração, 100% correto, porém gosto de deixar mais tempo em testes, vou confirmar semana que vem se está tudo correndo bem, mas já adianto que pela quantidade de boletos que já emitimos hoje, com certeza está funcionando.

OBS: No meu caso é o Santander.

[Juliomar Marchetti]

3.1 - Não faça flooding - Inundar o fórum com posts repetidos, com a mesma dúvida ou as mesmas palavras é chamado de flooding. Isso é proibido. Apenas um post feito no lugar certo é suficiente. Pesquise antes de postar, talvez sua dúvida já está respondida em outro post. Favor leia as regras do fórum.