Помогите, как вытащить значение свойств объектов с справочника

Question

С чего все началось, мне нужно было на форму справочника добавить кнопку, которая заполняла бы значение определенного свойства, но мне не удается к нему подцепится, чтоб записать в него данные? Данные для заполнения, беру с созданного мной регистра сведений



[1C-CODE]Процедура ЗаполнитьНажатие(Элемент)

Докум = Справочники.ДоговорыКонтрагентов.Выбрать().Владелец;	


//осуществялем заполнение регистра сведений "Нумератор" значениями со справочника "Договоры Контрагентов"

	Наборчик=РегистрыСведений.Нумератор.СоздатьМенеджерЗаписи();
	Наборчик.Активность=Истина;        //попробовать без него
	Наборчик.Год=Формат(ТекущаяДата(), "ДФ=гггг");  //Выбрать формат, чтоб вытаскивал только "год"
	Наборчик.ПорядковыйНомер = 1;      //вытащить номер Рег. номера и присвоить его региструсведений.нумератор
	Наборчик.Записать();               //(ложь)
		  
	
	 Рег = РегистрыСведений.ЗначенияСвойствОбъектов.ПустойКлюч();
	                
	 
	 Справочники.ДоговорыКонтрагентов.ПолучитьСсылку(); 
	Если Формат(Рег.Период, "ДФ=гггг") <> Формат(Наборчик.Год, "ДФ=гггг") тогда
		
		Наборчик=РегистрыСведений.Нумератор.СоздатьМенеджерЗаписи();
   		Наборчик.Активность=Истина;        //попробовать без него
		Наборчик.Год=Формат(Рег.Период,"ДФ=гггг");  //Выбрать формат, чтоб вытаскивал только "год"  ДФ=dd
		Наборчик.ПорядковыйНомер = 1;      //вытащить номер Рег. номера и присвоить его региструсведений.нумератор
		Наборчик.Записать();			   //(ложь)
		Регистр = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьМенеджерЗаписи();
		Регистр.Объект = Докум.Владелец;  
		Регистр.Свойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоКоду("00172");
		Регистр.Значение = Наборчик.ПорядковыйНомер;
		//Докум.Номер = Наборчик.ПорядковыйНомер;
			Наборчик.ПорядковыйНомер = Наборчик.ПорядковыйНомер +1;
	//		Докум.Записать();
	иначе
		Регистр = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьМенеджерЗаписи();
		Регистр.Объект = ;
		Регистр.Свойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоКоду("00172");
		Регистр.Значение = Наборчик.ПорядковыйНомер;
		
		//Докум.Номер = Наборчик.ПорядковыйНомер;           
		Наборчик.ПорядковыйНомер = Наборчик.ПорядковыйНомер + 1;
		//Докум.Записать();
		
	КонецЕсли;
	
	
		
КонецПроцедуры[/1C-CODE]

Accepted Answer

(1) 2 универсальные функции для чтения и записи свойства, для ОФ, проверено и работает в УТ 10.3
[CODE]Функция ОпределитьЗначениеСвойства(ЗначениеСвойства,ВыбОбъект) Экспорт
	ЗначСвойства = неопределено;
	ПВХ = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию(ЗначениеСвойства);
	Запрос = Новый Запрос;
	Запрос.Текст = "
	|ВЫБРАТЬ 
	|ЗСО.Значение
	|ИЗ
	|РегистрСведений.ЗначенияСвойствОбъектов КАК ЗСО
	|ГДЕ Объект = &ВыбОбъект И Свойство = &ВыбСвойство";
	Запрос.УстановитьПараметр("ВыбОбъект",ВыбОбъект);
	Запрос.УстановитьПараметр("ВыбСвойство",ПВХ);
	Выборка = Запрос.Выполнить().Выбрать();
	Если Выборка.Следующий() Тогда
	ЗначСвойства = Выборка.Значение;
	КонецЕсли;
	Возврат ЗначСвойства;    
КонецФункции

Функция ЗаписатьЗначениеСвойства(Значение,ЗначениеСвойства,ВыбОбъект) Экспорт
	ПВХ = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию(ЗначениеСвойства);
	МенеджерЗаписи = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьМенеджерЗаписи();
	МенеджерЗаписи.Объект = ВыбОБъект.Ссылка;
	МенеджерЗаписи.Свойство = ПВХ.Ссылка;
	МенеджерЗаписи.Значение = Значение;
	МенеджерЗаписи.Записать()
КонецФункции
[/CODE]