Не выводится шапка формы

Функция СформироватьАктВыполненныхРабот() Экспорт

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

		КонецЦикла;	
	
	ОбластьИтоги = Макет.ПолучитьОбласть("Итоги");
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	СуммаИтого = 0;
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		
		ОбластьИтоги.Параметры.Итог = ВыборкаДетальныеЗаписи.Сумма;
		
		СуммаИтого = СуммаИтого + ВыборкаДетальныеЗаписи.Сумма;
	
	КонецЦикла;
	
	ОбластьИтоги.Параметры.Итог = СуммаИтого;
	
	ТабДок.Вывести(ОбластьИтоги);
	
	ОбластьДетали = Макет.ПолучитьОбласть("Детали");
	
	ОбластьДетали.Параметры.Номер = Выборка.НомерСтроки;
	
	ОбластьДетали.Параметры.СуммаИтого = ОбластьИтоги.Параметры.Итог;
	
	СуммаЧ = ОбластьИтоги.Параметры.Итог;
	
	СуммаЧ = ЧислоПрописью(СуммаЧ, "Л = ru_RU; ДП = Истина", "рубль, рубля, рублей, м, копейка, копейки, копеек, ж, 2");
	
	ОбластьДетали.Параметры.СуммаИтогоТекстом = СуммаЧ;
	
	ТабДок.Вывести(ОбластьДетали);
		
	Возврат ТабДок;