Логирования объектов ИБ через журнал регистрации

Процедуру логирования сделал только для справочников и документов:

Процедура СоздатьЛогНажатие()

Мета=Ссылка.Метаданные();

Табл=Новый ТаблицаЗначений;
Для Каждого Реквизит  Из Мета.Реквизиты Цикл
Если  Табл.Колонки.Найти(Реквизит.Имя)=Неопределено Тогда
Табл.Колонки.Добавить(Реквизит.Имя);

КонецЕсли;
КонецЦикла;

Для Каждого ТЧ  Из Мета.ТабличныеЧасти Цикл
Если  Табл.Колонки.Найти(ТЧ.Имя)=Неопределено Тогда
Табл.Колонки.Добавить(ТЧ.Имя);

КонецЕсли;
КонецЦикла;

НоваяСтрока=Табл.Добавить();

Для Каждого Реквизит  Из Мета.Реквизиты Цикл


НоваяСтрока[Реквизит.Имя]= Ссылка[Реквизит.Имя];


КонецЦикла;


Для Каждого ТЧ  Из Мета.ТабличныеЧасти Цикл

НоваяСтрока[ТЧ.Имя]= Ссылка[ТЧ.Имя].Выгрузить();
КонецЦикла;

СтрДанные=ЗначениеВСтрокуВнутр(Табл);

Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка)) Тогда
ИмяОб="Справочники."+Мета.Имя+"."+Строка(Ссылка.УникальныйИдентификатор());
Иначе
ИмяОб="Документы."+Мета.Имя+"."+Строка(Ссылка.УникальныйИдентификатор());
КонецЕсли;

//ЗаписьЖурналаРегистрации("Лог изменении",,Мета,СтрДанные);
ЗаписьЖурналаРегистрации("ЗаписьЛогов",УровеньЖурналаРегистрации.Информация,Мета,СтрДанные,ИмяОб);
КонецПроцедуры





Когда нам нужно будет прочитать эти логи нужно использовать:

Процедура ПрочитатьЛог()


Мета=Ссылка.Метаданные(); //Ссылка это конкретный значение по которому надо прочитать лог

Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка)) Тогда
ИмяОб="Справочники."+Мета.Имя+"."+Строка(Ссылка.УникальныйИдентификатор());
Иначе
ИмяОб="Документы."+Мета.Имя+"."+Строка(Ссылка.УникальныйИдентификатор());
КонецЕсли;

ТЗ=Новый ТаблицаЗначений;


//сперва выгржаем ЖР в таб.значения с фильтром по периодам, по событиям "ЗаписьЛогов"
ВыгрузитьЖурналРегистрации(ТЗ,Новый Структура("ДатаНачала,ДатаОкончания,Пользователь,Событие",НачалоМесяца(НачПериода),КонецМесяца(КонПериода),ПользователиИнформационнойБазы.НайтиПоИмени("administrator"),"ЗаписьЛогов"),"Дата,ИмяПользователя,Компьютер,Данные,Комментарий");

ТаблицаЛогов=ТЗ.Скопировать(Новый Структура("Комментарий",ИмяОб));
для Каждого стрДанные Из ТаблицаЛогов  Цикл

Попытка
ТЗДанных=ЗначениеИзСтрокиВнутр(стрДанные.Данные);
стрДанные.Данные=ТЗДанных;
Исключение
КонецПопытки;

КонецЦикла;

ЭлементыФормы.ТаблицаЛогов.СоздатьКолонки(); //з
КонецПроцедуры



Такой вариант хотя и покажется банальный но очень действенный главное ЖР вовремя очищать, сделать регламентное задание или при очередном логирования, код очистки будет таков:

ОчиститьЖурналРегистрации(Новый Структура("ДатаНачала,ДатаОкончания,Пользователь,Событие",НачалоМесяца(НачПериода),КонецМесяца(КонПериода),ПользователиИнформационнойБазы.НайтиПоИмени("administrator"),"ЗаписьЛогов"));

Если логи надо хранить на продолжительный период и ЖР не увеличивал базу, можно хранить данные в файл или в отдельную базу данных например на mssql или в базе 1с. Но это дело необходимости!

Спасибо за внимания!