IRdsParamsControlInstance.ControlState

Синтаксис Fore

ControlState: DictionaryParamsControlState;

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

ControlState: Prognoz.Platform.Interop.Rds.DictionaryParamsControlState;

Описание

Свойство ControlState возвращает текущее состояние объекта, осуществляющего управление значениями параметров связанного справочника.

Пример Fore

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

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

Sub btnPStateOnClick(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;
    Text := DictInst.Links.Item(0).ParamsControl(ElData).ControlState.ToString;
End Sub btnPStateOnClick;

После выполнения примера при нажатии кнопки в заголовок формы будет выведен код текущего состояния объекта (Значения параметров заданы и не изменились), осуществляющего управление значениями параметров связанного справочника.

Пример Fore.NET

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

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

...

Private Sub btnPState_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();
    Text := DictInst.Links.Item[0].ParamsControl[ElData].ControlState.ToString();
End Sub;

См. также:

IRdsParamsControlInstance