Не выводится печатная форма внешней обработки (пустая форма)

Перем ДанныеОрганизации;
Перем ДанныеФизЛица;
Перем ссылка;



#Область Служебные

Функция СведенияОВнешнейОбработке() Экспорт
	
	ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке("2.3.5.8");
	ПараметрыРегистрации.Информация = НСтр("ru = 'Уведомление о начале отпуска'");
	ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиПечатнаяФорма();
	ПараметрыРегистрации.Версия = "1.0";
	ПараметрыРегистрации.Назначение.Добавить("Документ.ГрафикиОтпусков");
	ПараметрыРегистрации.БезопасныйРежим = ложь; 
	    

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

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

		
КонецПроцедуры
	
#КонецОбласти 

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


Функция ПечатьФормы(ДанныеПечати) экспорт
	
	ПараметрыПечати = ДанныеПечати[0].Значение;     //Получает параметры печати из первого элемента СпискаЗначения
    МассивОбъектов = ДанныеПечати.Скопировать();     //Копируем список значений
    МассивОбъектов.Удалить(0);
	
	Макет = ПолучитьМакет("Макет");
	ОбластьДанные = Макет.ПолучитьОбласть("ОбластьДанные");
	
	Ссылка = МассивОбъектов[0].Значение;
	
	ДанныеСотрудника = параметрыПечати.ДанныеСотрудника;
	
	выборка = ПолучитьДолжностьПодразделениеСотрудника(ДанныеСотрудника.Сотрудник);
	
	ДанныеСотрудника.Вставить("Должность", выборка.Должность);
	ДанныеСотрудника.Вставить("Подразделение", выборка.Подразделение);
	
	ОбластьДанные.Параметры.Должность = ДанныеСотрудника.Должность;
	ОбластьДанные.Параметры.Подразделение = ДанныеСотрудника.Подразделение;
	ОбластьДанные.Параметры.ФИО = ДанныеСотрудника.Сотрудник;
	
	ОбластьДанные.Параметры.День = День(ТекущаяДата());
	ОбластьДанные.Параметры.Месяц = Сред(Формат(ТекущаяДата(), "ДФ='дд ММММ'"),4);
	ОбластьДанные.Параметры.Год = Формат(ТекущаяДата(), "ДФ=yyyy") + " г.";
	
	ОбластьДанные.Параметры.КД = ДанныеСотрудника.КолДней;
	
	ОбластьДанные.Параметры.ДеньНачала = День(ДанныеСотрудника.ДатаНачала);
	ОбластьДанные.Параметры.МесяцНачала = Сред(Формат(ДанныеСотрудника.ДатаНачала, "ДФ='дд ММММ'"),4);
	ОбластьДанные.Параметры.ГодНачала = Формат(ДанныеСотрудника.ДатаНачала, "ДФ=yyyy") + " г.";

	ДатаВыходаНаРаботу = ДанныеСотрудника.ДатаОкончания + (60*60*24);
	ОбластьДанные.Параметры.ДеньОкончания = День(ДатаВыходаНаРаботу);
	ОбластьДанные.Параметры.МесяцОкончания = Сред(Формат(ДатаВыходаНаРаботу, "ДФ='дд ММММ'"),4);
	ОбластьДанные.Параметры.ГодОкончания = Формат(ДатаВыходаНаРаботу, "ДФ=yyyy") + " г.";

	ОбластьДанные.Параметры.ГодОтпусков = Формат(ДанныеСотрудника.ДатаНачала, "ДФ=yyyy");
	ОбластьДанные.Параметры.ДатаУтверждения = Формат(Ссылка.Дата, "ДФ=dd.MM.yyyy");
	
	ОбластьДанные.Параметры.ФИО_Кадровик = ФизическиеЛицаКлиентСервер.ФамилияИнициалы(Ссылка.РуководительКадровойСлужбы.ФИО);
	
	ТабДокумент = Новый ТабличныйДокумент;
	ТабДокумент.ИмяПараметровПечати = "Параметры_Печати_УведомлениеОНачалеОтпуска";
	
	ТабДокумент.КлючПараметровПечати = "ПараметрыПечати_УведомлениеОНачалеОтпуска";
	
	ТабДокумент.Вывести(ОбластьДанные);
	возврат ТабДокумент;     
	

		
КонецФункции