Во внешнюю печатную форму не выводятся реквизиты

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