Add(Object: IMetabaseObjectDescriptor): IMetabaseCustomObjectReference;
Object - объект репозитория, от которого должен зависеть объект.
Метод Add осуществляет добавление зависимости в коллекцию.
Для выполнения примера предполагается наличие в репозитории объекта пользовательского класса с идентификатором «OBJ_CUSTOM» и объекта с идентификатором «OBJ_REF».
Добавьте ссылку на системную сборку Metabase.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
Mb: IMetabase;
Object: IMetabaseObject;
CustomObject: IMetabaseCustomObject;
Writer: IMetabaseCustomObjectWriter;
References: IMetabaseCustomObjectReferences;
Begin
Mb := MetabaseClass.Active;
Object := Mb.ItemById("OBJ_CUSTOM").Edit;
CustomObject := Object As IMetabaseCustomObject;
Writer := CustomObject.CreateWriter;
References := Writer.References;
References.Add(Mb.ItemById("OBJ_REF"));
Writer.Save;
Object.Save;
End Sub Button1OnClick;
После выполнения примера в список объектов, от которых зависит «OBJ_CUSTOM», будет добавлен объект «OBJ_REF».
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore. Вместо компонентов Fore используйте их Fore.NET аналоги.
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
Mb: IMetabase;
Object: IMetabaseObject;
CustomObject: IMetabaseCustomObject;
Writer: IMetabaseCustomObjectWriter;
References: IMetabaseCustomObjectReferences;
Begin
Mb := Self.Metabase;
Object := Mb.ItemById["OBJ_CUSTOM"].Edit();
CustomObject := Object As IMetabaseCustomObject;
Writer := CustomObject.CreateWriter();
References := Writer.References;
References.Add(Mb.ItemById["OBJ_REF"]);
Writer.Save();
Object.Save();
End Sub;
См. также: