IEaxDataAreaPivotSlice.CalcOnChangedData

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

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    DataArea: IEaxDataArea;
    RepGrid: IEaxGrid;
    PivSlice: IEaxDataAreaPivotSlice;
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;
    // Установим расчёт формул на измененных данных
    If (PivSlice.CalcOnChangedData = False) Then
        PivSlice.CalcOnChangedData := True;
    End If;
    // Сохраним отчёт
    (Report As IMetabaseObject).Save;
End Sub UserProc;