IRdsParamsControlInstance.Data

Синтаксис Fore

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

Data: Prognoz.Platform.Interop.Rds.IRdsDictionaryElementData;

Описание

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

Пример Fore

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

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

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

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

Пример Fore.NET

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

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

...

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

См. также:

IRdsParamsControlInstance