anchor.diff:    RESTInclude = class(RESTExposeAttribute);
     RESTExclude = class(RESTExposeAttribute);
   
  +  [Produces(TMediaType.APPLICATION_JSON), Consumes(TMediaType.APPLICATION_JSON)]
     TMARSFDDataModuleResource = class(TDataModule)
     private
       function GetResourceName: string;
     protected
  -    [Context] Request: TWebRequest;
       [Context] URL: TMARSURL;
   
       procedure BeforeApplyUpdates(ADeltas: TFDJSONDeltas; ADelta: TFDMemTable;
  
positive.code: 
  uses
    System.SysUtils, System.Classes
    , Web.HTTPApp
    , Data.FireDACJSONReflect
  
    , MARS.Core.JSON
  
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;
  