IRdsParamsControl.Link

Синтаксис Fore

Синтаксис

Link: Prognoz.Platform.Interop.Rds.IRdsLink;

Описание

Свойство Link возвращает объект-родитель.

Пример Fore

Для выполнения примера предполагается наличие репозитория НСИ с идентификатором «NSI_1», содержащего справочник НСИ с идентификатором «Dict_1» и формы с расположенной на ней кнопкой «Button1». Также следует подключить системные сборки Metabase, Dal и Rds. Пример является обработчиком события OnClick для кнопки.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dict: IRdsDictionary;
    Attrs: IRdsAttributes;
    Link: IRdsLink;
    Param: IRdsParam;
    ParamsControl: IRdsParamsControl;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemByIdNamespace("Dict_1", MB.ItemById("NSI_1").Key).Edit;
    Dict := MObj As IRdsDictionary;
    Attrs := Dict.Attributes;
    Link := Dict.Links.FindByAttribute(Attrs.FindById("LINK_ATTRIBUTE"));
    Param := Link.Reference.Dictionary.Params.Item(0);
    ParamsControl := Link.ParamsControl;
    text:=ParamsControl.Link.Name;
End Sub Button1OnClick;

После выполнения примера при нажатии кнопки в заголовок формы будет выводиться наименование объекта-родителя.

Пример Fore.NET

Для выполнения примера предполагается наличие репозитория НСИ с идентификатором «NSI_1», содержащего справочник НСИ с идентификатором «Dict_1» и формы с расположенной на ней кнопкой «button1». Также следует подключить системные сборки Dal и Rds. Пример является обработчиком события Click для кнопки.

Imports Prognoz.Platform.Interop.Dal;
Imports Prognoz.Platform.Interop.Rds;

...

Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dict: IRdsDictionary;
    Attrs: IRdsAttributes;
    Link: IRdsLink;
    Param: IRdsParam;
    ParamsControl: IRdsParamsControl;
Begin
    MB := self.Metabase;
    MObj := MB.ItemByIdNamespace["Dict_1", MB.ItemById["NSI_1"].Key].Edit();
    Dict := MObj As IRdsDictionary;
    Attrs := Dict.Attributes;
    Link := Dict.Links.FindByAttribute(Attrs.FindById("LINK_ATTRIBUTE"));
    Param := Link.Reference.Dictionary.Params.Item[0];
    ParamsControl := Link.ParamsControl;
    text:=ParamsControl.Link.Name;
End Sub;

См. также:

IRdsParamsControl