ICubeExecuteSetup.Count

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

Sub UserProc;
Var
    Mb: IMetabase;
    CubeInst: ICubeInstance;
    Dest: ICubeInstanceDestination;
    Sels: IDimSelectionSet;
    CubeExSet: ICubeExecuteSetup;
    DimSetup: ICubeExecuteDimSetup;
    Sel: IDimSelection;
    i: Integer;
Begin
    Mb := MetabaseClass.Active;
    CubeInst := Mb.ItemById("FC_DEP").Open(Null) As ICubeInstance;
    Dest := CubeInst.Destinations.DefaultDestination;
    Sels := Dest.CreateDimSelectionSet;
    CubeExSet := Sels As ICubeExecuteSetup;
    For i := 0 To CubeExSet.Count - 1 Do
        DimSetup := CubeExSet.Item(i);
        Sel := DimSetup.Selection;
        Debug.WriteLine(Sel.Dimension.Name);
    End For;
End Sub UserProc;