IVirtualCube.IsFiltrationMatrix

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

Sub UserProc;
Var
    MB: IMetabase;
    Cube: IVirtualCube;
    CDim: ICompoundDimension;
    Params: IMetabaseObjectParamValues;
    CDimInst: ICompoundDimensionInstance;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим виртуальный куб
    Cube := MB.ItemById("VIRT_CUBE").Edit As IVirtualCube;
    // Включим составное измерение метаиерархии
    If Not Cube.IsMeta Then
        Cube.IsMeta := True;
    End If;
    // Фильтрация составного измерения метаиерархии по флагу виртуального куба
    If Not Cube.IsFiltrationMatrix Then
        Cube.IsFiltrationMatrix := True;
    End If;
    // Получим данные составного измерения
    CDim := Cube.FactDimension As ICompoundDimension;
    Params := (CDim As IMetabaseObject).Params.CreateEmptyValues;
    CDimInst := (CDim As IMetabaseObject).Open(Params) As ICompoundDimensionInstance;
    Select Case (CDimInst.Type As Integer)
        Case 1: Debug.WriteLine("Тип составного измерения - обычный");
        Case 2: Debug.WriteLine("Тип составного измерения - метаиерархия");
    End Select;
End Sub UserProc;