IDimLevelInstance.Elements

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

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