Alteração no Fator de Vencimento dos Boletos

[jerrivaldo]

O "Fator de Vencimento" das linhas digitáveis dos Boletos de Cobrança, atingirá o seu limite máximo em 21/02/2025.

A partir dessa data, a sequência do fator de vencimento deverá ser reiniciada para o algoritmo 1000 para os boletos com vencimento a partir de 22/02/2025, somando uma unidade para cada dia subsequente, a fim de não impactar a emissão dos boletos. Veja o exemplo:

• Vencimento 21/02/2025 = 9999
• Vencimento 22/02/2025 = 1000
• Vencimento 23/02/2025 = 1001
• Vencimento 24/02/2025 = 1002

Essa adequação no sistema do cliente é importante para que os bancos possam processar os pagamentos corretamente quando o cliente for realizá-los.

 

[jerrivaldo]

Para resolver o problema, agora vai ter que testar a data

function CalcularFatorVencimento(DataDesejada : TDateTime) : string;
begin
  if (DataDesejada < StrToDate('22/02/2025')) then
    Result := IntToStr( Trunc(DataDesejada - EncodeDate(1997,10,07)))
  else
    Result := IntToStr(Trunc(DataDesejada) -  44710);
end;

 

[BigWings]

 

[Antonio Gomes]

Isso já está ok não? Todos bancos estão mandando esse aviso, pelo teste meu, está ok já

[Juliomar Marchetti]

8 horas atrás, Antonio Gomes disse:

Isso já está ok não? Todos bancos estão mandando esse aviso, pelo teste meu, está ok já

já desde 2015

[Og1Systems]

Em 04/02/2025 at 09:07, Juliomar Marchetti disse:

já desde 2015

Quer dizer qua não precisaremos mudar nada em nossos códigos para atender esta mudança do dia 22/02/2025?

[Juliomar Marchetti]

23 minutos atrás, Og1Systems disse:

Quer dizer qua não precisaremos mudar nada em nossos códigos para atender esta mudança do dia 22/02/2025?

Sim

desde 2015 já existe o ajuste dentro do componente

[Roberto C Sence]

Em 03/02/2025 at 16:30, jerrivaldo disse:

Para resolver o problema, agora vai ter que testar a data

function CalcularFatorVencimento(DataDesejada : TDateTime) : string;
begin
  if (DataDesejada < StrToDate('22/02/2025')) then
    Result := IntToStr( Trunc(DataDesejada - EncodeDate(1997,10,07)))
  else
    Result := IntToStr(Trunc(DataDesejada) -  44710);
end;

 

olá tenho o gbboleto e altero essa rotina e nao da o resultado esperado, pode me ajudar?

 

[Juliomar Marchetti]

1 hora atrás, Roberto C Sence disse:

olá tenho o gbboleto e altero essa rotina e nao da o resultado esperado, pode me ajudar?

 

no ACBrBoleto componente está ok

agora esse outro componente não sei como funciona

[Antonio Gomes]

2 horas atrás, Roberto C Sence disse:

olá tenho o gbboleto e altero essa rotina e nao da o resultado esperado, pode me ajudar?

 

Muda para o acbr, quase igual, vai ser melhor, eu ja usei esse projeto, foi descontinuado né.

[BigWings]

3 horas atrás, Roberto C Sence disse:

olá tenho o gbboleto e altero essa rotina e nao da o resultado esperado, pode me ajudar?

 

{Rotinas auxiliares}

function CalcularFatorVencimento(DataDesejada: TDateTime): string;
begin
// {O fator de vencimento é a quantidade de dias entre 07/Nov/1997 e a data de vencimento do título}
//  Result := IntToStr(Trunc(DataDesejada - EncodeDate(1997, 10, 07)));
  if DataDesejada = 0 then
    Result := '0000'
  else
    Result := IntToStr(Trunc(DataDesejada - EncodeDate(2000, 07, 03)) mod 9000 + 1000);
end;