IRdsDictionaryElement.LevelNumber

Синтаксис Fore

LevelNumber: Integer;

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

LevelNumber: integer;

Описание

Свойство LevelNumber возвращает уровень элемента.

Комментарии

Для получения наименования элемента используйте свойство IRdsDictionaryElement.Name.

Пример Fore

Для выполнения примера предполагается наличие справочника НСИ с идентификатором «DIM», содержащего несколько элементов.

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

Sub UserProc;
Var
    MB: IMetabase;
    Dict: IRdsDictionary;
    Attrs: IRdsAttributes;
    DictInst: IRdsDictionaryInstance;
    Elements: IRdsDictionaryElements;
    Element: IRdsDictionaryElement;
Begin
    MB := MetabaseClass.Active;
    Dict := MB.ItemById("DIM").Bind As IRdsDictionary;
    Attrs := Dict.Attributes;
    DictInst := Dict.Open(Null);
    Elements := DictInst.Elements;
    Element := Elements.Item(3);
    Debug.WriteLine("Name = " + Element.Name +
        "; Level = " + Element.LevelNumber.ToString);
End Sub UserProc;

В результате выполнения примера в окно консоли будут выведены наименование и уровень третьего элемента справочника НСИ.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Rds;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Dict: IRdsDictionary;
    Attrs: IRdsAttributes;
    DictInst: IRdsDictionaryInstance;
    Elements: IRdsDictionaryElements;
    Element: IRdsDictionaryElement;
Begin
    MB := Params.Metabase;
    Dict := MB.ItemById["DIM"].Bind() As IRdsDictionary;
    Attrs := Dict.Attributes;
    DictInst := Dict.Open(Null);
    Elements := DictInst.Elements;
    Element := Elements.Item[3];
    System.Diagnostics.Debug.WriteLine("Name = " + Element.Name +
        "; Level = " + Element.LevelNumber.ToString());
End Sub;

См. также:

IRdsDictionaryElement