From 1d0db2cc85883818f31dad0c5178bfa98225ceff Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Fri, 12 Mar 2010 20:41:35 +0000
Subject: [PATCH]  * Map time fields to ftTime, so that field.asstring does not
 show the date-part, bug #14901

git-svn-id: trunk@15007 -
---
 packages/fcl-db/src/sqldb/interbase/ibconnection.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/fcl-db/src/sqldb/interbase/ibconnection.pp b/packages/fcl-db/src/sqldb/interbase/ibconnection.pp
index b84642faf1..8747e0ea47 100644
--- a/packages/fcl-db/src/sqldb/interbase/ibconnection.pp
+++ b/packages/fcl-db/src/sqldb/interbase/ibconnection.pp
@@ -458,9 +458,9 @@ begin
         TrLen := SQLLen;
       end;
     SQL_TYPE_DATE :
-      TrType := ftDate{Time};
+      TrType := ftDate;
     SQL_TYPE_TIME :
-        TrType := ftDateTime;
+        TrType := ftTime;
     SQL_TIMESTAMP :
         TrType := ftDateTime;
     SQL_ARRAY :