ICompoundSelection.Decompose

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

Sub UserProc;
Var
    Mb: IMetabase;
    Obj: IMetabaseObject;
    Cub: IVirtualCube;
    Dimension: ICompoundDimension;
    Cinstance: ICompoundDimensionInstance;
    Sel: ICompoundSelection;
Begin
    Mb := MetabaseClass.Active;
    Obj := Mb.ItemById("CUBE_VIRTUAL").Edit;
    Cub := Obj As IVirtualCube;
    Dimension := Cub.FactDimension As ICompoundDimension;
    Cinstance := (Dimension As IMetabaseObject).Open(Null) As ICompoundDimensionInstance;
    Sel := Cinstance.Selection.Item(0) As ICompoundSelection;
    If Not Sel.IsSingleSelected Then
        Sel.Decompose;
    End If;
    Obj.Save;
End Sub UserProc;