Вывод печатной формы списком (СРОЧНО!)

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

	Шапка = Макет.ПолучитьОбласть("Шапка");
	Строка = Макет.ПолучитьОбласть("Строка");
	Подвал = Макет.ПолучитьОбласть("Подвал");
	ТабДок.Очистить();

	ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
	ВставлятьРазделительСтраниц = Ложь;
	Пока Выборка.Следующий() Цикл
		Если ВставлятьРазделительСтраниц Тогда
			ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
		КонецЕсли;

		Шапка.Параметры.Заполнить(Выборка);
		ТабДок.Вывести(Шапка, Выборка.Уровень());
		
		Строка.Параметры.Заполнить(Выборка);
		
		ДанныеПечати = ОбщегоНазначения.СтрокаТаблицыЗначенийВСтруктуру(Выборка);
		
		 
		ДанныеПечати.ПериодДействияНачало = Формат(ДанныеПечати.ПериодДействияНачало, "ДЛФ=D");
		Строка.Параметры.ПериодДействияНачало = ДанныеПечати.ПериодДействияНачало; 
		ДанныеПечати.ПериодДействияКонец = Формат(ДанныеПечати.ПериодДействияКонец, "ДЛФ=D");
		Строка.Параметры.ПериодДействияКонец = ДанныеПечати.ПериодДействияКонец; 
		ТабДок.Вывести(Строка, Выборка.Уровень());
		//ТабДок.Вывести(Строка, Выборка.Уровень());
		
		
		Подвал.Параметры.Заполнить(Выборка);
		ТабДок.Вывести(Подвал, Выборка.Уровень());
		
		
		
		ВставлятьРазделительСтраниц = Истина;
	КонецЦикла;
	
	//}}

КонецПроцедуры