Сферический велосипед
Процедура ПодпискаНаСобытие2ПередЗаписью(Источник, Отказ, Замещение) Экспорт
Сообщить(Источник);
Набор = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
Для каждого Эл Из Источник.Отбор Цикл
Набор.Отбор[Эл.Имя].Установить(Эл.Значение);
КонецЦикла;
Набор.Прочитать();
КонецПроцедуры