Настройка среза данных, области данных, аналитической области данных

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

Sub UserProc;
Var
    MB: IMetabase;
    MObj: IMetabaseObject;
    Report: IPrxReport;
    DtSources: IPrxDataSources;
    DtSource: IPrxDataSource;
    Slices: IPrxSlices;
    Slice: IPrxSlice;

    DataIsland: IPrxDataIslands;
    DI: IPrxDataIsland;
    Range: ITabRange;
Begin
    MB := MetabaseClass.Active;
    MObj := MB.ItemById("REPORT_INTRO").Edit;
    Report := MObj As IPrxReport;
    // Добавление среза:
    DtSources := Report.DataSources;
    DtSource := DtSources.Item(0);
    Slices := DtSource.Slices;
    Slice := Slices.Add;

    Slice.Execute;
    // Добавление области данных:
    DataIsland := Report.DataIslands;
    DI := DataIsland.Add;
    // Выбор листа отчета:
    DI.Sheet := Report.Sheets.Item(0);
    // Определение среза, являющегося источником для области данных:
    DI.Slice := DtSource.Slices.Item(0);
    // Определение диапазона ячеек, в котором расположена область данных:
    Range := Report.ParseCell(DI.Sheet.Name+"!A0").Range;
    DI.Range := Range;
    MObj.Save;
End Sub UserProc;

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

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    DA: IEaxDataArea;
    Slice: IEaxDataAreaSlice;
    DtSource: IPrxDataSource;
    Pivot: IPivot;
    CubeInst: ICubeInstance;
    View: IEaxObject;
    Sheet: IPrxSheet;
    Table: ITabSheet;
    Grid: IEaxGrid;
    Style: IEaxTableStyle;
    Rect: IGxRect;
    ViewSets: IEaxGridViewSettings;
    T_Header, L_Header: IDataAreaHeaderSettingsBase;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим регламентный отчет
    Report := MB.ItemById("REPORT").Edit As IPrxReport;
    // Получим аналитическую область данных
    DA := Report.DataArea;
    DA.Clear;
    Report.DataSources.Clear;
    // Добавим срез данных
    Slice := DA.Slices.Add(EaxDataAreaSliceType.Pivot);
    Slice.CreateSource;
    // Получим основу для таблицы
    Pivot := (Slice As IEaxDataAreaPivotSlice).Pivot;
    // Получим источник
    CubeInst := MetabaseClass.Active.ItemById["CUBE_SEP"].Open(Null) As ICubeInstance;
    // Разместим источник в основе для таблицы
    Pivot.DataSource := CubeInst.Destinations.DefaultDestination As IMatrixDataSource;
    DtSource := Report.DataSources.Add(Pivot.DataSource);
    // Установим в отметку измерений элементы
    Pivot.Selection.Item(0).SelectElement(0, False);
    Pivot.Selection.Item(1).SelectLevel(0);
    Pivot.Selection.Item(2).SelectElement(0, False);
    Pivot.Selection.Item(3).SelectChildren(1, False);
    Pivot.Selection.Item(4).SelectElement(0, False);
    // Установим измерения в заголовки таблицы
    Pivot.TopHeader.AddDim(Pivot.DimItem(1)); // Календарь
    Pivot.LeftHeader.AddDim(Pivot.DimItem(3)); // Территориальные образования
    Pivot.FixedHeader.AddDim(Pivot.DimItem(2)); // СЭП
    Pivot.FixedHeader.AddDim(Pivot.DimItem(0)); // Факты
    Pivot.FixedHeader.AddDim(Pivot.DimItem(4)); // Типы данных
    // Создадим представление таблицы
    Report.Sheets.Remove(1);
    View := Slice.Views.AddByType(EaxObjectType.Grid);
    Grid := View As IEaxGrid;
    Grid.Pivot := Pivot;
    // Добавим лист и поместим на него таблицу
    Sheet := Report.Sheets.Add("Лист2");
    Table := (Sheet As IPrxTable).TabSheet;
    Grid.TabSheet := Table;
    // Установим оформление таблицы
    Style := Grid.Style;
    Style.TableStyle.AssignPredefined(TabTablePredefinedStyle.ExtBlue);
    // Установим диапазон таблицы
    Rect := New GxRect.Create(0, 3, 0, 3);
    (View As IEaxGrid).OutputRect := Rect;
    // Установим методы вставки
    ViewSets := Grid.ViewSettings;
    T_Header := Grid.Pivot.TopHeader As IDataAreaHeaderSettingsBase;
    (ViewSets.GetViewSettings(T_Header) As IEaxGridHeaderSettings).Behaviour := EaxGridHeaderBehaviour.Insert;
    L_Header := Grid.Pivot.LeftHeader As IDataAreaHeaderSettingsBase;
    (ViewSets.GetViewSettings(L_Header) As IEaxGridHeaderSettings).Behaviour := EaxGridHeaderBehaviour.Insert;
    // Обновим отчет и сохраним изменения
    Report.Recalc;
    (Report As IMetabaseObject).Save;
End Sub UserProc;