IEaxDataAreaPivotSlice.Pivot

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

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    DataArea: IEaxDataArea;
    RepGrid, EaxGrid: IEaxGrid;
    PivSlice, Slice: IEaxDataAreaPivotSlice;
    Pivot: IPivot;
    CombSel: IDimSelection;
    Express: IEaxAnalyzer;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим аналитическую область данных регламентного отчёта
    Report := MB.ItemById("REPORT").Edit As IPrxReport;
    DataArea := Report.DataArea;
    // Получим представление данных - таблицу
    RepGrid := DataArea.Views.Item(0) As IEaxGrid;
    // Получим основу для построения среза аналитической области данных
    PivSlice := DataArea.Slices.Item(0) As IEaxDataAreaPivotSlice;
    // Выведем в консоль количество измерений
    Pivot := PivSlice.Pivot;
    Debug.WriteLine("Количество измерений = " + Pivot.DimCount.ToString);
    // Выведем в консоль отметку измерений метрик
    CombSel := PivSlice.CombinedIndicatorSelection;
    Debug.WriteLine("Элементы отметки измерения метрик = " + CombSel.ToString("", ", ", False));
    // Получим экспресс-отчёт
    Express := MB.ItemById("EXPRESS").Bind As IEaxAnalyzer;
    // Получим основу для построения среза
    Slice := Express.DataArea.Slices.Item(0) As IEaxDataAreaPivotSlice;
    // Получим таблицу экспресс-отчёта
    EaxGrid := Express.Grid;
    // Применим срез и представление данных
    PivSlice.Apply(Slice, EaxPivotSliceApplyOptions.Default_);
    RepGrid.Apply(EaxGrid, EaxGridApplyOptions.Default_);
    (Report As IMetabaseObject).Save;
End Sub UserProc;