anchor.diff:      ID: Integer;
       SelectProperty: string;
       PropertyDescription: string;
  +    Editable: Integer;
     public
       function ReadFromMetaObjectsEntry(const aMetaObjectsEntry: TMetaObjectsEntry): Boolean; //returns true if property not null
     end;
  
positive.code: 
  function TUSBuilderProperty.AddValue(const aValue: string): Boolean;
  begin
  
  end;
  
  function TUSBuilderProperty.getJSON: string;
  begin
  
  end;
  
  function TUSBuilderProperty.Open: Boolean;
  
negative.code:   private
      fTableName: string;
      fOpenProperties: Integer;
      fProperties: TObjectDictionary<string, TUSBuilderProperty>;
    protected
      function QueryDB(aOraSession: TOraSession; const aObjectIds: string): Boolean; //returns true if all properties are "closed"
      procedure BuildProperties(aOraSession: TOraSession; aSelectedObjects: TArray<string>);
    public
      procedure AddProperty(const aSelectProperty: TSelectProperty);
      function AddValue(const aPropertyName, aValue: string): Boolean; //returns true if all properties are "closed"
      function GetJSON: string;
      function Open: Boolean;
    end;
  
  