"а вот сам текст:<br><br>Процедура Сформировать()<br> Перем Запрос, ТекстЗапроса, Таб;<br> //Создание объекта типа Запрос<br> Запрос = СоздатьОбъект("Запрос");<br> ТекстЗапроса = <br> "//{{ЗАПРОС(Сформировать)<br> |Период с ВыбНачПериода по ВыбКонПериода;<br> |ОбрабатыватьДокументы все;<br> //|Без итогов;<br> |Контрагент = Документ.РасходнаяНакладная.Контрагент;<br> |Товар = Документ.РасходнаяНакладная.Товар;<br> |Количество = Документ.РасходнаяНакладная.Количество;<br> |ТекДок = Документ.РасходнаяНакладная.ТекущийДокумент;<br> |Функция Сумма_ = Сумма(Количество);<br> |Группировка Контрагент без групп;<br> |Группировка Товар без Групп все ВошедшиеВЗапрос; <br> |"//}}ЗАПРОС<br> ;<br> // Если ошибка в запросе, то выход из процедуры<br> Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда<br> Возврат;<br> КонецЕсли;<br><br> // Подготовка к заполнению выходных форм данными запроса<br> Таб = СоздатьОбъект("Таблица");<br> Таб.ИсходнаяТаблица("Сформировать");<br> // Заполнение полей "Заголовок"<br> Таб.ВывестиСекцию("Заголовок|КонтДок");<br> Состояние("Заполнение выходной таблицы...");<br> Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0); <br> СЗ_СуммПервогоПрохода = СоздатьОбъект("СписокЗначений");<br> ДатаДок = """";<br> ФлагПервогоПрохода = 1;<br> Пока Запрос.Группировка(1) = 1 Цикл<br> Контрагент = Запрос.Контрагент;<br> Если ФлагПервогоПрохода = 0 Тогда<br> Таб.ВывестиСекцию("Сформировать|КонтДок"); <br> КонецЕсли; <br> Пока Запрос.Группировка(2) = 1 Цикл<br> Сумма = Запрос.Сумма_;<br> Если ФлагПервогоПрохода = 1 Тогда<br> Товар = Запрос.Товар;<br> Таб.ПрисоединитьСекцию("Заголовок|Товар"); <br> СЗ_СуммПервогоПрохода.ДобавитьЗначение(Сумма);<br> Иначе <br> Таб.ПрисоединитьСекцию("Сформировать|Товар");<br> КонецЕсли;<br> <br> КонецЦикла;<br> Если ФлагПервогоПрохода = 1 Тогда<br> ФлагПервогоПрохода = 0;<br> Таб.ВывестиСекцию("Сформировать|КонтДок");<br> Для н = 1 по СЗ_СуммПервогоПрохода.РазмерСписка() Цикл<br> Сумма = СЗ_СуммПервогоПрохода.ПолучитьЗначение(н);<br> Таб.ПрисоединитьСекцию("Сформировать|Товар");<br> КонецЦикла;<br> КонецЕсли;<br> КонецЦикла;<br> // Вывод заполненной формы<br> Таб.ТолькоПросмотр(1);<br> Таб.Показать("Сформировать", """");<br>КонецПроцедуры"