ICompoundDimensionInstance.Type

Copy example

Sub UserProc;
Var
    MB: IMetabase;
    Cube: IVirtualCube;
    CDim: ICompoundDimension;
    CDimInst: ICompoundDimensionInstance;
Begin
    // Get repository
    MB := MetabaseClass.Active;
//Get virtual cube     Cube := MB.ItemById("VIRT_CUBE").Edit As IVirtualCube;
    // Get data of composite fact dimension
    CDim := Cube.FactDimension As ICompoundDimension;
    CDimInst := (CDim As IMetabaseObject).Open(Null) As ICompoundDimensionInstance;
    Select Case CDimInst.Type
        Case DimCompoundDimensionType.Compound: Debug.WriteLine("Composite dimension type - normal");
        Case DimCompoundDimensionType.MetaCompound: Debug.WriteLine("Composite dimension type - metahierarchy");
        Case DimCompoundDimensionType.SideHeaderCompound: Debug.WriteLine("Composite dimension type - sidehead dimension");
    End Select;
End Sub UserProc;