소스 검색

* 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 년 전
부모
커밋
fdd8ad7608
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      packages/fcl-db/src/sqldb/oracle/oracleconnection.pp

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

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