anchor.diff:  
   uses
     System.SysUtils, System.Classes
  -  , Web.HTTPApp
     , Data.FireDACJSONReflect
   
     , MARS.Core.JSON
  
positive.code:   RESTInclude = class(RESTExposeAttribute);
    RESTExclude = class(RESTExposeAttribute);
  
    TMARSFDDataModuleResource = class(TDataModule)
    private
      function GetResourceName: string;
    protected
      [Context] Request: TWebRequest;
      [Context] URL: TMARSURL;
  
      procedure BeforeApplyUpdates(ADeltas: TFDJSONDeltas; ADelta: TFDMemTable;
  
negative.code:     procedure ApplyUpdates(ADeltas: TFDJSONDeltas;
        AOnApplyUpdates: TProc<string, Integer, IFDJSONDeltasApplyUpdates> = nil); virtual;
    public
      [GET]
      function Retrieve: TArray<TFDCustomQuery>; virtual;
  
      [POST]
      function Update([BodyParam] const AJSONDeltas: TJSONObject): TJSONArray; virtual;
  
    published
      property ResourceName: string read GetResourceName;
  