IRdsDictionary.HasDefaultElement

Синтаксис

HasDefaultElement: Boolean;

HasDefaultElement(): boolean;

Описание

Метод HasDefaultElement устанавливает наличие элемента по умолчанию в справочнике НСИ.

Комментарии

Допустимые значения:

Пример

Для выполнения примера в репозитории предполагается наличие табличного справочника НСИ с идентификатором RDS_DICT_OBJ, с установленным элементом по умолчанию.

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

Sub UserProc;
Var
    MB: IMetabase;
    Obj: IMetabaseObject;
    Dict: IRdsDictionary;
Begin
    // Получаем текущий репозиторий
    MB := MetabaseClass.Active;
    // Получаем табличный справочник НСИ
    Obj := MB.ItemById("RDS_DICT_OBJ").Edit;
    Dict := Obj As IRdsDictionary;
    // Проверим наличие элемента по умолчанию
    Debug.WriteLine(Dict.HasDefaultElement.ToString);
    // Удалим установку элемента по умолчанию
    Dict.ResetDefaultElement;
    // Сохраняем справочник
    Obj.Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Rds;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Obj: IMetabaseObject;
    Dict: IRdsDictionary;
Begin
    // Получаем текущий репозиторий
    MB := Params.Metabase;
    // Получаем табличный справочник НСИ
    Obj := MB.ItemById["RDS_DICT_OBJ"].Edit();
    Dict := Obj As IRdsDictionary;
    // Проверим наличие элемента по умолчанию
    system.Diagnostics.Debug.WriteLine(Dict.HasDefaultElement().ToString());
    // Удалим установку элемента по умолчанию
    Dict.ResetDefaultElement();
    // Сохраняем справочник
    Obj.Save();
End Sub;

В результате выполнения примера в окно консоли будет выведена информация, что в справочнике установлен элемент по умолчанию и будет удалена установка элемента.

См. также:

IRdsDictionary