Не заполняется поле ввода формы

Процедура ПриОткрытии()
	
	ЗаполнитьДанныеПечати();
	
КонецПроцедуры

Процедура ЗаполнитьДанныеПечати()
	
	Если ТипЗнч(Документ) = Тип("ДокументСсылка.МК_ПоставкаИУбойСкота") Тогда
		МаркаАвтомобиля = Документ.Машина;
		ГосНомерАвтомобиля = Документ.Машина.ГосударственныйНомер; 
		МаркаПрицепа =""; 
		ГосНомерПрицепа = "";
		Водитель = Документ.Водитель;
		ВодительскоеУдостоверение = "";
		//\/Горбунов ДС 030920
		Перевозчик = ПолучитьЗначениеСвойства(Документ.Водитель,"Перевозчик");
		Если Перевозчик= "" И НЕ ПустаяСтрока(Водитель) Тогда 		
			Перевозчик = Документ.Организация; 
		КонецЕсли;
		///\Горбунов ДС 030920

		Заказчик = "";
		ПунктРазгрузки = Документ.Склад; 
		ПунктПогрузки = Документ.СкладСвинокомплекса;
		ВидПеревозки =  "Автотранспортный";
		ВетеринарноеСвидетельство = "";
		ВетеринарноеСвидетельствоДата = "";
		ВетеринарноеСвидетельствоВыданное = "";
		ОтпускРазрешил = Документ.Разрешил; 
		ЖивотныхПередал = Документ.МОЛОтправитель;	
	ИначеЕсли ТипЗнч(Документ) = Тип("ДокументСсылка.АУ_ПеремещениеЖивотных") Тогда
		МаркаАвтомобиля = Документ.Автомобиль;
		ГосНомерАвтомобиля = Документ.Автомобиль.ГосударственныйНомер; 
		МаркаПрицепа = ""; 
		ГосНомерПрицепа = "";
		Водитель = Документ.Водитель;
		ВодительскоеУдостоверение = "";
		//\/Горбунов ДС 030920
		Перевозчик = ПолучитьЗначениеСвойства(Документ.Водитель,"Перевозчик");
		Если Перевозчик= "" И НЕ ПустаяСтрока(Водитель) Тогда 	
			Перевозчик = Документ.Организация; 
		КонецЕсли;
		///\Горбунов ДС 030920

		Заказчик = "";
		ПунктРазгрузки = Документ.СкладПолучатель; 
		ПунктПогрузки = Документ.СкладОтправитель;
		ВидПеревозки =  "Автотранспортный";
		ВетеринарноеСвидетельство = "";
		ВетеринарноеСвидетельствоДата = "";
		ВетеринарноеСвидетельствоВыданное = "";
		ОтпускРазрешил = Документ.Разрешил; 
		//07072020
		Если Документ.СкладОтправитель = Справочники.Склады.НайтиПоНаименованию("Цех племферма ТМА (Свиньи)") Тогда
			ЖивотныхПередал = Справочники.ФизическиеЛица.НайтиПоНаименованию("Пушина Маргарита Александровна");
		Иначе	
			ЖивотныхПередал = Документ.МОЛОтправитель;	
		КонецЕсли;
		//07072020
		//СМ_ШРС++
	ИначеЕсли ТипЗнч(Документ) = Тип("ДокументСсылка.РеализацияТоваровУслуг") Тогда
		МаркаАвтомобиля = Документ.Машина;
		ГосНомерАвтомобиля = Документ.Машина.ГосударственныйНомер; 
		МаркаПрицепа =""; 
		ГосНомерПрицепа = "";
		Водитель = Документ.Водитель;
		ВодительскоеУдостоверение = "";
		//\/Горбунов ДС 030920
		Перевозчик = ПолучитьЗначениеСвойства(Документ.Водитель,"Перевозчик");
		Если Перевозчик= "" И НЕ ПустаяСтрока(Водитель) Тогда 		
			Перевозчик = Документ.Организация; 
		КонецЕсли;
		///\Горбунов ДС 030920

		Заказчик = "";
		ПунктРазгрузки = Документ.Склад; 
		ПунктПогрузки = Документ.СкладСвинокомплекса;
		ВидПеревозки =  "Автотранспортный";
		ВетеринарноеСвидетельство = "";
		ВетеринарноеСвидетельствоДата = "";
		ВетеринарноеСвидетельствоВыданное = "";
		ОтпускРазрешил = Документ.Разрешил; 
		ЖивотныхПередал = Документ.МОЛОтправитель;
		//СМ_ШРС--
	Иначе
		возврат;
	КонецЕсли;
КонецПроцедуры 

Функция Печать() Экспорт

	Если Не УправлениеДопПравамиПользователей.РазрешитьПечатьНепроведенныхДокументов(СсылкаНаОбъект.Проведен) Тогда
		Предупреждение(НСтр("ru = Недостаточно полномочий для печати непроведенного документа!'"));
		Возврат Неопределено;
	КонецЕсли;
	
	ОбработкаПечати = ПолучитьФорму("Форма");
	
	ОбработкаПечати.Документ = СсылкаНаОбъект;
	
	Если ОбработкаПечати.Открыта() Тогда
		ОбработкаПечати.Активизировать();
	Иначе
	    ОбработкаПечати.Открыть();
	КонецЕсли;
	
	Возврат Неопределено;

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

ОбработкаПечати.Документ = СсылкаНаОбъект;

Процедура КнопкаВыполнитьНажатие(Кнопка)
	
	ТабДок = Печать();
	
	Если ТабДок<> Неопределено Тогда
	
		ТабДок.ОтображатьСетку = Ложь;
		ТабДок.ОтображатьЗаголовки = Ложь;
		ТабДок.ТолькоПросмотр = Ложь;
		ТабДок.Показать(СсылкаНаОбъект);
	
	КонецЕсли;
	
КонецПроцедуры

Процедура ПриОткрытии()
	
	Макет = ПолучитьМакет("Параметры_Авторегистрации");
	
	ВидОбъектаСтр = Макет.Область(2, 1, 2, 1).Текст;  //поменять 4 на 2
	
	Попытка
		ИмяОбъекта = Сред(ВидОбъектаСтр, Найти(ВидОбъектаСтр, ".")+1);
		КлассОбъекта = НРег(Лев(ВидОбъектаСтр, Найти(ВидОбъектаСтр, ".")-1));
		
		Если КлассОбъекта = "документы" Тогда
			ТипОбъекта = "ДокументСсылка";
		ИначеЕсли КлассОбъекта = "справочники" Тогда
			ТипОбъекта = "СправочникСсылка";
		Иначе
			ВызватьИсключение "";
		КонецЕсли;
		
		Выполнить("СсылкаНаОбъект = "+КлассОбъекта+"."+ИмяОбъекта+".ПустаяСсылка();"); 
		
		ЭлементыФормы.СсылкаНаОбъект.ОграничениеТипа = Новый ОписаниеТипов(ТипОбъекта+"."+ИмяОбъекта);
		ЭлементыФормы.СсылкаНаОбъект.ВыбиратьТип = Ложь;
		
		ЭлементыФормы.НадписьСсылкаНаОбъект.Заголовок = Лев(Трег(КлассОбъекта),СтрДлина(КлассОбъекта)-1)+" - "+Метаданные[КлассОбъекта][ИмяОбъекта].Синоним+":";
		
	Исключение
		Предупреждение("В макете ""Параметры_Авторегистрации"" неверно указан объект печати.",,"Ошибка");
		Закрыть();
	КонецПопытки;
	
КонецПроцедуры