Fator De Vencimento Após 9999

[BigWings]

Bom dia a todos.

 

O fator de vencimento, da maneira que é calculado no ACBrBoleto, gera um valor errado com datas de vencimento superiores a 21/02/2025, que é quando ele chegará a 9999.

 

Um novo algoritmo para vencimentos a partir de 22/02/2025 foi disponibilizada aqui:

 

http://www.abbc.org.br/images/content/manual%20operacional.pdf

 

Já implementei no meu código a alteração, segue anexo. 

ACBrBoleto.pas

[Leandro SSilva {0,1}]

Boa note, após a implementação desse calculo meus boletos ficaram louco, estou tendo uma dor de cabeça enorme, pois antes eu conseguia emitir boletos sem vencimento e valor 0,00 e tudo funcionava perfeito, agora emitindo da mesma forma está colocando 0290  nos ultimos digitos do boleto, alguem percebeu esse problema? como podemos resolver isso?

[Juliana Tamizou]

Boa tarde.

Pelo que me recordo os boletos sem valor e sem vencimento não devem mais ser emitidos.

Att.

[BigWings]

Não faço boletos sem vencimento, por isso não levei isso em consideração.

De fato a alteração que fiz ficou incompatível com a versão anterior, para datas de vencimento anteriores a 07/10/1997, onde apareceria 0000 (sem vencimento).

No manual que anexei consta o seguinte:

Quando a primeira posição do campo "valor" (fator de vencimento + valor) for zero, significa que no código de barras/linha digitável desse título, não consta o fator de vencimento.

Entretanto, já no parágrafo seguinte:

Bloquetos com vencimento "à vista" ou "na apresentação" - somam-se 15 dias corridos à "data do processamento". O resultado desta operação representa a data do vencimento, cujo fator correspondente deve constar no código de barras (posições 6 a 9) e na linha digitável (posições 34 a 37). 

 Não compreendi bem a diferença entre boletos sem vencimento, e os contra-apresentação...

De qualquer forma, estou anexando a unit para manter compatibilidade com o código anterior.

ACBrBoleto.pas

[aocampioni]

Estimado leandrox364,

Boa tarde. Não é mais permitido pelo branco (ops, banco) central a emissão de boletos sem vencimento (a vista ou 'contra apresentação) e sem valor (ou valor 0,00) desde 28/06/2013 se não me engano. Por isso que nos arquivos (ao menos no ACBrBoletoFCFortesFr) não há tratamento para essa situação.

Uma opção seria tratar nos fontes onde o caption das datas é preenchido algo do tipo assim:

 

........
      fBoletoFC.CarregaLogo( imgBanco2.Picture, Banco.Numero );
........
      txtDataVencimento2.Caption      := IfThen(Titulo.Vencimento > 0,FormatDateTime('dd/mm/yyyy', Titulo.Vencimento),'CONTRA APRESENTACAO');
........      

Mas é só uma opção. 

 

Até mais,

 

[Leandro SSilva {0,1}]

Boa noite a todos, todas as considerações são validas, porem gostaria de saber se vai ser possível fazer a compatibilidade? como o amigo postou o a correção, caso não seja possível terei que mexer no código do componente para atender a regra do cliente, e fica se atento toda vez que fizer um update no componente ficaria inviável, ou no pior dos caso falar pro cliente que não tem como mas emitir dessa forma e talvez perde-lo,

Desde já obrigado pela atenção e fico no aguardo.

[Juliana Tamizou]

Boa noite.

Aplicada alteração do Big Wigns afim de manter a compatibilidade para quem ainda emite boletos Contra-Apresentação.

Att.

 

[Leandro SSilva {0,1}]

Boa noite, venho agradecer a ajuda de todos e informar que a compatibilidade está funcionando.

Desde já muito obrigado pela atenção de todos.