Не записывается значение в доп. реквизит

&НаСервере
Процедура Расш1_ПередЗаписьюНаСервереПосле(Отказ, ТекущийОбъект, ПараметрыЗаписи)
	
	 ДопРеквизитНомерРегламента  = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоРеквизиту("Имя", "НомерТехРСтандартаНаПродукцию_cf17131c982e4a9abf8567d4a0756­3df");
	 ДопРеквизитСистемаИзмерения = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоРеквизиту("Имя", "СистемаИзмерения_2148ab339989447a9127dfe9cfc53653");
	 ДопРеквизитПол 			 = ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоРеквизиту("Имя", "Пол_c7570465560145bd914925498dda7be4");
	 
	 Если ЗначениеЗаполнено(ТекущийОбъект.ВидНоменклатуры) и ТекущийОбъект.ВидНоменклатуры.Родитель.Наименование = "Производство" Тогда 
	 
		 ЗначениеНомерРегламента     = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию("ТР ТС 017/2011 ""О безопасности продукции легкой промышленности""", Истина, , ДопРеквизитНомерРегламента); 
		 ЗначениеСистемаИзмерения    = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию("РОССИЯ", Истина,,  ДопРеквизитСистемаИзмерения);
		 ЗначениеПол                 = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию("женский", Истина,, ДопРеквизитПол);

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

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