ObjectLinked: Boolean;
ObjectLinked: boolean;
Свойство ObjectLinked определяет, является ли атрибут табличного справочника НСИ ссылкой на объект репозитория.
Допустимые значения:
True. Атрибут является ссылкой на объект репозитория;
False. Атрибут не является ссылкой на объект репозитория.
Для выполнения примера предполагается наличие табличного справочника с идентификатором «DIM».
Добавьте ссылки на системные сборки Metabase, Rds.
Sub UserProc;
Var
MB: IMetabase;
rds: IRdsDictionary;
Attr: IRdsAttribute;
Begin
MB := MetabaseClass.Active;
rds := MB.ItemById("DIM").Edit As IRdsDictionary;
Attr := rds.Attributes.Add;
Attr.Name := "ATTR";
Attr.Id := "ATTR";
Attr.ObjectLinked := True;
(rds As IMetabaseObject).Save;
End Sub UserProc;
В результате выполнения примера в указанный справочник будет добавлен атрибут с идентификатором «ATTR», являющийся ссылкой на объект репозитория.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Rds;
…
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
rds: IRdsDictionary;
Attr: IRdsAttribute;
Begin
MB := Params.Metabase;
rds := MB.ItemById["DIM"].Edit() As IRdsDictionary;
Attr := rds.Attributes.Add();
Attr.Name := "ATTR";
Attr.Id := "ATTR";
Attr.ObjectLinked := True;
(rds As IMetabaseObject).Save();
End Sub;
См. также: