From 09f624b8cfa5bdb607b99a8186af097d176e53c0 Mon Sep 17 00:00:00 2001 From: "Alexander S.Kresin" Date: Mon, 19 Jul 2004 13:05:07 +0000 Subject: [PATCH] 2004-07-19 17:05 UTC+0300 Alexander Kresin --- harbour/ChangeLog | 5 +++++ harbour/contrib/mysql/tmysql.prg | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 45c43632b3..d9c58c0bf7 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,11 @@ 2002-12-01 23:12 UTC+0100 Foo Bar */ +2004-07-19 17:05 UTC+0300 Alexander Kresin + * contrib/mysql/tmysql.prg + ! Added checking for decimal field type in :GetRow() and :GetBlankRow() - + provided by Mitja Podgornik + 2004-07-19 12:15 UTC+0100 Ryszard Glab * doc/whatsnew.txt *added some items and divided into few sections diff --git a/harbour/contrib/mysql/tmysql.prg b/harbour/contrib/mysql/tmysql.prg index 8eafe81e32..12845ad239 100644 --- a/harbour/contrib/mysql/tmysql.prg +++ b/harbour/contrib/mysql/tmysql.prg @@ -504,7 +504,8 @@ METHOD GetRow(nRow) CLASS TMySQLQuery case ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_SHORT_TYPE .OR.; ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_LONG_TYPE .OR.; ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_LONGLONG_TYPE .OR.; - ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_INT24_TYPE + ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_INT24_TYPE .OR. ; + ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_DECIMAL_TYPE aRow[i] := Val(aRow[i]) case ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_DOUBLE_TYPE .OR.; @@ -996,7 +997,8 @@ METHOD GetBlankRow() CLASS TMySQLTable case ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_SHORT_TYPE .OR.; ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_LONG_TYPE .OR.; ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_LONGLONG_TYPE .OR.; - ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_INT24_TYPE + ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_INT24_TYPE .OR. ; + ::aFieldStruct[i][MYSQL_FS_TYPE] == MYSQL_DECIMAL_TYPE aRow[i] := 0