Как вывести на печатную форму номенклатуру по складам?

Функция Интерес_СформироватьПечатнуюФормуКоммерческогоПредложения(МассивОбъектов, ОбъектыПечати, КомплектыПечати, ПараметрыПечати = Неопределено) Экспорт
	
	УстановитьПривилегированныйРежим(Истина);
	Запрос = Новый Запрос;
	
	ТекстЗапроса = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
	               |	ДокументЗапасы.Ссылка КАК Ссылка,
	               |	ДокументЗапасы.Ссылка.Организация КАК Организация,
	               |	ДокументЗапасы.Ссылка.Организация.Префикс КАК Префикс,
	               |	ДокументЗапасы.Ссылка.Дата КАК ДатаДокумента,
	               |	ДокументЗапасы.Ссылка.Номер КАК Номер,
	               |	ДокументЗапасы.Ссылка.Партнер КАК Партнер,
	               |	ДокументЗапасы.Ссылка.Валюта КАК Валюта,
	               |	ДокументЗапасы.Ссылка.ЦенаВключаетНДС КАК ЦенаВключаетНДС,
	               |	ДокументЗапасы.Ссылка.ОжидаемаяВыручка КАК ОжидаемаяВыручка,
	               |	ДокументЗапасы.НомерСтроки КАК НомерСтроки,
	               |	ДокументЗапасы.Номенклатура КАК Номенклатура,
	               |	ДокументЗапасы.Характеристика КАК Характеристика,
	               |	ДокументЗапасы.КоличествоУпаковок КАК Количество,
	               |	ДокументЗапасы.Номенклатура.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
	               |	ВЫБОР
	               |		КОГДА &ОтображатьСкидки
	               |			ТОГДА ДокументЗапасы.Цена
	               |		ИНАЧЕ ВЫБОР
	               |				КОГДА ДокументЗапасы.КоличествоУпаковок = 0
	               |					ТОГДА 0
	               |				ИНАЧЕ ДокументЗапасы.Сумма / ДокументЗапасы.КоличествоУпаковок
	               |			КОНЕЦ
	               |	КОНЕЦ КАК Цена,
	               |	ДокументЗапасы.ПроцентРучнойСкидки КАК ПроцентРучнойСкидки,
	               |	ДокументЗапасы.Сумма КАК Сумма,
	               |	ДокументЗапасы.СтавкаНДС КАК СтавкаНДС,
	               |	ДокументЗапасы.СуммаНДС КАК СуммаНДС,
	               |	ДокументЗапасы.Всего КАК Всего,
	               |	ДокументЗапасы.Содержание КАК Содержание,
	               |	"""" КАК КомментарийВарианта
	               |ИЗ
	               |	Документ.CRM_Интерес.Товары КАК ДокументЗапасы
	               |ГДЕ
	               |	ДокументЗапасы.Ссылка В(&МассивОбъектов)
	               |
	               |УПОРЯДОЧИТЬ ПО
	               |	НомерСтроки
	               |ИТОГИ
	               |	СУММА(Всего)
	               |ПО
	               |	Ссылка";
	
	Запрос.УстановитьПараметр("МассивОбъектов", МассивОбъектов);
	Запрос.УстановитьПараметр("ОтображатьСкидки", ПараметрыПечати.ОтображатьСкидки);
	
	Запрос.Текст = ТекстЗапроса;
	ВыборкаДокументов = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
	
	ТабличныйДокумент = Новый ТабличныйДокумент;
	
	Пока ВыборкаДокументов.Следующий() Цикл
		
		ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
		
		НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1;
		
		Макет = УправлениеПечатью.МакетПечатнойФормы("Документ.КоммерческоеПредложениеКлиенту.CRM_ПФ_MXL_КоммерческоеПредложение");
		
		ОбластьЗаголовок                = Макет.ПолучитьОбласть("Заголовок");
		ОбластьКонтактноеЛицо           = Макет.ПолучитьОбласть("КонтактноеЛицо");
		ОбластьПредлагаемОзнакомиться   = Макет.ПолучитьОбласть("ПредлагаемОзнакомиться");
		
		ОбластьМенеджер                 = Макет.ПолучитьОбласть("Менеджер");
		ОбластьПустаяСтрокаТонкая       = Макет.ПолучитьОбласть("ПустаяСтрокаТонкая");
		ОбластьДополнительнаяИнформация = Макет.ПолучитьОбласть("ДополнительнаяИнформация");
		ОбластьСрокДействия             = Макет.ПолучитьОбласть("СрокДействияЧастичныйВыкуп");

		
		ДанныеОбъекта = Новый Структура;
		ДанныеШапки = ВыборкаДокументов.Ссылка;
		СведенияОрганизации = Новый Структура;
		СведенияОрганизации.Вставить("Наименование");
		СведенияОрганизации.Вставить("ПолноеНаименование");
		СведенияОрганизации.Вставить("Телефоны");
		СведенияОрганизации.Вставить("ЮридическийАдрес");
		СведенияОрганизации.Вставить("ЭлектроннаяПочта");
		
		КоммерческиеПредложенияДокументыПереопределяемый.ЗаполнитьДанныеОрганизации(ДанныеШапки.Организация, СведенияОрганизации);
		
		Если ЗначениеЗаполнено(СведенияОрганизации.ПолноеНаименование) Тогда
			ПредставлениеОрганизации = СведенияОрганизации.ПолноеНаименование;
		Иначе
			ПредставлениеОрганизации = СведенияОрганизации.Наименование;
		КонецЕсли;
		
		
		Если ЗначениеЗаполнено(ДанныеШапки.Ответственный) Тогда
			
			МассивСМенеджером = Новый Массив;
			МассивСМенеджером.Добавить(ДанныеШапки.Ответственный);
			
			ТребуемыеТипыКонтактнойИнформации = Новый Массив;
			ТребуемыеТипыКонтактнойИнформации.Добавить(Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
			
			ТаблицаКонтактнойИнформации = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъектов(
			МассивСМенеджером,
			ТребуемыеТипыКонтактнойИнформации,,
			ДанныеШапки.Дата);
			
			АдресЭлектроннойПочтыМенеджера = КоммерческиеПредложенияДокументы.ПредставлениеКонтактнойИнформацииИзТаблицы(
			ТаблицаКонтактнойИнформации,
			Перечисления.ТипыКонтактнойИнформации.АдресЭлектроннойПочты);
			
		Иначе
			ТелефонМенеджера = "";
			АдресЭлектроннойПочтыМенеджера   = "";
		КонецЕсли;
		
		ДанныеОбъекта.Вставить("Ссылка",                              ДанныеШапки.Ссылка);
		ДанныеОбъекта.Вставить("Организация",                         ДанныеШапки.Организация);
		ДанныеОбъекта.Вставить("ТелефонОрганизации",                  СведенияОрганизации.Телефоны);
		ДанныеОбъекта.Вставить("АдресОрганизации",                    СведенияОрганизации.ЮридическийАдрес);
		ДанныеОбъекта.Вставить("АдресЭлектроннойПочтыОрганизации",    ?(СведенияОрганизации.Свойство("ЭлектроннаяПочта"),СведенияОрганизации.ЭлектроннаяПочта, ""));
		ДанныеОбъекта.Вставить("Клиент",                              ДанныеШапки.Партнер);
		ДанныеОбъекта.Вставить("Контрагент",                          ДанныеШапки.Контрагент);
		ДанныеОбъекта.Вставить("ПредставлениеОрганизации",            ПредставлениеОрганизации);
		ДанныеОбъекта.Вставить("ПредставлениеКлиента",                КоммерческиеПредложенияДокументы.ПредставлениеПартнераКонтрагента(ДанныеОбъекта.Клиент, ДанныеШапки.Контрагент));
		ДанныеОбъекта.Вставить("КонтактноеЛицо",                      ДанныеШапки.КонтактноеЛицо);
		ДанныеОбъекта.Вставить("Менеджер",                            ДанныеШапки.Ответственный);
		ДанныеОбъекта.Вставить("АдресЭлектроннойПочтыМенеджера",      АдресЭлектроннойПочтыМенеджера);
		ДанныеОбъекта.Вставить("ТелефонМенеджера",                    ТелефонМенеджера);
		ДанныеОбъекта.Вставить("Номер",                               ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(ДанныеШапки.Номер, Ложь, Истина));
		ДанныеОбъекта.Вставить("Дата",                                Формат(ДанныеШапки.Дата,"ДЛФ=D"));
		ДанныеОбъекта.Вставить("КонтактнаяИнформацияПредложения",     КонтактнаяИнформацияПредложения(ДанныеОбъекта));
	
		КоммерческиеПредложенияДокументыПереопределяемый.ПриФормированииЗаголовкаПечатнойФормы(Макет, ОбластьЗаголовок, ДанныеОбъекта);
		
		ДополнительныеПараметрыВывода = Неопределено;
		
		ОбластьЗаголовок.Параметры.Заполнить(ДанныеОбъекта);
		ТабличныйДокумент.Вывести(ОбластьЗаголовок);
		
		Если ЗначениеЗаполнено(ДанныеОбъекта.КонтактноеЛицо) Тогда
			ОбластьКонтактноеЛицо.Параметры.Заполнить(ДанныеОбъекта);
			ТабличныйДокумент.Вывести(ОбластьКонтактноеЛицо);
		КонецЕсли;
		
		ОбластьПредлагаемОзнакомиться.Параметры.Заполнить(ДанныеОбъекта);
		ТабличныйДокумент.Вывести(ОбластьПредлагаемОзнакомиться);

		КПВывестиСтрокиВарианта(ТабличныйДокумент, Макет, ВыборкаДокументов, ПараметрыПечати.ОтображатьСкидки);
					
		ТабличныйДокумент.Вывести(ОбластьПустаяСтрокаТонкая);
		
		ОбластьСрокДействия.Параметры.Заполнить(ДанныеОбъекта);
		ТабличныйДокумент.Вывести(ОбластьСрокДействия);
		
		ОбластьМенеджер.Параметры.Заполнить(ДанныеОбъекта);
		ТабличныйДокумент.Вывести(ОбластьМенеджер);
	
		УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, НомерСтрокиНачало, ОбъектыПечати, ВыборкаДокументов.Ссылка);
	КонецЦикла;
	
	Возврат ТабличныйДокумент;	
КонецФункции