Hsbc Com Alteração Na Unit Acbrutil

[nebrio]

Pessoal, 

Estava testando o sistema para retorno do banco HSBC, não sei que parte o sistema trata a data, pois, o HSBC está me retornando uma data 00/00/00 e depois dá erro na Função StringToDateTimeDef.

Para resolver provisoriamente alterei a função na Unit deixando-a como abaixo:

 

 

{-----------------------------------------------------------------------------
  Converte uma <DateTimeString> para TDateTime, semelhante ao StrToDateTimeDef,
  mas verifica se o seprador da Data é compativo com o S.O., efetuando a
  conversão se necessário. Se não for possivel converter, retorna <DefaultValue>
 ---------------------------------------------------------------------------- }
Function StringToDateTimeDef( const DateTimeString : String ;
   const DefaultValue : TDateTime; const Format : String = '' ) : TDateTime ;
begin
  try
    if (DateTimeString = '00/00/00') or (DateTimeString = '00/00/0000') then
     Result := StringToDateTime( DateToStr(now), Format )  else
     Result := StringToDateTime( DateTimeString, Format )
 
  except
     Result := DefaultValue ;
  end ;
end ;

 

Temporariamente resolvi meu problema, mas gostaria de saber como vocês tratam isso ou o HSBC de vocês não retorna nada do tipo.?

 

Obrigado a todos,