ICubeSelectionControlApply.Apply

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

Sub UserProc;
Var
    MB: IMetabase;
    Cube: ICubeModel;
    CubeInst: ICubeInstance;
    Ap: ICubeSelectionControlApply;
    Se: IDimSelection;
Begin
    MB := MetabaseClass.Active;
    Cube := MB.ItemById("CUBE_SEP").Bind As ICubeModel;
    CubeInst := (Cube As IMetabaseObject).Open(Null) As ICubeInstance;
    //Режим сортировки списка измерений
    Ap := Cube.SelectionControl.CreateApply(SelectionControlApplyMode.Sort);
    Ap.SourceSelection := CubeInst.Destinations.DefaultDestination.CreateDimSelectionSet;
    Debug.WriteLine("---Исходный список---");
    For Each Se In Ap.SourceSelection Do
        Debug.WriteLine(Se.Dimension.Name);
    End For;
    Ap.Apply;
    Debug.WriteLine("---Список после сортировки---");
    For Each Se In Ap.ResultSelection Do
        Debug.WriteLine(Se.Dimension.Name);
    End For;
End Sub UserProc;