При работе с системой 1С:Управление торговлей 11.5 (УТ 11.5) часто возникает необходимость в формировании сложных аналитических отчетов, которые выходят за рамки типового функционала. Одна из таких задач — это расчет прибыли по документам реализации с учетом частичных оплат, когда необходимо распределить сумму оплаты по строкам табличной части документа и вычислить прибыль только по тем позициям, на которые хватило полученных денежных средств. Дополнительную сложность добавляет требование "запоминания" строки, на которой остановился расчет, для продолжения в будущих периодах.
Давайте подробно рассмотрим, как мы можем подойти к решению этой задачи, используя возможности Системы Компоновки Данных (СКД) и программный код 1С.
Этот подход является наиболее гибким и часто предпочтительным для решения задач, где требуется сложная итеративная логика, сохранение промежуточного состояния или алгоритмы, которые трудно реализовать исключительно декларативными средствами запросов или выражений СКД. Мы будем программно формировать таблицу данных, а затем передавать ее в СКД для отображения.
Начнем с создания нового отчета в конфигурации. В его схеме компоновки данных (СКД) нам понадобится только один набор данных типа "Объект".
Добавляем "НаборДанных - Объект" и описываем поля, которые в конечном итоге будут содержаться в нашей результирующей таблице. Например:
ДокументРеализации (тип: ДокументСсылка.РеализацияТоваровУслуг)ДатаДокумента (тип: Дата)СуммаДокумента (тип: Число)СуммаОплаты (тип: Число)РассчитаннаяПрибыль (тип: Число)ОстатокПоОплате (тип: Число, для контроля)ИндексПоследнейПокрытойСтроки (тип: Число, для потенциального "запоминания" в рамках текущего отчета)Эти поля будут представлять собой структуру нашей программно сформированной таблицы значений, которую мы передадим в СКД.
ПриКомпоновкеРезультата.
В модуле объекта отчета (или в общем модуле, если логика универсальна), мы реализуем обработчик события ПриКомпоновкеРезультата. Именно здесь будет происходить вся основная работа: получение исходных данных, итерация по ним, расчет прибыли и формирование результирующей таблицы.
Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
// 1. Получаем настройки отчета и период
Настройки = КомпоновщикНастроек.ПолучитьНастройки();
Параметры = Настройки.ПараметрыДанных.ПолучитьПараметры();
НачалоПериода = Параметры.Найти("НачалоПериода").Значение;
КонецПериода = Параметры.Найти("КонецПериода").Значение;
// 2. Получаем исходные данные: Реализации, их строки с себестоимостью, и оплаты
// Мы будем использовать запросы для получения данных из базы.
// Примечание: себестоимость закупки и себестоимость в строке могут быть сложными
// для получения и часто требуют вложенных запросов к регистрам учета запасов.
// Запрос для получения документов реализации за период
ЗапросРеализации = Новый Запрос;
ЗапросРеализации.Текст = "ВЫБРАТЬ
| РеализацияТоваровУслуг.Ссылка КАК ДокументРеализации,
| РеализацияТоваровУслуг.Дата КАК ДатаДокумента,
| РеализацияТоваровУслуг.СуммаДокумента КАК СуммаДокумента
|ИЗ
| Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|ГДЕ
| РеализацияТоваровУслуг.Дата МЕЖДУ &НачалоПериода И &КонецПериода
|УПОРЯДОЧИТЬ ПО
| ДатаДокумента"; // Важно для консистентности "запоминания"
ЗапросРеализации.УстановитьПараметр("НачалоПериода", НачалоПериода);
ЗапросРеализации.УстановитьПараметр("КонецПериода", КонецПериода);
ВыборкаРеализаций = ЗапросРеализации.Выполнить().Выбрать();
// Заготовка для результирующей таблицы
ТаблицаРезультат = Новый ТаблицаЗначений;
ТаблицаРезультат.Колонки.Добавить("ДокументРеализации", Новый ОписаниеТипов("ДокументСсылка.РеализацияТоваровУслуг"));
ТаблицаРезультат.Колонки.Добавить("ДатаДокумента", Новый ОписаниеТипов("Дата"));
ТаблицаРезультат.Колонки.Добавить("СуммаДокумента", Новый ОписаниеТипов("Число"));
ТаблицаРезультат.Колонки.Добавить("СуммаОплаты", Новый ОписаниеТипов("Число"));
ТаблицаРезультат.Колонки.Добавить("РассчитаннаяПрибыль", Новый ОписаниеТипов("Число"));
ТаблицаРезультат.Колонки.Добавить("ОстатокПоОплате", Новый ОписаниеТипов("Число"));
ТаблицаРезультат.Колонки.Добавить("ИндексПоследнейПокрытойСтроки", Новый ОписаниеТипов("Число")); // Для текущего отчета
// 3. Итерация по каждой реализации
Пока ВыборкаРеализаций.Следующий() Цикл
ДокРеализации = ВыборкаРеализаций.ДокументРеализации;
// Получаем сумму оплаты по данному документу за период
// Этот запрос может быть сложнее, если оплаты не привязаны напрямую к документу
// и требуют агрегации по контрагенту/сделке/договору.
ЗапросОплата = Новый Запрос;
ЗапросОплата.Текст = "ВЫБРАТЬ
| СУММА(ДвиженияДенежныхСредств.СуммаВзаиморасчетов) КАК СуммаОплаты
|ИЗ
| РегистрНакопления.ДвиженияДенежныхСредств КАК ДвиженияДенежныхСредств
|ГДЕ
| ДвиженияДенежныхСредств.ДокументОснование = &ДокументРеализации
| И ДвиженияДенежныхСредств.Период МЕЖДУ &НачалоПериода И &КонецПериода
| И ДвиженияДенежныхСредств.ВидДвижения = &ПриходДенег"; // Или другой вид движения, соответствующий оплате
ЗапросОплата.УстановитьПараметр("ДокументРеализации", ДокРеализации);
ЗапросОплата.УстановитьПараметр("НачалоПериода", НачалоПериода);
ЗапросОплата.УстановитьПараметр("КонецПериода", КонецПериода);
ЗапросОплата.УстановитьПараметр("ПриходДенег", Перечисления.ВидыДвиженийДенежныхСредств.ПоступлениеОтКлиента); // Пример
СуммаОплатыПоДокументу = ЗапросОплата.Выполнить().Получить();
Если СуммаОплатыПоДокументу.Пустой() Тогда
СуммаОплатыПоДокументу = 0;
Иначе
СуммаОплатыПоДокументу = СуммаОплатыПоДокументу.СуммаОплаты;
КонецЕсли;
// Если оплаты нет, или ее недостаточно, будем считать прибыль
Если СуммаОплатыПоДокументу > 0 Тогда
// Получаем строки табличной части документа с себестоимостью
// Этот запрос может быть сложным, т.к. себестоимость часто хранится в регистрах
// и требует дополнительного расчета или получения на определенную дату.
ЗапросСтрокиТЧ = Новый Запрос;
ЗапросСтрокиТЧ.Текст = "ВЫБРАТЬ
| РеализацияТоваровУслугТовары.Номенклатура,
| РеализацияТоваровУслугТовары.Количество,
| РеализацияТоваровУслугТовары.Сумма КАК СуммаПродажиСтроки,
| РеализацияТоваровУслугТовары.НомерСтроки,
| ЕСТЬNULL(ВложенныйЗапросСебестоимость.Стоимость, 0) КАК СебестоимостьСтроки
|ИЗ
| Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
| ЛЕВОЕ СОЕДИНЕНИЕ (
| ВЫБРАТЬ
| ПартииТоваровНаСкладах.Номенклатура,
| ПартииТоваровНаСкладах.Стоимость КАК Стоимость,
| ПартииТоваровНаСкладах.ДокументДвижения
| ИЗ
| РегистрНакопления.ПартииТоваровНаСкладах КАК ПартииТоваровНаСкладах
| ГДЕ
| ПартииТоваровНаСкладах.ДокументДвижения = &ДокументРеализации
| ) КАК ВложенныйЗапросСебестоимость
| ПО РеализацияТоваровУслугТовары.Номенклатура = ВложенныйЗапросСебестоимость.Номенклатура
|ГДЕ
| РеализацияТоваровУслугТовары.Ссылка = &ДокументРеализации
|УПОРЯДОЧИТЬ ПО
| РеализацияТоваровУслугТовары.НомерСтроки";
ЗапросСтрокиТЧ.УстановитьПараметр("ДокументРеализации", ДокРеализации);
ВыборкаСтрокТЧ = ЗапросСтрокиТЧ.Выполнить().Выбрать();
ТекущаяПрибыльПоДокументу = 0;
ОстатокОплаты = СуммаОплатыПоДокументу;
ИндексПокрытойСтроки = 0; // Для "запоминания" в текущем отчете
Пока ВыборкаСтрокТЧ.Следующий() И ОстатокОплаты > 0 Цикл
СуммаСтрокиПрибыль = ВыборкаСтрокТЧ.СуммаПродажиСтроки - ВыборкаСтрокТЧ.СебестоимостьСтроки;
// Если себестоимость или цена продажи неизвестны, или строка уже покрыта
Если СуммаСтрокиПрибыль = 0 Тогда
Продолжить; // Пропускаем строки без прибыли
КонецЕсли;
// Определяем, на какую долю строки хватает оплаты
// Здесь можно использовать различные стратегии распределения:
// - пропорционально стоимости строки
// - пропорционально прибыли строки
// - последовательно по строкам до исчерпания оплаты (как в нашем примере)
// Предположим, что мы распределяем оплату "по порядку" строк
// и прибыль считается по каждой строке независимо, пока хватает оплаты на всю строку
// или на часть строки.
// В простейшем случае, если мы хотим покрывать строки по очереди
// и считать прибыль только если строка "покрыта" полностью (или частично пропорционально).
// Для расчета "доли" прибыли по строке, которая покрыта оплатой.
// Если строка полностью покрыта оплатой, берем всю ее прибыль.
// Если оплаты хватает только на часть строки (пропорционально стоимости), то берем часть прибыли.
// Упрощенная логика: считаем, что оплата покрывает строки, а прибыль мы берем
// из каждой покрытой строки. Допустим, мы сравниваем оплату с суммой продажи строки.
ДоляПокрытияСтроки = Мин(ОстатокОплаты / ВыборкаСтрокТЧ.СуммаПродажиСтроки, 1);
Если ДоляПокрытияСтроки >= 1 Тогда // Оплаты хватает на всю строку
ТекущаяПрибыльПоДокументу = ТекущаяПрибыльПоДокументу + СуммаСтрокиПрибыль;
ОстатокОплаты = ОстатокОплаты - ВыборкаСтрокТЧ.СуммаПродажиСтроки;
ИндексПокрытойСтроки = ВыборкаСтрокТЧ.НомерСтроки;
ИначеЕсли ДоляПокрытияСтроки > 0 Тогда // Оплаты хватает на часть строки
ТекущаяПрибыльПоДокументу = ТекущаяПрибыльПоДокументу + СуммаСтрокиПрибыль * ДоляПокрытияСтроки;
ОстатокОплаты = 0; // Оплата исчерпана
ИндексПокрытойСтроки = ВыборкаСтрокТЧ.НомерСтроки; // Остановились на этой строке
КонецЕсли;
КонецЦикла;
НоваяСтрока = ТаблицаРезультат.Добавить();
НоваяСтрока.ДокументРеализации = ДокРеализации;
НоваяСтрока.ДатаДокумента = ВыборкаРеализаций.ДатаДокумента;
НоваяСтрока.СуммаДокумента = ВыборкаРеализаций.СуммаДокумента;
НоваяСтрока.СуммаОплаты = СуммаОплатыПоДокументу;
НоваяСтрока.РассчитаннаяПрибыль = ТекущаяПрибыльПоДокументу;
НоваяСтрока.ОстатокПоОплате = ОстатокОплаты;
НоваяСтрока.ИндексПоследнейПокрытойСтроки = ИндексПокрытойСтроки;
Иначе // Оплаты нет
НоваяСтрока = ТаблицаРезультат.Добавить();
НоваяСтрока.ДокументРеализации = ДокРеализации;
НоваяСтрока.ДатаДокумента = ВыборкаРеализаций.ДатаДокумента;
НоваяСтрока.СуммаДокумента = ВыборкаРеализаций.СуммаДокумента;
НоваяСтрока.СуммаОплаты = 0;
НоваяСтрока.РассчитаннаяПрибыль = 0;
НоваяСтрока.ОстатокПоОплате = 0;
НоваяСтрока.ИндексПоследнейПокрытойСтроки = 0;
КонецЕсли;
КонецЦикла;
// 4. Передаем сформированную таблицу в СКД
КомпоновщикМакета.НаборыДанных.НаборДанныхОбъект1.ИсточникДанных = ТаблицаРезультат;
// Или, если это несколько наборов данных, используем метод ДобавитьДанные
// КомпоновщикМакета.НаборыДанных.НаборДанныхОбъект1.ДобавитьДанные(ТаблицаРезультат);
// Далее стандартная компоновка
// ... (остальной код для КомпоновщикаМакета и получения результата)
КомпоновщикМакета.Инициализировать(Новый ИсточникДанныхКомпоновкиДанных(ТаблицаРезультат)); // Если ТаблицаРезультат - основной источник
МакетКомпоновки = КомпоновщикМакета.Выполнить();
ПроцессорКомпоновки = Новый ПроцессорКомпоновкиДанных;
ПроцессорКомпоновки.Инициализировать(МакетКомпоновки);
ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
ПроцессорВывода.УстановитьДокумент(ДокументРезультат);
ПроцессорВывода.НачатьВывод();
Пока Истина Цикл
ЭлементРезультата = ПроцессорКомпоновки.Следующий();
Если ЭлементРезультата = Неопределено Тогда
Прервать;
КонецЕсли;
ПроцессорВывода.ВывестиЭлемент(ЭлементРезультата);
КонецЦикла;
ПроцессорВывода.ЗакончитьВывод();
КонецПроцедуры
Важный момент относительно "запоминания" строки: Требование "запомнить строку, на которой остановился расчет, чтобы в следующих периодах отчета, когда поступит очередная оплата, не бежать заново по всем строкам" подразумевает сохранение состояния между запусками отчета. Поскольку регистры изменять нельзя, такое "запоминание" становится крайне сложным для реализации в рамках чистых запросов или СКД, так как для этого требуется постоянное хранилище (база данных). В приведенном примере мы можем "запомнить" индекс строки и остаток оплаты для текущего отчета, но для кросс-периодного анализа без модификации регистров придется пересчитывать всю историю оплат для каждого документа каждый раз или использовать нестандартные методы (например, хранение в файлах или справочнике, не предназначенном для этого, что не является надежным решением).
Для реализации полноценного "запоминания" состояния без изменения регистров может потребоваться более глубокая переработка бизнес-процессов или использование внешних механизмов сохранения данных, что выходит за рамки функционала СКД и запросов.
ВычислитьВыражение()) и запросовДанный подход пытается максимально использовать декларативные возможности СКД и языка запросов. Он может быть очень сложным для реализации и отладки для данной конкретной задачи из-за необходимости итераций и сохранения состояния.
Мы будем использовать несколько наборов данных или пакетные запросы с временными таблицами (ВТ) для предварительной обработки. Суть в том, чтобы на уровне запросов попытаться создать "нарастающий итог" (running total) по строкам табличной части документа, а затем сопоставить его с оплатой.
// Запрос 1: Получаем все строки реализаций с себестоимостью и суммой
ВЫБРАТЬ
РеализацияТоваровУслугТовары.Ссылка КАК ДокументРеализации,
РеализацияТоваровУслугТовары.НомерСтроки КАК НомерСтроки,
РеализацияТоваровУслугТовары.Номенклатура,
РеализацияТоваровУслугТовары.Количество,
РеализацияТоваровУслугТовары.Сумма КАК СуммаПродажиСтроки,
ЕСТЬNULL(ВложенныйЗапросСебестоимость.Стоимость, 0) КАК СебестоимостьСтроки
ПОМЕСТИТЬ ВТ_СтрокиРеализаций
ИЗ
Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслугТовары
ЛЕВОЕ СОЕДИНЕНИЕ (
ВЫБРАТЬ
ПартииТоваровНаСкладах.Номенклатура,
ПартииТоваровНаСкладах.Стоимость КАК Стоимость,
ПартииТоваровНаСкладах.ДокументДвижения
ИЗ
РегистрНакопления.ПартииТоваровНаСкладах КАК ПартииТоваровНаСкладах
ГДЕ
ПартииТоваровНаСкладах.ДокументДвижения В
(ВЫБРАТЬ РАЗЛИЧНЫЕ РеализацияТоваровУслуг.Ссылка ИЗ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг ГДЕ РеализацияТоваровУслуг.Дата МЕЖДУ &НачалоПериода И &КонецПериода)
) КАК ВложенныйЗапросСебестоимость
ПО РеализацияТоваровУслугТовары.Номенклатура = ВложенныйЗапросСебестоимость.Номенклатура
ГДЕ
РеализацияТоваровУслугТовары.Ссылка.Дата МЕЖДУ &НачалоПериода И &КонецПериода
;
// Запрос 2: Получаем оплаты по документам
ВЫБРАТЬ
ДвиженияДенежныхСредств.ДокументОснование КАК ДокументРеализации,
СУММА(ДвиженияДенежныхСредств.СуммаВзаиморасчетов) КАК СуммаОплаты
ПОМЕСТИТЬ ВТ_Оплаты
ИЗ
РегистрНакопления.ДвиженияДенежныхСредств КАК ДвиженияДенежныхСредств
ГДЕ
ДвиженияДенежныхСредств.Период МЕЖДУ &НачалоПериода И &КонецПериода
И ДвиженияДенежныхСредств.ВидДвижения = &ПриходДенег
СГРУППИРОВАТЬ ПО
ДвиженияДенежныхСредств.ДокументОснование
;
// Запрос 3: Объединяем строки реализаций с оплатами и рассчитываем нарастающий итог по сумме продажи
// и прибыли для определения, какие строки покрыты оплатой.
// Этот запрос является наиболее сложным, так как требует оконных функций (не всегда доступны в 1С)
// или самообъединений для нарастающего итога.
ВЫБРАТЬ
Строки.ДокументРеализации,
Строки.НомерСтроки,
Строки.СуммаПродажиСтроки,
Строки.СебестоимостьСтроки,
Строки.СуммаПродажиСтроки - Строки.СебестоимостьСтроки КАК ПрибыльСтроки,
СУММА(СтрокиПредыдущие.СуммаПродажиСтроки) КАК НарастающийИтогСуммыПродажи,
Оплаты.СуммаОплаты
ИЗ
ВТ_СтрокиРеализаций КАК Строки
ЛЕВОЕ СОЕДИНЕНИЕ ВТ_СтрокиРеализаций КАК СтрокиПредыдущие
ПО Строки.ДокументРеализации = СтрокиПредыдущие.ДокументРеализации
И СтрокиПредыдущие.НомерСтроки <= Строки.НомерСтроки
ЛЕВОЕ СОЕДИНЕНИЕ ВТ_Оплаты КАК Оплаты
ПО Строки.ДокументРеализации = Оплаты.ДокументРеализации
СГРУППИРОВАТЬ ПО
Строки.ДокументРеализации,
Строки.НомерСтроки,
Строки.СуммаПродажиСтроки,
Строки.СебестоимостьСтроки,
Оплаты.СуммаОплаты
УПОРЯДОЧИТЬ ПО
Строки.ДокументРеализации,
Строки.НомерСтроки
;
// На основе этого результата затем потребуется еще один запрос или выражение СКД
// для определения, какие строки попадают под оплату, и для агрегации прибыли.
// Это может быть сделано путем сравнения 'НарастающийИтогСуммыПродажи' с 'СуммаОплаты'.
// Например, прибыль считается только если 'НарастающийИтогСуммыПродажи - СуммаПродажиСтроки < СуммаОплаты'.
// Для последней частично покрытой строки можно использовать более сложную логику.
ВычислитьВыражение() в СКД.
Функции ВычислитьВыражение(), ВычислитьВыражениеСГруппировкойМассив и ВычислитьВыражениеСГруппировкойТаблицаЗначений позволяют выполнять сложные вычисления внутри СКД, получая значения из других строк или в контексте произвольных группировок. Однако для итерации по строкам документа с сохранением состояния (например, остаток оплаты) и динамическим подсчетом прибыли по условию, эти функции в чистом виде являются крайне затруднительными или неэффективными.
Они больше подходят для получения агрегированных значений (минимум, максимум, сумма, первое, последнее) или для сбора данных в массив для последующей обработки (если бы СКД позволяла более сложные программные алгоритмы в выражениях). В нашем случае, где требуется последовательное "потребление" оплаты каждой строкой и остановка, это практически невозможно без создания большого количества промежуточных полей и сложных условий.
Мы можем использовать ВычислитьВыражение() для:
Но для того, чтобы пробежаться по каждой строке табличной части, сравнить с остатком оплаты и накопить прибыль, это не является нативным инструментом СКД.
Исходя из сложности задачи, особенно требований к итерации по строкам, динамическому расчету и потенциальному "запоминанию" состояния, мы рекомендуем следующий путь:
Используйте консоль запросов для отладки и оптимизации этих запросов, чтобы они работали максимально эффективно.
Таким образом, для вашей задачи "НаборДанных - Объект" будет самым надежным и управляемым решением, позволяющим реализовать все нюансы сложной бизнес-логики. Альтернативные подходы с чистым СКД или сложными запросами могут оказаться слишком громоздкими и сложными в поддержке.