Add: IRdsLevel;
Метод Add добавляет уровень в справочник НСИ.
По умолчанию добавляется уровень с наименованием и идентификатором ITEM<порядковый номер>.
Для выполнения примера предполагается наличие в репозитории справочника НСИ с идентификатором DICT.
Добавьте ссылки на системные сборки: Metabase, Rds.
Sub UserProc;
Var
MB: IMetabase;
Dict: IRdsDictionary;
Levels: IRdsLevels;
Level: IRdsLevel;
Begin
// Получаем текущий репозиторий
MB := MetabaseClass.Active;
// Получаем справочник НСИ
Dict := MB.ItemById("DICT").Edit As IRdsDictionary;
// Получаем уровни справочника НСИ
Levels := Dict.Levels;
// Добавляем новый уровень
Level := Levels.Add;
Level.Id := "NEWLEVEL";
Level.Name := "Дополнительный уровень";
// Сохраняем справочник
(Dict As IMetabaseObject).Save;
End Sub UserProc;
В результате выполнения примера в справочник НСИ будет добавлен уровень с наименованием «Дополнительный уровень» и идентификатором NEWLEVEL.
См. также: