fcl-db: base: fix after adding new field types into enumeration TFieldType (in rev. 47217)

git-svn-id: trunk@47222 -

packages/fcl-db/src/codegen/fpddcodegen.pp

@@ -404,7 +404,8 @@ Var
     ptCustom, ptCustom, ptCustom, ptCustom, ptAnsiString,
     ptWideString, ptInt64, ptCustom, ptCustom, ptCustom,
     ptCustom, ptCustom, ptCustom, ptCustom, ptCustom,
-    ptCustom, ptAnsiString, ptDateTime, ptCurrency, ptWideString, ptWideString);
+    ptCustom, ptAnsiString, ptDateTime, ptCurrency, ptWideString, ptWideString,
+    ptDateTime, ptCustom, ptCustom, ptCustom, ptCustom, ptCustom);
     
   PropTypeToVisibilityMap : TPropertyVisibilityMap = (
     vPrivate,