IDimLevelInstance.Level

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

Sub UserProc;
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    Levels: IDimLevelsInstance;
    Level: IDimLevelInstance;
    Lev: IDimLevel;
    s: String;
Begin
    MB:=MetabaseClass.Active;
    Dimen:=MB.ItemById("D_TO").Open(Null) As IDimInstance;
    Levels:=Dimen.Levels;
    Level:=Levels.Item(Levels.Count-1);
    Lev:=Level.Level;
    s:=Lev.Id;
End Sub UserProc;