Bläddra i källkod

* Merging revisions r43697 from trunk:
------------------------------------------------------------------------
r43697 | michael | 2019-12-18 13:14:51 +0100 (Wed, 18 Dec 2019) | 1 line

* Fix currency to SQL_NUMERIC_STRUCT for platforms without extended
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@43729 -

michael 5 år sedan
förälder
incheckning
8468db2175
1 ändrade filer med 1 tillägg och 1 borttagningar
  1. 1 1
      packages/odbc/src/odbcsql.inc

+ 1 - 1
packages/odbc/src/odbcsql.inc

@@ -1962,7 +1962,7 @@ begin
     Result.sign:=0;
     c := -c;
   end;
-  n := NtoLE(Trunc(c*10000));
+  n := NtoLE(Trunc(c)*10000 + Round(Frac(c)*10000));
   for i:=0 to high(Result.val) do begin
     Result.val[i] := n and $ff;
     n := n shr 8;