IEaxObject.Id

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

Sub UserProc;
Var
    MB: IMetabase;
    Rep: IPrxReport;
    PivSlice: IEaxDataAreaSlice;
    GridObject: IEaxObject;
    Grid: IEaxGrid;
    Tab: IPrxTable;
    Sheet: ITabSheet;
    Range: ITabRange;
Begin
    // Получим репозиторий
    MB := MetabaseClass.Active;
    // Получим экспресс-отчет
    Rep := MB.ItemById("REG_REPORT").Edit As IPrxReport;
    // Получим срез аналитической области данных
    PivSlice := Rep.DataArea.Slices.Item(0);
    // Создадим копию среза данных
    PivSlice.Copy(EaxSliceCopyOptions.All);
    // Получим объект для работы с таблицей
    GridObject := PivSlice.Views.Item(0) As IEaxObject;
    // Изменим идентификатор объекта
    If GridObject.Id.IsEmpty Then
        GridObject.Id := "GridTab";
    End If;
    // Отключим сохранение данных в источник
    GridObject.AllowSaveData := False;
    // Создадим копию таблицы
    Grid := PivSlice.Views.Item(0) As IEaxGrid;
    Tab := Rep.Sheets.Item(0) As IPrxTable;
    Sheet := Tab.TabSheet;
    Range := Sheet.ParseRange("A0:H6");
    Grid.Copy(Sheet, Range);
    // Сохраним изменения в экспресс-отчете
    (Rep As IMetabaseObject).Save;
End Sub UserProc;