Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* Also for Oracle: TBCDField.Size should contain the amount of digits after the decimal-sign, not the full size (bug 11544)

git-svn-id: trunk@11279 -
joost 17 years ago
parent
cc08543f57
commit
fdd8ad7608
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/fcl-db/src/sqldb/oracle/oracleconnection.pp

+ 1 - 1
packages/fcl-db/src/sqldb/oracle/oracleconnection.pp
View File 

@@ -367,7 +367,7 @@ begin
 
                                 else if (oscale <=4) and (OPrecision<=12) then
 
                                 else if (oscale <=4) and (OPrecision<=12) then
 
                                   begin
 
                                   begin
 
                                   FieldType := ftBCD;
 
                                   FieldType := ftBCD;
 
-                                  FieldSize := sizeof(Currency);
 
+                                  FieldSize := oscale;
 
                                   OFieldType := SQLT_VNU;
 
                                   OFieldType := SQLT_VNU;
 
                                   OFieldSize:= 22;
 
                                   OFieldSize:= 22;
 
                                   end
 
                                   end