Выборка из результата запроса

Функция СведенияОВнешнейОбработке() Экспорт
//сообщим платформе, что перед ней печатная форма
ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке("2.1.3.1");
ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиПечатнаяФорма(); 

//сообщаем, что печатная форма предназначается для определенного документа
МасНазначений = Новый Массив;
МасНазначений.Добавить("Документ.РеализацияТоваровУслуг");
ПараметрыРегистрации.Назначение = МасНазначений;  

//определяем наименование, версию и режим безопасности
ПараметрыРегистрации.Наименование = "WA Печать заказа";
ПараметрыРегистрации.Версия = "1.00";
ПараметрыРегистрации.БезопасныйРежим = Ложь; 

// добавляем команду
НоваяКоманда = ПараметрыРегистрации.Команды.Добавить();
НоваяКоманда.Представление = НСтр("ru = 'WA Печать заказа'");
НоваяКоманда.Идентификатор = "Макет";
НоваяКоманда.Использование =ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
НоваяКоманда.ПоказыватьОповещение = Истина;
НоваяКоманда.Модификатор = "ПечатьMXL";
Возврат ПараметрыРегистрации;
КонецФункции                         

Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "Макет", "WA Печать заказа", СформироватьПечатнуюФорму(МассивОбъектов[0], ОбъектыПечати));
КонецПроцедуры

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