Построить отчёт без ошибочных ролей остатка и периода

Явно описываем четыре поля запроса и получаем две строки отчёта: Книга 750, Ручка 50. Сумма продажи — не остаток на дату.

Подготовка

1. В своей отдельной учебной базе 8.5.1.1343 создайте серверный общий модуль УчебныеРолиПолейСКД. Вставьте полный текст одного урока: процедуру и две функции ниже неё.

2. Вызовите УчебныеРолиПолейСКД.ВыполнитьПример() из серверной команды собственной обработки. Схема и таблицы остаются на сервере, на клиент выводятся только сообщения.

3. Товары, даты, остатки и номер 50 заданы собственными константами. Код не читает и не изменяет регистры, план счетов, документы или файлы.

4. Схема описывается явно: АвтоЗаполнениеДоступныхПолей выключено, каждое поле добавляется через коллекцию Поля. Роль получается из настоящего поля, отдельного конструктора роли нет.

5. В первом уроке выполняется СКД. Уроки остатков, измерений, периодов и бухгалтерских ролей отдельно проверяют настройку схемы и её исходные строки; это не доказательство корректных итогов рабочего отчёта.

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

Функция СоздатьУчебнуюСхему(ТекстЗапроса)
    Схема = Новый СхемаКомпоновкиДанных;
    Источник = Схема.ИсточникиДанных.Добавить();
    Источник.Имя = "УчебныйИсточник";
    Источник.ТипИсточникаДанных = "Local";
    Набор = Схема.НаборыДанных.Добавить(Тип("НаборДанныхЗапросСхемыКомпоновкиДанных"));
    Набор.Имя = "УчебныеДанные";
    Набор.ИсточникДанных = Источник.Имя;
    Набор.АвтоЗаполнениеДоступныхПолей = Ложь;
    Набор.Запрос = ТекстЗапроса;
    Возврат Схема;
КонецФункции

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

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

1. Создать собственную схему и четыре настоящих поля. РольСуммы — объект из Сумма.Роль, не копия и не произвольная структура.

2. Отключить роли остатка, измерения и основного поля; номер периода 0. Обязательное только прочитать: это вычисляемая служебная информация, не пользовательский переключатель.

3. Добавить четыре выбранных поля и детальную группировку. Скомпилировать макет именно для вывода в коллекцию значений.

4. Выполнить СКД и сравнить собственный результат с двумя константами. Итог 800 здесь проверяется у готовой таблицы, а не выдумывается из флага роли.

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

1. Девять проверок выводят Истина.

2. В Результат две строки, у Книга количество 3, итог Сумма 800. Порядок строк не проверяется.

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

Полный программный отчёт с явно описанной схемой и проверяемым результатом.

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

1. Роль и Обязательное нельзя заменить присваиванием: свойства только для чтения. Изменяются разрешённые свойства объекта Роль.

2. НомерПериода не является номером строки таблицы. Для непериодного поля оставляют 0.

3. ТипБухгалтерскогоОстатка.Нет подходит обычной сумме продажи: это не дебет и не кредит.

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