ICubeExecuteDimSetup.GroupIndex

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

Sub UserProc;
Var
    Mb: IMetabase;
    CubeInst: ICubeInstance;
    Dest: ICubeInstanceDestination;
    Sels: IDimSelectionSet;
    CubeExSet: ICubeExecuteSetup;
    i: Integer;
    DimSetup: ICubeExecuteDimSetup;
    Exec: ICubeInstanceDestinationExecutor;
    Matr: IMatrix;
    b: Boolean;
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);
        Debug.WriteLine("Идентификатор: " + DimSetup.Id);
        Debug.WriteLine("Индекс группы: " + DimSetup.GroupIndex.ToString);
        Debug.WriteLine("Позиция в группе: " + DimSetup.Position.ToString);
        b := DimSetup.Options.Required = CubeDimensionExecuteOptions.Required;
        Debug.WriteLine(b ? "Обязательное измерение" : "Необязательное измерение");
        b := DimSetup.Predefined = Null;
        Debug.WriteLine(b ? "Нет предопределенных опций" : "Есть предопределенные опции");
        Select Case DimSetup.Tag
            Case CubeDimensionTag.Calendar: Debug.WriteLine("Календарное измерение");
            Case CubeDimensionTag.Facts: Debug.WriteLine("Измерение фактов");
            Case CubeDimensionTag.None: Debug.WriteLine("Тип измерения не определен");
            Case CubeDimensionTag.Units: Debug.WriteLine("Единицы измерения");
        End Select;
        DimSetup.Selection.SelectAll;
        Debug.WriteLine("------");
    End For;
    Exec := Dest.CreateExecutor;
    Exec.PrepareExecute(Sels);
    Exec.PerformExecute;
    Matr := Exec.Matrix;
End Sub UserProc;