IDimLevelInstance.LevelKey

Копировать пример

Sub UserProc;
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    Levels: IDimLevelsInstance;
    Level: IDimLevelInstance;
    i: Integer;
Begin
    MB:=MetabaseClass.Active;
    Dimen:=MB.ItemById("D_TO").Open(Null) As IDimInstance;
    Levels:=Dimen.Levels;
    Level:=Levels.Item(Levels.Count-1);
    i:=Level.LevelKey;
End Sub UserProc;