* Need fielddefs

(cherry picked from commit 1b4ad74b68894681b8a521c02b7469e0a354bfa7)

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

@@ -128,6 +128,7 @@ Type
     Constructor Create(AOwner : TComponent); override;
     Destructor Destroy; override;
     Class Function NeedsSQL: Boolean; override;
+    Class Function NeedsFieldDefs : Boolean; override;
     Property SafeOpts : TGenTypeSafeDatasetOptions Read GetSafeOpts;
   end;
 
@@ -818,6 +819,12 @@ begin
   Result:=True;
 end;
 
+Class Function TDDTypeSafeDatasetCodeGenerator.NeedsFieldDefs : Boolean; 
+
+begin
+  Result:=True;
+end;
+
 { TGenTypeSafeDatasetOptions }
 
 function TGenTypeSafeDatasetOptions.GetInterfaceName: String;