макет не выводит данные

&НаКлиенте
Процедура ВыгрузкаВExcel(Команда)
	Режим = РежимДиалогаВыбораФайла.ВыборКаталога; 
	ДиалогОткрытия = Новый ДиалогВыбораФайла(Режим); 
	ДиалогОткрытия.Каталог = ""; 
	ДиалогОткрытия.МножественныйВыбор = Ложь; 
	ДиалогОткрытия.Заголовок = "Выберите файл с контрагентами"; 

	Если ДиалогОткрытия.Выбрать() Тогда 
		ПутьККаталогу = ДиалогОткрытия.Каталог; 
	КонецЕсли;   
	
	Если Прав(ПутьККаталогу,1) <> "\" Тогда
		Объект.КаталогСохранения = ПутьККаталогу+"\";
	Иначе
		Объект.КаталогСохранения = ПутьККаталогу; 
		
	КонецЕсли;
	
	
	//Сформируем уникальное имя файла 
	ДатаИВремя = СтрЗаменить(ТекущаяДата(),":",".");
	ИмяФайла = "Импорт_" + ДатаИВремя;  	
	ФорматФайла =  Объект.ТипФайла;
	
	//Добавим выбранный каталог к именя файла 
	ПолноеИмяФайла = Объект.КаталогСохранения + ИмяФайла + "." + ФорматФайла;
	
		// Определим в каком формате будет выгружен документ
	Если   ФорматФайла = "XLS" Тогда
		ЗадатьТип =  ТипФайлаТабличногоДокумента.xls; 
		
	ИначеЕсли 	ФорматФайла = "DOCX" Тогда   
		ЗадатьТип = ТипФайлаТабличногоДокумента.docx;
		
	ИначеЕсли ФорматФайла = "PDF" Тогда   
		ЗадатьТип = ТипФайлаТабличногоДокумента.pdf; 
		
	ИначеЕсли  ФорматФайла = "TXT" Тогда  
		ЗадатьТип = ТипФайлаТабличногоДокумента.txt;
		
	ИначеЕсли  ФорматФайла = "XLSX" Тогда  
		ЗадатьТип = ТипФайлаТабличногоДокумента.xlsx;
		

	Иначе 
		Сообщить("Необходимо выбрать формат файла"); 
		Возврат;
	КонецЕсли;   
	
	СозданныйФайл = ЗаполнитьТаблицуНаСервере() ; 
	СозданныйФайл.Записать(ПолноеИмяФайла, ЗадатьТип);
	Сообщить("Выгрузка данных успешно завершена!");
КонецПроцедуры

&НаСервере
Функция ЗаполнитьТаблицуНаСервере() Экспорт
	Макет = Документы.ПоступлениеТоваровУслуг.ПолучитьМакет("Макет");
	ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	ПоступлениеТоваровУслуг.Товары.(
		|		Номенклатура КАК Номенклатура,
		|		Количество КАК Количество,
		|		Сумма КАК Сумма,
		|		Цена КАК Цена
		|	) КАК Товары
		|ИЗ
		|	Документ.ПоступлениеТоваровУслуг КАК ПоступлениеТоваровУслуг";
	
	РезультатЗапроса = Запрос.Выполнить().Выбрать();
	ТабДок = Новый ТабличныйДокумент;
	//ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	Пока РезультатЗапроса.Следующий() Цикл
		ОбластьСтрока.Параметры.Заполнить(РезультатЗапроса);
		ТабДок.Вывести(ОбластьСтрока);
	КонецЦикла;
	
	Возврат(ТабДок);
	
КонецФункции

// Конец СтандартныеПодсистемы.РаботаСФайлами

#КонецОбласти