Периодически от пользователей появлялись вопросы типа: "как найти, кто поставил галочку в документе"? Версионирование объектов включено, есть журнал регистрации, да вот незадача - галочка эта находится не в реквизитах документа, а в Дополнительных свойствах, привязанных к этому документу. В журнале регистрации запись такая, конечно же фиксируется, но информации по ней - практически ноль, только то, что Метаданные = РегистрСведений.ДополнительныеСведения, а хотелось бы видеть сам объект, свойство и новое значение. Причем по объекту желательно сделать возможность поиска (=отбора).
Повозившись немного, реализовал-таки этот механизм, получилось по-моему довольно удобно. Чтобы другим не изобретать велосипед, поделюсь своим решением.
Итак, во-первых, создаем Подписку на событие "ПередЗаписью" источника "РегистрСведенийНаборЗаписей.ДополнительныеСведения":
______________________________________________________________________________________________________________________
____________________________________________________________________________________________
указываем место расположение обработчика, код обработчика со вспомогательной процедурой следующий:
_____________________________________________________________________________________________
Процедура ПриЗаписиДополнительныхСведенийПередЗаписью(Источник, Отказ, Замещение) Экспорт
Объект = Источник.Отбор.Объект.Значение;
НаборЗаписей = РегистрыСведений.ДополнительныеСведения.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Объект.Установить(Объект);
НаборЗаписей.Прочитать();
СтарыеЗначения = НаборЗаписей.Выгрузить();
МассивОбработанныхСвойств = Новый Массив;
Для каждого Запись Из Источник Цикл
СделатьЗапись = Ложь;
НайденнаяСтрока = СтарыеЗначения.Найти(Запись.Свойство, "Свойство");
Если НайденнаяСтрока = Неопределено Тогда
СделатьЗапись = Истина;
Иначе
Если НайденнаяСтрока.Значение <> Запись.Значение Тогда
СделатьЗапись = Истина;
КонецЕсли;
КонецЕсли;
Если СделатьЗапись Тогда
СделатьЗаписьЖурналаРегистрацииОбИзмененииДопСведения(Объект, Запись.Свойство, Запись.Значение);
КонецЕсли;
МассивОбработанныхСвойств.Добавить(Запись.Свойство);
КонецЦикла;
// отдельно обработаем те свойства, значения которых выставлено в Ложь (они не попадают в Источник)
Для каждого ТекСтрока Из СтарыеЗначения Цикл
Если МассивОбработанныхСвойств.Найти(ТекСтрока.Свойство) = Неопределено Тогда
СделатьЗаписьЖурналаРегистрацииОбИзмененииДопСведения(Объект, ТекСтрока.Свойство, Ложь);
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура СделатьЗаписьЖурналаРегистрацииОбИзмененииДопСведения(Объект, Свойство, Значение)
ЗаписьЖурналаРегистрации("Данные.Изменение",
УровеньЖурналаРегистрации.Информация,
Метаданные.РегистрыСведений.ДополнительныеСведения,
Объект,
"У свойства: """ + Свойство + """ установлено новое значение: """ + Значение + """");
КонецПроцедуры
Пример результата из журнала:
___________________________________________________________________
___________________________________________________________________
Данное решение применимо и для других конфигураций, в которых указанный регистр сведений имеет аналогичную структуру. В противном случае, текст процедуры нужно поправить, подставив "свои" имена реквизитов.
Вступайте в нашу телеграмм-группу Инфостарт
