ICompoundDimensionInstance.Type

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

Sub UserProc;
Var
    MB: IMetabase;
    Cube: IVirtualCube;
    CDim: ICompoundDimension;
    CDimInst: ICompoundDimensionInstance;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим виртуальный куб
    Cube := MB.ItemById("VIRT_CUBE").Edit As IVirtualCube;
    // Получим данные составного измерения фактов
    CDim := Cube.FactDimension As ICompoundDimension;
    CDimInst := (CDim As IMetabaseObject).Open(Null) As ICompoundDimensionInstance;
    Select Case CDimInst.Type
        Case DimCompoundDimensionType.Compound: Debug.WriteLine("Тип составного измерения - обычный");
        Case DimCompoundDimensionType.MetaCompound: Debug.WriteLine("Тип составного измерения - метаиерархия");
        Case DimCompoundDimensionType.SideHeaderCompound: Debug.WriteLine("Тип составного измерения - измерение боковика");
    End Select;
End Sub UserProc;