IEaxDataAreaPivotSlice.CalcOnChangedData

CalcOnChangedData: Boolean;

CalcOnChangedData: boolean;

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    DataArea: IEaxDataArea;
    RepGrid: IEaxGrid;
    PivSlice: IEaxDataAreaPivotSlice;
Begin
    // Get repository
    MB := MetabaseClass.Active;
    // Get analytical data area of regular report
    Report := MB.ItemById("REPORT").Edit As IPrxReport;
    DataArea := Report.DataArea;
    // Get data view - table
    RepGrid := DataArea.Views.Item(0) As IEaxGrid;
    // Get base for building analytical area slice
    PivSlice := DataArea.Slices.Item(0) As IEaxDataAreaPivotSlice;
    // Set formula calculation on changed data
    If (PivSlice.CalcOnChangedData = False) Then
        PivSlice.CalcOnChangedData := True;
    End If;
    // Save report
    (Report As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Report: IPrxReport;
    DataArea: IEaxDataArea;
    RepGrid: IEaxGrid;
    PivSlice: IEaxDataAreaPivotSlice;
Begin
    // Get repository
    MB := Params.Metabase;
    // Get analytical data area of regular report
    Report := MB.ItemById["REPORT"].Edit() As IPrxReport;
    DataArea := Report.DataArea;
    // Get data view - table
    RepGrid := DataArea.Views.Item[0] As IEaxGrid;
    // Get base for building analytical area slice
    PivSlice := DataArea.Slices.Item[0] As IEaxDataAreaPivotSlice;
    // Set formula calculation on changed data
    If (PivSlice.CalcOnChangedData = False) Then
        PivSlice.CalcOnChangedData := True;
    End If;
    // Save report
    (Report As IMetabaseObject).Save();
End Sub;