ЗаписиМакетаКомпоновкиДанных.КоличествоЗаписей

Лимит детальных записей: одна настоящая строка и возврат полного вывода

Тот же полный макет ограничиваем до одной детальной записи при 100%, сверяем все ячейки полученного товара и возвращаем две строки с количеством 4 и суммой 800.

Подготовка

1. НОВАЯ пустая файловая база 8.5.1.1343: корневое Имя=УчебныеДетальныеЗаписи85, совместимость НеИспользовать, управляемое приложение. Не рабочая база и не копия КА2/УНФ/УТ/БП. Без бизнес-метаданных, расширений, подписок, заданий и внешних действий. Здесь в 1С не запускалось: runtimeVerifiedScenarios=0.

2. Общий модуль УчебныеДетальныеЗаписи85: Сервер=Да, Клиент=Нет, Вызов сервера=Нет, Глобальный=Нет, Привилегированный=Нет. Вставьте весь основной код одного урока. Все свои исходные данные, схема, выбор, настройки, макет и проверки включены; неизвестных входных объектов нет.

3. Создайте обработку УчебноеТелоОтчета85 → управляемая форма Пульт → команда Выполнить с действием Выполнить и кнопкой. Полный отдельный модуль формы ниже. F7 и обновление только нового своего стенда перед будущим отдельно разрешенным опытом.

4. Собственный запрос: Книга/3/250/750 и Ручка/1/50/50. Только детальные записи и четыре выбранных поля, без таблиц/диаграмм или иерархических группировок. Генератор макета для коллекции значений; настоящий вывод получается в ТаблицаЗначений.

5. Обычные ЗаписиМакетаКомпоновкиДанных не тождественны ЗаписиГруппировкиТаблицыМакетаКомпоновкиДанных: их МакетШапки/МакетПодвала — СТРОКИ имен областей, не объекты макетов строковой оси. Смотрите actual-часть в серверном отладчике после ПолучитьСвоиДетальныеЗаписи.

6. В лимитном уроке порядок строк явно не задается: после КоличествоЗаписей=1 допустима любая одна полная строка исходного запроса. Проверка сверяет ее четыре настоящие ячейки, а не обещает первую Книгу по случайному порядку.

7. Редакторский урок делает независимый полный XDTO-макет из собственной строки памяти. Временные пустые каркасы детальных записей и очищенное тело не выводятся. Перед повторным выводом восстанавливается ВЕСЬ исходный макет. Файлы, архивы и резервные копии не создаются.

Процедура ВыполнитьПример() Экспорт
    ПроверитьСвойПустойСтенд();
    Если ПривилегированныйРежим() Тогда
        ВызватьИсключение "Привилегированный режим не нужен";
    КонецЕсли;
    Схема = Новый СхемаКомпоновкиДанных;
    Источник = Схема.ИсточникиДанных.Добавить();
    Источник.Имя = "УчебныйИсточник";
    Источник.ТипИсточникаДанных = "Local";
    Набор = Схема.НаборыДанных.Добавить(Тип("НаборДанныхЗапросСхемыКомпоновкиДанных"));
    Набор.Имя = "УчебныеТовары";
    Набор.ИсточникДанных = Источник.Имя;
    Набор.АвтоЗаполнениеДоступныхПолей = Истина;
    Набор.Запрос = "ВЫБРАТЬ
    |    ""Книга"" КАК Наименование,
    |    3 КАК Количество,
    |    250 КАК Цена,
    |    750 КАК Сумма
    |ОБЪЕДИНИТЬ ВСЕ
    |ВЫБРАТЬ ""Ручка"", 1, 50, 50";
    Настройки = Схема.НастройкиПоУмолчанию;
    Для Каждого ИмяПоля Из СтрРазделить("Наименование,Количество,Цена,Сумма", ",") Цикл
        Выбранное = Настройки.Выбор.Элементы.Добавить(Тип("ВыбранноеПолеКомпоновкиДанных"));
        Выбранное.Поле = Новый ПолеКомпоновкиДанных(ИмяПоля);
        Выбранное.Использование = Истина;
    КонецЦикла;
    Детали = Настройки.Структура.Добавить(Тип("ГруппировкаКомпоновкиДанных"));
    Детали.Использование = Истина;
    АвтоВыбор = Детали.Выбор.Элементы.Добавить(Тип("АвтоВыбранноеПолеКомпоновкиДанных"));
    АвтоВыбор.Использование = Истина;
    Компоновщик = Новый КомпоновщикМакетаКомпоновкиДанных;
    Макет = Компоновщик.Выполнить(Схема, Настройки, , , Тип("ГенераторМакетаКомпоновкиДанныхДляКоллекцииЗначений"));
    Записи = ПолучитьСвоиДетальныеЗаписи(Макет);
    ПоказатьСвоиОпределенияЗаписей(Макет, Записи);
    Записи.КоличествоЗаписей = -1;
    Записи.ПроцентЗаписей = 100;
    Если Записи.КоличествоЗаписей <> -1 Или Записи.ПроцентЗаписей <> 100 Тогда
        ВызватьИсключение "В собственном полном макете нужно разрешить все детальные записи";
    КонецЕсли;
    ПроверитьСвойПолныйВывод(Макет, Неопределено);
    Записи.КоличествоЗаписей = 1;
    Если Записи.КоличествоЗаписей <> 1 Или Записи.ПроцентЗаписей <> 100 Тогда
        ВызватьИсключение "Меняется только лимит своей части: один результат при полном проценте";
    КонецЕсли;
    ПроверитьСвойОдиночныйВывод(Макет);
    Записи.КоличествоЗаписей = -1;
    Если Записи.КоличествоЗаписей <> -1 Или Записи.ПроцентЗаписей <> 100 Тогда
        ВызватьИсключение "После опыта нужно вернуть полный вывод детальных записей";
    КонецЕсли;
    ПроверитьСвойПолныйВывод(Макет, Неопределено);
    Сообщить("Ограничение части восстановлено; исходный запрос сохранил обе строки и полный результат 4/800.");
КонецПроцедуры

Функция ПолучитьСвоиДетальныеЗаписи(Макет)
    Найденные = Новый Массив;
    СобратьСвоиОбычныеЗаписи(Макет.Тело, Найденные);
    Если Найденные.Количество() <> 1 Тогда
        ВызватьИсключение "В своем простом макете нужна ровно одна настоящая часть обычных детальных записей";
    КонецЕсли;
    Возврат Найденные[0];
КонецФункции

Процедура СобратьСвоиОбычныеЗаписи(Тело, Найденные)
    Для Каждого Часть Из Тело Цикл
        Если ТипЗнч(Часть) = Тип("ЗаписиМакетаКомпоновкиДанных") Тогда
            Найденные.Добавить(Часть);
        ИначеЕсли ТипЗнч(Часть) = Тип("ГруппировкаМакетаКомпоновкиДанных") Тогда
            СобратьСвоиОбычныеЗаписи(Часть.Тело, Найденные);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Процедура ПоказатьСвоиОпределенияЗаписей(Макет, Записи)
    Если ТипЗнч(Записи) <> Тип("ЗаписиМакетаКомпоновкиДанных") Тогда
        ВызватьИсключение "Нужны настоящие обычные детальные записи, не записи строковой оси таблицы";
    КонецЕсли;
    Сообщить("Имя части=" + Записи.Имя + "; идентификатор=" + Записи.Идентификатор);
    Сообщить("Фактический отбор записей=" + Записи.ОтборЗаписей);
    ПроверитьСвоиИменаНаборов(Макет, Записи.НаборыДанных);
    ПроверитьСвоиИменаНаборов(Макет, Записи.ОбязательныеНаборыДанных);
    Если Записи.НаборыДанных.Количество() = 0 Тогда
        ВызватьИсключение "Своя часть вывода должна ссылаться хотя бы на один настоящий набор";
    КонецЕсли;
    ПроверитьСсылкуНаОбласть(Макет, Записи.МакетШапки);
    ПроверитьСсылкуНаОбласть(Макет, Записи.МакетПодвала);
    Если ТипЗнч(Записи.Тело) <> Тип("ТелоМакетаКомпоновкиДанных")
        Или ТипЗнч(Записи.Порядок) <> Тип("ВыраженияУпорядочиванияКомпоновкиДанных") Тогда
        ВызватьИсключение "Нужны настоящие readonly-тело и коллекция выражений порядка";
    КонецЕсли;
    Сообщить("Частей тела=" + Строка(Записи.Тело.Количество()) + "; выражений порядка=" + Строка(Записи.Порядок.Количество()));
    Для Каждого Выражение Из Записи.Порядок Цикл
        Сообщить("Фактическое выражение порядка=" + Выражение.Выражение + "; направление=" + Строка(Выражение.ТипУпорядочивания));
    КонецЦикла;
КонецПроцедуры

Процедура ПроверитьСсылкуНаОбласть(Макет, ИмяОбласти)
    Если ТипЗнч(ИмяОбласти) <> Тип("Строка") Тогда
        ВызватьИсключение "Ссылка на макет области должна быть строкой";
    КонецЕсли;
    Если ИмяОбласти = "" Тогда
        Сообщить("Необязательный макет области отсутствует");
        Возврат;
    КонецЕсли;
    ОписаниеОбласти = Макет.Макеты.Найти(ИмяОбласти);
    Если ОписаниеОбласти = Неопределено Тогда
        ВызватьИсключение "Нельзя выдумывать техническое имя отсутствующей области: " + ИмяОбласти;
    КонецЕсли;
    Сообщить("Реальная ссылка на область: " + ИмяОбласти);
КонецПроцедуры

Процедура ПроверитьСвоиИменаНаборов(Макет, Имена)
    Если ТипЗнч(Имена) <> Тип("Массив") Тогда
        ВызватьИсключение "Нужен настоящий readonly-массив имён наборов записей";
    КонецЕсли;
    Для Каждого ИмяНабора Из Имена Цикл
        Если ТипЗнч(ИмяНабора) <> Тип("Строка") Тогда
            ВызватьИсключение "Имя скомпилированного набора должно быть строкой";
        КонецЕсли;
        НайденныйНабор = Макет.НаборыДанных.Найти(ИмяНабора);
        Если НайденныйНабор = Неопределено Тогда
            ВызватьИсключение "Записи ссылаются на отсутствующий реальный набор " + ИмяНабора;
        КонецЕсли;
        Сообщить("Реальная зависимость детальных записей: " + ИмяНабора);
    КонецЦикла;
КонецПроцедуры

Процедура ПроверитьСвойПолныйВывод(Макет, ВнешниеДанные)
    Процессор = Новый ПроцессорКомпоновкиДанных;
    Процессор.Инициализировать(Макет, ВнешниеДанные);
    Вывод = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
    Приемник = Новый ТаблицаЗначений;
    Вывод.ОтображатьПроцентВывода = Ложь;
    Вывод.УстановитьОбъект(Приемник);
    Результат = Вывод.Вывести(Процессор, Ложь);
    Если ТипЗнч(Результат) <> Тип("ТаблицаЗначений") Или Результат.Количество() <> 2
        Или Результат.Колонки.Количество() <> 4 Тогда
        ВызватьИсключение "Настоящий вывод должен дать две строки и четыре колонки";
    КонецЕсли;
    Для Каждого ИмяПоля Из СтрРазделить("Наименование,Количество,Цена,Сумма", ",") Цикл
        Если Результат.Колонки.Найти(ИмяПоля) = Неопределено Тогда
            ВызватьИсключение "Потеряна ожидаемая колонка реального вывода " + ИмяПоля;
        КонецЕсли;
    КонецЦикла;
    Книга = Результат.Найти("Книга", "Наименование");
    Ручка = Результат.Найти("Ручка", "Наименование");
    Если Книга = Неопределено Или Ручка = Неопределено Тогда
        ВызватьИсключение "Не найдены обе реальные исходные строки результата";
    КонецЕсли;
    Если Книга.Количество <> 3 Или Книга.Цена <> 250 Или Книга.Сумма <> 750
        Или Ручка.Количество <> 1 Или Ручка.Цена <> 50 Или Ручка.Сумма <> 50
        Или Результат.Итог("Количество") <> 4 Или Результат.Итог("Сумма") <> 800 Тогда
        ВызватьИсключение "Потеряны или изменены реальные ячейки собственного полного вывода";
    КонецЕсли;
    Сообщить("Настоящий вывод проверен: Книга 3 × 250 = 750, Ручка 1 × 50 = 50; количество 4, сумма 800.");
КонецПроцедуры

Процедура ПроверитьСвойОдиночныйВывод(Макет)
    Процессор = Новый ПроцессорКомпоновкиДанных;
    Процессор.Инициализировать(Макет);
    Вывод = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВКоллекциюЗначений;
    Приемник = Новый ТаблицаЗначений;
    Вывод.УстановитьОбъект(Приемник);
    Результат = Вывод.Вывести(Процессор, Ложь);
    Если ТипЗнч(Результат) <> Тип("ТаблицаЗначений") Или Результат.Количество() <> 1 Или Результат.Колонки.Количество() <> 4 Тогда
        ВызватьИсключение "Лимит одной детальной записи должен дать ровно одну настоящую строку и четыре колонки";
    КонецЕсли;
    Для Каждого Имя Из СтрРазделить("Наименование,Количество,Цена,Сумма", ",") Цикл
        Если Результат.Колонки.Найти(Имя) = Неопределено Тогда
            ВызватьИсключение "Потеряно собственное поле одиночного реального результата " + Имя;
        КонецЕсли;
    КонецЦикла;
    Товар = Результат.Получить(0);
    Если Товар.Наименование = "Книга" Тогда
        Если Товар.Количество <> 3 Или Товар.Цена <> 250 Или Товар.Сумма <> 750 Тогда
            ВызватьИсключение "Для реальной Книги должны сохраниться все три числовые ячейки 3/250/750";
        КонецЕсли;
    ИначеЕсли Товар.Наименование = "Ручка" Тогда
        Если Товар.Количество <> 1 Или Товар.Цена <> 50 Или Товар.Сумма <> 50 Тогда
            ВызватьИсключение "Для реальной Ручки должны сохраниться ячейки 1/50/50";
        КонецЕсли;
    Иначе
        ВызватьИсключение "Одна выведенная запись должна быть настоящим товаром собственного запроса";
    КонецЕсли;
    Сообщить("При лимите 1 получено: " + Товар.Наименование + "; количество=" + Строка(Товар.Количество) + "; сумма=" + Строка(Товар.Сумма));
КонецПроцедуры

Процедура ПроверитьСвойПустойСтенд()
    Если Метаданные.Справочники.Количество() <> 0 Или Метаданные.Документы.Количество() <> 0 Или Метаданные.Перечисления.Количество() <> 0 Или Метаданные.РегистрыСведений.Количество() <> 0 Или Метаданные.РегистрыНакопления.Количество() <> 0 Или Метаданные.РегистрыБухгалтерии.Количество() <> 0 Или Метаданные.РегистрыРасчета.Количество() <> 0 Или Метаданные.ПланыВидовХарактеристик.Количество() <> 0 Или Метаданные.ПланыВидовРасчета.Количество() <> 0 Или Метаданные.ПланыСчетов.Количество() <> 0 Или Метаданные.ПланыОбмена.Количество() <> 0 Или Метаданные.Последовательности.Количество() <> 0 Или Метаданные.БизнесПроцессы.Количество() <> 0 Или Метаданные.Задачи.Количество() <> 0 Или Метаданные.ОбщиеРеквизиты.Количество() <> 0 Или Метаданные.ПодпискиНаСобытия.Количество() <> 0 Или Метаданные.РегламентныеЗадания.Количество() <> 0 Или Метаданные.ВнешниеИсточникиДанных.Количество() <> 0 Тогда
        ВызватьИсключение "Нужен только свой новый пустой учебный стенд";
    КонецЕсли;
    Если Метаданные.ЕстьИзмененияРасширениямиКонфигурации() Тогда
        ВызватьИсключение "Свой сеанс не должен изменяться расширениями";
    КонецЕсли;
    Источники = Новый Массив;
    Источники.Добавить(ИсточникРасширенийКонфигурации.БазаДанных);
    Источники.Добавить(ИсточникРасширенийКонфигурации.СеансАктивные);
    Источники.Добавить(ИсточникРасширенийКонфигурации.СеансОтключенные);
    Для Каждого Источник Из Источники Цикл
        Расширения = РасширенияКонфигурации.Получить(, Источник);
        Если ТипЗнч(Расширения) <> Тип("Массив") Тогда
            ВызватьИсключение "Native список расширений должен иметь тип Массив";
        КонецЕсли;
        Если Расширения.Количество() <> 0 Тогда
            ВызватьИсключение "В своём новом стенде нет расширений базы или сеанса";
        КонецЕсли;
    КонецЦикла;
    Если ТранзакцияАктивна() Тогда
        ВызватьИсключение "Чужая или вложенная активная транзакция не допускается";
    КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура Выполнить(Команда)
    ВыполнитьНаСервере();
КонецПроцедуры

&НаСервереБезКонтекста
Процедура ВыполнитьНаСервере()
    УчебныеДетальныеЗаписи85.ВыполнитьПример();
КонецПроцедуры

Разбор по шагам

1. ПолучитьСвоиДетальныеЗаписи ищет настоящий тип в Тело макета и обычных вложенных группировках; простой свой стенд обязан иметь ровно одну часть. Это не общий обход таблиц, диаграмм или иерархических группировок произвольного отчета.

2. Имя/Идентификатор и ОтборЗаписей читаются из самой скомпилированной части для диагностики. Их нельзя отдельно переименовывать или подменять текстом SQL без согласования с другими определениями макета. Пустой фактический отбор сам по себе не ошибка.

3. НаборыДанных и ОбязательныеНаборыДанных — readonly-массивы строк. Каждый фактический элемент разрешается через Макет.НаборыДанных.Найти с проверкой Неопределено. Первый массив должен иметь источник для данной части; второй может быть пустым и не дополняется выдуманными обязательными наборами.

4. Строковые МакетШапки/МакетПодвала разрешаются в Макет.Макеты, если не пусты. Пустое имя — отсутствие необязательной области; оно не превращается в произвольный текст шапки. Для генератора коллекции значений внешнее оформление не обещается.

5. Readonly-Тело и Порядок читаются как настоящие коллекции. Выражения и направления порядка выводятся из фактических элементов; у ТипУпорядочивания readonly-контракт. Не заменяем коллекции новым массивом и не делаем вид, что отсутствие порядка гарантирует первую Книгу.

6. КоличествоЗаписей=-1 означает все записи, ПроцентЗаписей=100 — полный процент. После установки этих свойств настоящий процессор должен вернуть две строки, четыре колонки и точные ячейки Книги/Ручки, количество 4 и сумму 800. Эталонная таблица вместо результата не создается.

7. После полного исходного вывода ставим КоличествоЗаписей=1, не меняя ПроцентЗаписей=100 и запрос. Создаем свежий процессор и проверяем ровно одну строку. Допустимы Книга/3/250/750 или Ручка/1/50/50; никакая другая строка не принимается.

8. Затем возвращаем -1 и проверяем еще один полноценный реальный вывод двух товаров. Это восстановление настройки части, а не добавление второй строки результата вручную.

Как проверить результат

1. Будущий полный результат: Книга/3/250/750 и Ручка/1/50/50 в любом порядке, две строки, четыре колонки, итоги 4/800. Настоящая часть записей ссылается только на существующие наборы и области своего макета.

2. Для отдельного своего разрешенного отрицательного опыта: перед проверкой имен набора добавить в readonly-массив НаборыДанных строку НетТакогоНабора85, не заменяя само свойство. Разрешение зависимости должно отказать. Здесь проверка и изменение не выполнялись.

3. Если макет не содержит обычных записей, результат пустой или структура отличается от собственного стенда, пример должен отказать, а не подменить его ожидаемыми строками. Реальная компиляция/вывод/XDTO в 1С здесь не выполнялись.

4. Ожидаются три последовательных результата: две строки/4/800, одна настоящая полная строка, снова две строки/4/800. Один лишь прочитанный установленный лимит не считается доказательством реального ограничения результата.

Ожидаемый результат

Ожидается полноценный настоящий вывод двух товаров и 4/800; в лимитном опыте между полными выводами одна настоящая полная строка. Здесь в 1С не запускалось.

На что обратить внимание

1. runtimeVerifiedScenarios=0. Код и native-контракты сверяются статически; ожидаемые результаты не выдаются за запуск 1С.

2. Свойство КоличествоЗаписей ограничивает вывод данной части, не количество исходных строк запроса. ПроцентЗаписей не является отбором по значению Сумма. Произвольные сочетания процентных и количественных ограничений и правила округления этим уроком не проверяются.

3. Записи.НаборыДанных, ОбязательныеНаборыДанных, Тело и Порядок readonly как ссылки на коллекции. Читать или редактировать допустимые элементы коллекции — не то же самое, что присвоить новое значение свойству.

4. Фабрики тела Добавить(Тип) и Вставить(Индекс,Тип) ОБЯЗАТЕЛЬНО получают Тип("ЗаписиМакетаКомпоновкиДанных"). Это отличается от фабрик каталога источников. Записи не создаются через выдуманный Новый; Индекс/Сдвинуть/Удалить получают собственный настоящий элемент этого же тела.

5. В черновике разрешено назначить собственные имя/идентификатор временного каркаса и пустые ссылки шапки/подвала, но это не полноценная часть вывода: нет связанных источников/областей/тела. Черновик не исполняется, исходная скомпилированная часть не переименовывается.

Пример не запускался в вашей базе. Перед применением проверьте его в указанном учебном контексте.