IRdsParamsControlInstance.Link

Синтаксис Fore

Синтаксис Fore.NET

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

Описание

Свойство Link возвращает связь со справочником, параметрами которого необходимо управлять.

Пример Fore

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «btnPLink», репозитория НСИ с идентификатором «NSI_1», содержащего справочник НСИ с идентификатором «MAINDICT». В справочнике имеется атрибут с идентификатором «PARAM_ATTR», с помощью которого осуществляется управление параметром связанного справочника. Необходимо подключить системные сборки Metabase, Rds, Forms.

Пример является обработчиком события OnClick для кнопки.

Sub btnPLinkOnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Mb: IMetabase;
    Dict: IRdsDictionary;
    DictInst: IRdsDictionaryInstance;
    ElData: IRdsDictionaryElementData;
Begin
    Mb := MetabaseClass.Active;
    Dict := Mb.ItemByIdNamespace("MAINDICT", Mb.GetObjectKeyById("NSI_1")).Bind As IRdsDictionary;
    DictInst := Dict.Open(Null);
    ElData := DictInst.CreateElementData;
    ElData.Attribute(Dict.Attributes.FindById("PARAM_ATTR").Key) := 0;
    Text := DictInst.Links.Item(0).ParamsControl(ElData).Link.Id;
End Sub btnPLinkOnClick;

После выполнения примера в заголовок формы будет выведен идентификатор связи со справочником, параметрами которого осуществляется управление.

Пример Fore.NET

Пример является обработчиком события Click для кнопки.

Imports Prognoz.Platform.Forms.Net;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Rds;

...

Private Sub btnPLink_Click(sender: System.Object; e: System.EventArgs);
Var
    Mb: IMetabase;
    Dict: IRdsDictionary;
    DictInst: IRdsDictionaryInstance;
    ElData: IRdsDictionaryElementData;
Begin
    Mb := Self.Metabase;
    Dict := Mb.ItemByIdNamespace["MAINDICT", Mb.GetObjectKeyById("NSI_1")].Bind() As IRdsDictionary;
    DictInst := Dict.Open(Null);
    ElData := DictInst.CreateElementData();
    ElData.Attribute[Dict.Attributes.FindById("PARAM_ATTR").Key] := 0;
    Text := DictInst.Links.Item[0].ParamsControl[ElData].Link.Id;
End Sub;

См. также:

IRdsParamsControlInstance