IEaxGrid.UpdateData

UpdateData (Value: IDimSelectionSet; [Options: EaxGridUpdateDataOptions = 0]);

UpdateData (Value: Prognoz.Platform.Interop.Dimensions.IDimSelectionSet; [Options: Prognoz.Platform.Interop.Express.EaxGridUpdateDataOptions = 0]);

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    PivSlice: IEaxDataAreaSlice;
    Grid: IEaxGrid;
    SelSet: IDimSelectionSet;
    Sel: IDimSelection;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим регламентный отчет
    Report := MB.ItemById("REPORT").Edit As IPrxReport;
    //Получим срез аналитической области данных
    PivSlice := Report.DataArea.Slices.Item(0);
    // Получим представление таблицы
    Grid := PivSlice.Views.Item(0) As IEaxGrid;
    // Зададим отметку среза
    SelSet := PivSlice.Selection.CreateCopy;
    // Выделим все элементы
    For Each Sel In SelSet Do
        Sel.SelectAll;
    End For;
    // Обновляем права доступа
    Grid.UpdateData(SelSet, EaxGridUpdateDataOptions.DataRights);
    // Сохраняем отчет
    (Report As IMetabaseObject).Save;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Dimensions;
Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Report;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Report: IPrxReport;
    PivSlice: IEaxDataAreaSlice;
    Grid: IEaxGrid;
    SelSet: IDimSelectionSet;
    Sel: IDimSelection;
Begin
    // Получим репозиторий
    MB := Params.Metabase;
    // Получим регламентный отчет
    Report := MB.ItemById["REPORT"].Edit() As IPrxReport;
    //Получим срез аналитической области данных
    PivSlice := Report.DataArea.Slices.Item[0];
    // Получим представление таблицы
    Grid := PivSlice.Views.Item[0] As IEaxGrid;
    // Зададим отметку среза
    SelSet := PivSlice.Selection.CreateCopy();
    // Выделим все элементы
    For Each Sel In SelSet Do
        Sel.SelectAll();
    End For;
    // Обновляем права доступа
    Grid.UpdateData(SelSet, EaxGridUpdateDataOptions.egudoDataRights);
    // Сохраняем отчет
    (Report As IMetabaseObject).Save();
End Sub;