reintroduced TDDDRepositoryRestFactory.GetAggregateRTTIOptions virtua…

…l method

- deleted by error in latest commit

SQLite3/mORMotDDD.pas

@@ -493,6 +493,7 @@   TDDDRepositoryRestFactory = class(TInterfaceResolverForSingleInterface)
     procedure TablePropToAggregate(
       aRecord: TSQLRecord; aRecordProp: TSQLPropInfo;
       aAggregate: TObject; aAggregateProp: TSQLPropInfo); virtual;
+    function GetAggregateRTTIOptions: TSQLPropInfoListOptions; virtual;
     // main IoC/DI method, returning a TDDDRepositoryRest instance
     function CreateInstance: TInterfacedObject; override;
   public
@@ -1292,8 +1293,7 @@ constructor TDDDRepositoryRestFactory.Create(
   fPropsMapping.Init(aTable,RawUTF8(aAggregate.ClassName),aRest,false);
   fPropsMapping.MapFields(['ID','####']); // no ID/RowID for our aggregates
   fPropsMapping.MapFields(TableAggregatePairs);
-  fAggregateRTTI := TSQLPropInfoList.Create(aAggregate,
-    [pilAllowIDFields,pilSubClassesFlattening,pilIgnoreIfGetter]);
+  fAggregateRTTI := TSQLPropInfoList.Create(aAggregate, GetAggregateRTTIOptions);
   SetLength(fAggregateToTable,fAggregateRTTI.Count);
   SetLength(fAggregateProp,fAggregateRTTI.Count);
   ComputeMapping;
@@ -1311,6 +1311,11 @@ constructor TDDDRepositoryRestFactory.Create(const aInterface: TGUID;
   Create(aInterface,aImplementation,aAggregate,aRest,aTable,[],aOwner);
 end;
 
+function TDDDRepositoryRestFactory.GetAggregateRTTIOptions: TSQLPropInfoListOptions;
+begin
+  Result := [pilAllowIDFields,pilSubClassesFlattening,pilIgnoreIfGetter];
+end;
+
 destructor TDDDRepositoryRestFactory.Destroy;
 begin
   {$ifdef WITHLOG}

SynopseCommit.inc

@@ -1 +1 @@
-'1.18.5097'
+'1.18.5098'