* Need fielddefs

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

@@ -51,6 +51,7 @@ Type
     procedure CreateFieldMapImplementation(Strings: TStrings; const ObjectClassName, MapClassName: String);
     Property FieldMapOpts : TGenFieldMapOptions Read Getopt;
   Public
+    Class function NeedsFieldDefs: Boolean; override;
     procedure CreateFieldMapDeclaration(Strings: TStrings; const ObjectClassName,MapClassName, MapAncestorName: String);
   end;
 
@@ -216,6 +217,11 @@ begin
     end;
 end;
 
+class function TDDBaseFieldMapCodeGenerator.NeedsFieldDefs: Boolean;
+begin
+  Result:=True;
+end;
+
 procedure TDDBaseFieldMapCodeGenerator.WriteFillMethod(Strings: TStrings; const ObjectClassName, MapClassName: String);
 
 Const