Erro ao ler arquivo OFX Santander - Invalid argument to date enconde

[Igor Cibiac]

Ao realizar a leitura de um arquivo OFX do banco santander, está sendo apresentado a mensagem Invalid argument to date enconde.

Verificado que o campo de data do arquivo não está com data e hora, há data e digitos(fator), o que gera o erro, pois tem uma função isUTC que faz um validação data ou fator.

Realizei uma alteração verificando o tomanho da texto do campo, entrando ou não na função e deu certo. 

Estou anexando a modifição realizada para verificação.

 

function IsUTC(const LLine: string; var LFuso: Extended): Boolean;
    var
      LInicio, LFim: integer;
      LTime: String;
    begin
      Result := Pos('GMT', LLine) > 0;
      if Result then
      begin
        LInicio := Pos('[', LLine);
        LFim := Pos(':', LLine);
        LFuso := StrToFloat(Copy(LLine, LInicio + 1, LFim - LInicio - 1));
        if Length(Copy(LLine, 0, LInicio - 1)) > 12 then ---> LINHA ADICIONADA
        begin
          LTime := Copy(LLine, 7, LInicio - 7);

          // Quando for mais que 6 dígitos, indica ser um horário e não um fator.
          // Assim, os dígitos 7 e 8 são o dia como em um datetime padrão.
          Result := (Length(LTime) <= 6);
        end
        else
          Result := False;
      end
      else
        LFuso := 0;
    end;

ACBrOFX.pas

[Igor Cibiac]

Em 24/09/2024 at 14:18, Igor Cibiac disse:

Ao realizar a leitura de um arquivo OFX do banco santander, está sendo apresentado a mensagem Invalid argument to date encode.

Verificado que o campo de data do arquivo não está com data e hora, há data e digitos(fator), o que gera o erro, pois tem uma função isUTC que faz um validação data ou fator.

Realizei uma alteração verificando o tomanho da texto do campo, entrando ou não na função e deu certo. 

Estou anexando a modifição realizada para verificação.

 

function IsUTC(const LLine: string; var LFuso: Extended): Boolean;
    var
      LInicio, LFim: integer;
      LTime: String;
    begin
      Result := Pos('GMT', LLine) > 0;
      if Result then
      begin
        LInicio := Pos('[', LLine);
        LFim := Pos(':', LLine);
        LFuso := StrToFloat(Copy(LLine, LInicio + 1, LFim - LInicio - 1));
        if Length(Copy(LLine, 0, LInicio - 1)) > 12 then ---> LINHA ADICIONADA
        begin
          LTime := Copy(LLine, 7, LInicio - 7);

          // Quando for mais que 6 dígitos, indica ser um horário e não um fator.
          // Assim, os dígitos 7 e 8 são o dia como em um datetime padrão.
          Result := (Length(LTime) <= 6);
        end
        else
          Result := False;
      end
      else
        LFuso := 0;
    end;

ACBrOFX.pas 11.08 kB · 0 downloads

Bom dia!

Conseguem analisar a questão?

[Juliomar Marchetti]

23 horas atrás, Igor Cibiac disse:

Bom dia!

Conseguem analisar a questão?

 Seu arquivo está com muitas diferenças no svn
faça copia do seu restaure ao estado que está no svn

e após aplique sua mudança e anexa novamente veja:

 

[Igor Cibiac]

Bom dia, segue arquivo com a modificação realizada.

 

ACBrOFX.pas

[Igor Cibiac]

Bom dia!

O arquivo anexado está com a formatação correta?

[Igor Cibiac]

Bom dia!

Algum retorno referente a modificação disponibilizada?

[Juliomar Marchetti]

Em 08/10/2024 at 08:37, Igor Cibiac disse:

Bom dia!

Algum retorno referente a modificação disponibilizada?

poderia anexar o OFX que veio do banco?

[Igor Cibiac]

Em 14/10/2024 at 15:58, Juliomar Marchetti disse:

poderia anexar o OFX que veio do banco?

Boa tarde!

Segue arquivo em anexo.

 

arquivo ofx.txt

[Juliomar Marchetti]

5 horas atrás, Igor Cibiac disse:

Boa tarde!

Segue arquivo em anexo.

 

arquivo ofx.txt 159.84 kB · 0 downloads

Certeza que é um arquivo direto e válido. pois a extensão dele seria OFX

e está como ENG a linguagem interna dele

[Igor Cibiac]

Sim, certeza.

Download realizado direto no Banco.

[Juliomar Marchetti]

Enfim, subi ao svn.

ficar atento pois se houver relatos de problemas será revertido o fonte

[Igor Cibiac]

Bom dia!

Tranquilo, sem problemas.

Mas realizei testes com outros arquivos e não houve incidência.

Mas agradeço a atenção.

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.