IPivot.TableNoData

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

Public Sub Check_TableNoData(Is_Edit: Boolean);
Var
    Mb: IMetabase;
    Obj: IMetabaseObjectDescriptor;
    Report: IPrxReport;
    Pivot: IPivot;
    PivotTable: IPivotTable;
    DataArea: IEaxDataArea;
    Slice: IEaxDataAreaSlices;
    SliceItem: IEaxDataAreaSlice;
    RowCount: Integer;
    ColumnCount: Integer;
Begin
    // Получим репозиторий
    Mb := MetabaseClass.Active;
    // Получим регламентный отчёт
    Obj := Mb.ItemById("REGULAR_REPORT");
    // Откроем отчёт на редактирование, если в процедуру передано значение True
    If Is_Edit = True Then
        Report := Obj.Edit As IPrxReport;
    Else
        // Откроем отчёт на просмотр
        Report := Obj.Open(Null) As IPrxReport;
    End If;
    // Получим область данных регламентного отчёта
    DataArea := Report.DataArea;
    // Получим коллекцию срезов области данных
    Slice := DataArea.Slices;
    // Выберем первый срез области данных
    SliceItem := Slice.Item(0);
    // Создадим основу для получения таблицы из среза области данных
    Pivot := (SliceItem As IEaxDataAreaPivotSlice).Pivot;
    // Получим таблицу из среза области данных
    PivotTable := Pivot.TableNoData;
    // Выведем в консоль соответствующее сообщение, если таблицу получить не удалось
    If PivotTable = Null Then
        Debug.WriteLine("Не удалось получить таблицу данных!");
    Else
        // Выведем в консоль количество строк таблицы
        RowCount := PivotTable.RowCount;
        Debug.WriteLine("Количество строк таблицы: " + RowCount.ToString);
        // Выведем в консоль количество столбцов таблицы
        ColumnCount := PivotTable.ColumnCount;
        Debug.WriteLine("Количество столбцов таблицы: " + ColumnCount.ToString);
    End If;
    Debug.WriteLine("===============================================");
End Sub Check_TableNoData;

Public Sub UserProc;
Begin
    // Выведем в консоль сообщение о получении таблицы без возможности редактирования
    Debug.WriteLine("ПОЛУЧИМ ТАБЛИЦУ БЕЗ ВОЗМОЖНОСТИ РЕДАКТИРОВАНИЯ");
    // Вызовем процедуру Check_TableNoData с атрибутом False
    Check_TableNoData(False);
    // Выведем в консоль сообщение о получении таблицы с возможностью редактирования
    Debug.WriteLine("ПОЛУЧИМ ТАБЛИЦУ С ВОЗМОЖНОСТЬЮ РЕДАКТИРОВАНИЯ");
    // Вызовем процедуру Check_TableNoData с атрибутом True
    Check_TableNoData(True);
End Sub UserProc;