Разные макеты для ВПФ

&НаКлиенте
Процедура ПечатьОтладка(Команда)
	
	МассивДанных = Новый Массив;
	МассивДанных.Добавить(Объект.СсылкаНаОбъект);
	
	СформироватьПечатнуюФорму(МассивДанных);
	
КонецПроцедуры

&НаКлиенте
Процедура СформироватьПечатнуюФорму(ОбъектыНазначения)
	
	СсылкаНаОбъект = ОбъектыНазначения[0];
	
	п_Организация = ПолучитьОрганизацию();
	
	Если ТипЗнч(п_Организация) = Тип("СписокЗначений") Тогда
		//п_Организация = п_Организация.ВыбратьЭлемент();
		п_Организация = п_Организация[0].Значение;
	КонецЕсли;
	
	СтруктураПараметров = ПолучитьСтруктуруПараметров(СсылкаНаОбъект, п_Организация);
	
	НазваниеФайла = ПолучитьИмяВременногоФайла("doc");
	ДанныеФормы   = Объект; 
	
	МакетОбъект = ПолучитьМакетНаСервере("Макет1");
	МакетОбъект.Записать(НазваниеФайла);
	
	mWordObject = Новый COMObject("Word.Application");
	
	Попытка
		WordDoc = mWordObject.Documents.Add(НазваниеФайла);
	Исключение
		Сообщение = Новый СообщениеПользователю();
		Сообщение.Текст = ОписаниеОшибки();
		Сообщение.Сообщить();
	КонецПопытки;
	
	Если СтруктураПараметров = Неопределено Тогда
		ТекстСообщения = НСтр("ru = 'Нет данных для печати. Обратитесь к Администратору 1С'");
		ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения); 
		Возврат;
	КонецЕсли;
	
	Попытка
		ЗаполнитьПараметрыТрудовогоДоговора(WordDoc, СтруктураПараметров);
		
		mWordObject.Application.Visible     = Истина;
		mWordObject.Application.WindowState = 2;
		mWordObject.Application.WindowState = 1;
		mWordObject.Activate();
	Исключение
		// Если произойдет ошибка, выводятся данные об ошибке и объект закрывается.
		Сообщение = Новый СообщениеПользователю();
		Сообщение.Текст = ОписаниеОшибки();
		Сообщение.Сообщить();
		mWordObject.Application.Quit();
	КонецПопытки;	
	
КонецПроцедуры

&НаКлиенте
Процедура ЗаполнитьПараметрыТрудовогоДоговора(Документ, СтруктураПараметров)
	
	wdReplaceNone = 00000000;
	wdReplaceOne  = 00000001;
	wdReplaceAll  = 00000002;
	
	Замена = Документ.Content.Find;
	Замена.Execute("[НаименованиеОрганизацииПолное]", Ложь, Истина, Ложь, , , Истина, , Ложь, Строка(СтруктураПараметров.НаименованиеОрганизацииПолное));
	//
	Замена = Документ.Content.Find;
	Замена.Execute("[НаименованиеОКВЭД]", Ложь, Истина, Ложь, , , Истина, , Ложь, Строка(СтруктураПараметров.НаименованиеОКВЭД));
	

	Замена = Документ.Content.Find;
	Замена.Execute("[АдресОрганизации]", Ложь, Истина, Ложь, , , Истина, , Ложь, Строка(СтруктураПараметров.АдресОрганизации));
	
	//	Замена = Документ.Content.Find;
	//Замена.Execute("[АдресЭП]", Ложь, Истина, Ложь, , , Истина, , Ложь, Строка(СтруктураПараметров.АдресЭП));

	Замена = Документ.Content.Find;
	Замена.Execute("[ФизическоеЛицо]", Ложь, Истина, Ложь, , , Истина, , Ложь, Строка(СокрЛП(СтруктураПараметров.ФизическоеЛицо)));
	
	Замена = Документ.Content.Find;
	Замена.Execute("[ДатаРождения]", Ложь, Истина, Ложь, , , Истина, , Ложь, Строка(СокрЛП(СтруктураПараметров.ДатаРождения)));

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

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

#Область ОсновныеПроцедурыИФункции

&НаКлиенте 
Процедура Печать(ИдентификаторКоманды, МассивОбъектов) Экспорт
	
	СформироватьПечатнуюФорму(МассивОбъектов);
	
КонецПроцедур