Получает количество встроенных таблиц.
Синтаксис
Количество()Полное описание, параметры и ограничения
КоллекцияВстроенныхТаблиц.Количество (EmbeddedTableCollection.Count)
КоллекцияВстроенныхТаблиц (EmbeddedTableCollection)
Количество (Count)
Доступен, начиная с версии 8.0.
Синтаксис:
Количество()
Возвращаемое значение:
Тип: Число.
Описание:
Получает количество встроенных таблиц.
Доступность:
Сервер, толстый клиент, внешнее соединение.
Использование в версии:
Доступен, начиная с версии 8.0.
Методическая информация
Практические примеры
Построить сводную таблицу из двух собственных товаров
Источник — запрос по собственной таблице в памяти. Итоги запроса определяют ресурсные поля Количество и Сумма; Товар используется как измерение строк.
Где и как запускать
Полный модуль управляемой формы собственной учебной внешней обработки. Построение выполняется на сервере без контекста; показ — на клиенте. Вставляйте на уровне модуля.
Подготовка
Создайте новую внешнюю обработку с управляемой основной формой в учебной базе. Каждый урок — отдельная копия модуля.
На форме создайте команду УчебныйПример и перетащите её на форму как кнопку. В действии команды выберите процедуру УчебныйПример(Команда).
Вставьте весь модуль из примера: УчебныйПример, ПостроитьУчебныйДокумент и УчебнаяТаблица. Серверный вызов возвращает собственный табличный документ клиенту; директивы не удаляйте.
Никакие макеты, документы и справочники конфигурации не нужны. Всё построение — в памяти, без печати, записи файлов и отправки в сервисы.
Показ и ручную проверку выполняйте в тонком клиенте Windows 8.5.1.1343. Каждый урок — отдельная копия формы с пустым модулем до вставки.
&НаКлиенте
Процедура УчебныйПример(Команда)
ТабДок = ПостроитьУчебныйДокумент();
ТабДок.Показать("Учебный документ — без печати и сохранения");
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПостроитьУчебныйДокумент()
ТабДок = Новый ТабличныйДокумент;
Источник = Новый ТаблицаЗначений;
Источник.Колонки.Добавить("Товар", Новый ОписаниеТипов("Строка"));
Источник.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число"));
Источник.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"));
СтрокаТовара = Источник.Добавить();
СтрокаТовара.Товар = "Книга";
СтрокаТовара.Количество = 3;
СтрокаТовара.Сумма = 750;
СтрокаТовара = Источник.Добавить();
СтрокаТовара.Товар = "Ручка";
СтрокаТовара.Количество = 1;
СтрокаТовара.Сумма = 50;
Менеджер = Новый МенеджерВременныхТаблиц;
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Менеджер;
Запрос.УстановитьПараметр("Источник", Источник);
Запрос.Текст = "ВЫБРАТЬ Д.Товар, Д.Количество, Д.Сумма
|ПОМЕСТИТЬ ВТУчебныеТовары ИЗ &Источник КАК Д;
|ВЫБРАТЬ Д.Товар, Д.Количество, Д.Сумма
|ИЗ ВТУчебныеТовары КАК Д
|ИТОГИ СУММА(Количество), СУММА(Сумма) ПО Товар";
Попытка
Пакет = Запрос.ВыполнитьПакет();
Результат = Пакет.Получить(1);
Исключение
Менеджер.Закрыть();
ВызватьИсключение;
КонецПопытки;
Менеджер.Закрыть();
Сводная = ТабДок.ВстроенныеТаблицы.Добавить(Тип("СводнаяТаблица"), ТабДок.Область(2, 1));
Сводная.Имя = "УчебныеТовары";
Сводная.ИсточникДанных = Результат;
Сводная.Строки.Добавить("Товар");
Сводная.Данные.Добавить("Количество");
Сводная.Данные.Добавить("Сумма");
Сводная.Обновить();
Сообщить(Источник.Итог("Количество") = 4);
Сообщить(Источник.Итог("Сумма") = 800);
Сообщить(Сводная.Строки.Количество() = 1);
Сообщить(Сводная.Данные.Количество() = 2);
Сообщить(ТабДок.ВстроенныеТаблицы.Количество() = 1);
Возврат ТабДок;
КонецФункции
Разбор по шагам
Создаём типизированную ТаблицаЗначений с книгой 3/750 и ручкой 1/50, без чтения базы.
Первый запрос помещает собственный источник во временную таблицу; второй формирует РезультатЗапроса с итогами по товару.
ВстроенныеТаблицы.Добавить принимает Тип("СводнаяТаблица"), а не вымышленное перечисление.
ИсточникДанных получает результат запроса; в строки добавляем измерение, в данные — ресурсы, затем обновляем.
Как проверить результат
Пять проверок Истина: количество 4, сумма 800, одно поле строк, два поля данных и одна встроенная таблица.
В клиентском показе проверьте строки Книга и Ручка; это ручная проверка, код платформой в этом руководстве не запускался.
Ожидаемый результат
Получена самостоятельная учебная сводная таблица без зависимости от рабочей конфигурации.
На что обратить внимание
ТаблицаЗначений не присваивается ИсточникДанных напрямую: требуется РезультатЗапроса или ПостроительОтчета.
Закрываем свой менеджер временных таблиц после получения результата; никакие рабочие таблицы не выбираются запросом.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.
Найти и удалить только свои встроенные таблицы
Работаем с коллекцией нового табличного документа. Проверяем имя, индекс и объект перед удалением; затем показываем Очистить на второй собственной пустой сводной.
Где и как запускать
Полный модуль управляемой формы собственной учебной внешней обработки. Построение выполняется на сервере без контекста; показ — на клиенте. Вставляйте на уровне модуля.
Подготовка
Создайте новую внешнюю обработку с управляемой основной формой в учебной базе. Каждый урок — отдельная копия модуля.
На форме создайте команду УчебныйПример и перетащите её на форму как кнопку. В действии команды выберите процедуру УчебныйПример(Команда).
Вставьте весь модуль из примера: УчебныйПример, ПостроитьУчебныйДокумент и УчебнаяТаблица. Серверный вызов возвращает собственный табличный документ клиенту; директивы не удаляйте.
Никакие макеты, документы и справочники конфигурации не нужны. Всё построение — в памяти, без печати, записи файлов и отправки в сервисы.
Показ и ручную проверку выполняйте в тонком клиенте Windows 8.5.1.1343. Каждый урок — отдельная копия формы с пустым модулем до вставки.
&НаКлиенте
Процедура УчебныйПример(Команда)
ТабДок = ПостроитьУчебныйДокумент();
ТабДок.Показать("Учебный документ — без печати и сохранения");
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПостроитьУчебныйДокумент()
ТабДок = Новый ТабличныйДокумент;
Источник = Новый ТаблицаЗначений;
Источник.Колонки.Добавить("Товар", Новый ОписаниеТипов("Строка"));
Источник.Колонки.Добавить("Количество", Новый ОписаниеТипов("Число"));
Источник.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"));
СтрокаТовара = Источник.Добавить();
СтрокаТовара.Товар = "Книга";
СтрокаТовара.Количество = 3;
СтрокаТовара.Сумма = 750;
СтрокаТовара = Источник.Добавить();
СтрокаТовара.Товар = "Ручка";
СтрокаТовара.Количество = 1;
СтрокаТовара.Сумма = 50;
Менеджер = Новый МенеджерВременныхТаблиц;
Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Менеджер;
Запрос.УстановитьПараметр("Источник", Источник);
Запрос.Текст = "ВЫБРАТЬ Д.Товар, Д.Количество, Д.Сумма
|ПОМЕСТИТЬ ВТУчебныеТовары ИЗ &Источник КАК Д;
|ВЫБРАТЬ Д.Товар, Д.Количество, Д.Сумма
|ИЗ ВТУчебныеТовары КАК Д
|ИТОГИ СУММА(Количество), СУММА(Сумма) ПО Товар";
Попытка
Пакет = Запрос.ВыполнитьПакет();
Результат = Пакет.Получить(1);
Исключение
Менеджер.Закрыть();
ВызватьИсключение;
КонецПопытки;
Менеджер.Закрыть();
Сводная = ТабДок.ВстроенныеТаблицы.Добавить(Тип("СводнаяТаблица"), ТабДок.Область(2, 1));
Сводная.Имя = "УчебныеТовары";
Сводная.ИсточникДанных = Результат;
Сводная.Строки.Добавить("Товар");
Сводная.Данные.Добавить("Количество");
Сводная.Данные.Добавить("Сумма");
Сводная.Обновить();
Найденная = ТабДок.ВстроенныеТаблицы.Найти("УчебныеТовары");
Если Найденная = Неопределено Тогда
ВызватьИсключение "Не найдена собственная сводная";
КонецЕсли;
Индекс = ТабДок.ВстроенныеТаблицы.Индекс(Найденная);
Если Индекс < 0 Тогда
ВызватьИсключение "Получен недопустимый индекс собственной сводной";
КонецЕсли;
Сообщить(ТабДок.ВстроенныеТаблицы.Получить(Индекс).Имя = "УчебныеТовары");
ТабДок.ВстроенныеТаблицы.Удалить(Найденная);
Сообщить(ТабДок.ВстроенныеТаблицы.Количество() = 0);
Сообщить(ТабДок.ВстроенныеТаблицы.Найти("УчебныеТовары") = Неопределено);
Другая = ТабДок.ВстроенныеТаблицы.Добавить(Тип("СводнаяТаблица"), ТабДок.Область(2, 1));
Другая.Имя = "УчебнаяПустая";
Сообщить(ТабДок.ВстроенныеТаблицы.Количество() = 1);
ТабДок.ВстроенныеТаблицы.Очистить();
Сообщить(ТабДок.ВстроенныеТаблицы.Количество() = 0);
Сообщить(Источник.Итог("Сумма") = 800);
ТабДок.Область(1, 1).Текст = "Собственные встроенные таблицы удалены; источник не изменён";
Возврат ТабДок;
КонецФункции
Разбор по шагам
Поиск по имени может вернуть Неопределено, индекс — -1; обе границы проверяем до Получить.
Удалить получает конкретный найденный объект, не строку имени или номер произвольной рабочей таблицы.
Вторая сводная создана здесь же и не заполнена; Очистить удаляет только коллекцию этого нового документа.
Источник ТаблицаЗначений по-прежнему имеет сумму 800; удаление представления не удаляет данные.
Как проверить результат
Шесть сравнений Истина: имя, ноль после удаления, отсутствие по имени, одна новая таблица, ноль после очистки и сумма 800.
В финальном показе пояснение об удалении; не обещаем, что удаление встроенного объекта автоматически очистит все ранее выведенные ячейки.
Ожидаемый результат
Показаны безопасные границы изменения собственной коллекции встроенных таблиц.
На что обратить внимание
Не применяйте Очистить к полученному рабочему отчёту без отдельной копии.
После удаления сводной не используйте старую ссылку для дальнейшего обновления.
Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.