IRdsParamsControl.Reset

Синтаксис Fore

Reset;

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

Reset();

Описание

Метод Reset осуществляет сброс привязки всех параметров параметрического справочника.

Комментарии

Для получения настроек привязки параметров используйте свойство IRdsLink.ParamsControl.

Пример Fore

Для выполнения примера предполагается наличие репозитория НСИ с идентификатором «NSI_LINK», содержащего справочник НСИ с идентификатором «DICT». В справочнике должен быть добавлен атрибут для связи с параметрическим справочником и настроена привязка атрибута к параметру другого справочника. Пример создания такого справочника приведен в описании свойства IRdsLink.ParamsControl.

Добавьте ссылки на системные сборки Metabase, Rds.

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dict: IRdsDictionary;
    Attrs: IRdsAttributes;
    Link: IRdsLink;
    Param: IRdsParam;
    ParamsControl: IRdsParamsControl;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemByIdNamespace("DICT", MB.ItemById("NSI_LINK").Key).Edit;
    Dict := MObj As IRdsDictionary;
    Attrs := Dict.Attributes;
    Link := Dict.Links.FindByAttribute(Attrs.FindById("LINKATTR"));
    Param := Link.Reference.Dictionary.Params.Item(0);
    ParamsControl := Link.ParamsControl;
    ParamsControl.Reset;
    MObj.Save;
End Sub UserProc;

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

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Rds;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Dict: IRdsDictionary;
    Attrs: IRdsAttributes;
    Link: IRdsLink;
    Param: IRdsParam;
    ParamsControl: IRdsParamsControl;
Begin
    MB := Params.Metabase;
    MObj := MB.ItemByIdNamespace["DICT", MB.ItemById["NSI_LINK"].Key].Edit();
    Dict := MObj As IRdsDictionary;
    Attrs := Dict.Attributes;
    Link := Dict.Links.FindByAttribute(Attrs.FindById("LINKATTR"));
    Param := Link.Reference.Dictionary.Params.Item[0];
    ParamsControl := Link.ParamsControl;
    ParamsControl.Reset();
    MObj.Save();
End Sub;

См. также:

IRdsParamsControl