В процедуре "ПередЗаписью" в форме элемента справочника "Номенклатуры" хочу данные из реквизита справочника записывать в свойство (регистр сведений  "ЗначениеСвойствОбъектов"). Название реквизита "НоменклатурнаяГруппа", название свойства "ВидНоменклатуры".


Вот код :

Процедура ПередЗаписью(Отказ)
УстановитьСвойствоУНоменклатуры("Вид номенклатуры",НоменклатурнаяГруппа.Наименование);
КонецПроцедуры

=====================

Процедура УстановитьСвойствоУНоменклатуры(НаименованиеСвойства,ЗначениеСвойства)
    НашеСвойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию(НаименованиеСвойства);
    НаборЗаписей = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
    НаборЗаписей.Отбор.Объект.Установить(ЭтотОбъект.Ссылка);
    НаборЗаписей.Отбор.Свойство.Установить(НашеСвойство);
    НаборЗаписей.Прочитать();
    НоваяЗапись = НаборЗаписей.Добавить();
    НоваяЗапись.Объект = Ссылка;
    НоваяЗапись.Свойство = НашеСвойство;
    НоваяЗапись.Значение = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию(ЗначениеСвойства);
    НаборЗаписей.Записать(Истина);
КонецПроцедуры    

===========================

Вот ошибка :
Ошибка при вызове метода контекста (Записать) НаборЗаписей.Записать(Истина);
по причине:
Запись с такими ключевыми полями существует!

============================

Помогите пожалуйста разобраться, что я не так делаю. Спасибо !

(0)
НашеСвойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию(НаименованиеСвойства);
    НоваяЗапись  = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьНаборЗаписей();
    НоваяЗапись.Объект = Ссылка;
    НоваяЗапись.Свойство = НашеСвойство;
    НоваяЗапись.Значение = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию(ЗначениеСвойства);
    НаборЗаписей.Записать(Истина);

(1) то есть так:
НашеСвойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию(НаименованиеСвойства);
    НоваяЗапись  = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьМенеджерЗаписей();
    НоваяЗапись.Объект = Ссылка;
    НоваяЗапись.Свойство = НашеСвойство;
    НоваяЗапись.Значение = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию(ЗначениеСвойства);
    НаборЗаписей.Записать(Истина);

НаборЗаписей.Прочитать();
   НоваяЗапись = НаборЗаписей.Добавить();
замени на
   НаборЗаписей.Прочитать();
   НаборЗаписей.Очистить();
    НоваяЗапись = НаборЗаписей.Добавить();

( rphosts) Ошибки не возникает, но не перезаписывает новые значения. Наверное где-то ещё идет запись в этот регистр ...

Сейчас буду разбираться ...

Чтение набора вообще накой надо, без Прочитать() все будет работать?

Используй менеджер записи или проверяй, что отбор действительно установился

(4) а мой вариант чем не устроил?

( Mankubus) Не рабочий вариант, сейчас подправлю, попробую ...
Что-то не могу разобраться, значения не перезаполняются через набор записей

Вот так переделал процедуру, но все равно остаются старые значения в регистре... Голову уже сломал...


Процедура УстановитьСвойствоУНоменклатуры(НаименованиеСвойства,ЗначениеСвойства)
    НашеСвойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию(НаименованиеСвойства);
    НоваяЗапись  = РегистрыСведений.ЗначенияСвойствОбъектов.СоздатьМенеджерЗаписи();
    НоваяЗапись.Объект = Ссылка;
    НоваяЗапись.Свойство = НашеСвойство;
    НоваяЗапись.Значение = Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию(ЗначениеСвойства);
    НоваяЗапись.Записать(Истина);
КонецПроцедуры

Господа, помогите пожалуйста... Уже не первый час пытаюсь разобраться )

Разобрался. Всему виной Обработка "ЗначенияСвойств" Табличная часть "СвойстваИЗначения" ;)

Вот код, может кому-нибудь пригодится :
Процедура УстановитьСвойствоУНоменклатуры(НаименованиеСвойства,ЗначениеСвойства)
    НашеСвойство = ПланыВидовХарактеристик.СвойстваОбъектов.НайтиПоНаименованию(НаименованиеСвойства);
    НайденнаяСтрока = ОбработкаОбъектЗначенияСвойств.СвойстваИЗначения.Найти(НашеСвойство,"Свойство");
    Если НайденнаяСтрока <> Неопределено Тогда
         НайденнаяСтрока.Значение =  Справочники.ЗначенияСвойствОбъектов.НайтиПоНаименованию(ЗначениеСвойства);
    КонецЕсли;    
КонецПроцедуры