Процедуру логирования сделал только для справочников и документов:
Процедура СоздатьЛогНажатие()
Мета=Ссылка.Метаданные();
Табл=Новый ТаблицаЗначений;
Для Каждого Реквизит Из Мета.Реквизиты Цикл
Если Табл.Колонки.Найти(Реквизит.Имя)=Неопределено Тогда
Табл.Колонки.Добавить(Реквизит.Имя);
КонецЕсли;
КонецЦикла;
Для Каждого ТЧ Из Мета.ТабличныеЧасти Цикл
Если Табл.Колонки.Найти(ТЧ.Имя)=Неопределено Тогда
Табл.Колонки.Добавить(ТЧ.Имя);
КонецЕсли;
КонецЦикла;
НоваяСтрока=Табл.Добавить();
Для Каждого Реквизит Из Мета.Реквизиты Цикл
НоваяСтрока[Реквизит.Имя]= Ссылка[Реквизит.Имя];
КонецЦикла;
Для Каждого ТЧ Из Мета.ТабличныеЧасти Цикл
НоваяСтрока[ТЧ.Имя]= Ссылка[ТЧ.Имя].Выгрузить();
КонецЦикла;
СтрДанные=ЗначениеВСтрокуВнутр(Табл);
Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка)) Тогда
ИмяОб="Справочники."+Мета.Имя+"."+Строка(Ссылка.УникальныйИдентификатор());
Иначе
ИмяОб="Документы."+Мета.Имя+"."+Строка(Ссылка.УникальныйИдентификатор());
КонецЕсли;
//ЗаписьЖурналаРегистрации("Лог изменении",,Мета,СтрДанные);
ЗаписьЖурналаРегистрации("ЗаписьЛогов",УровеньЖурналаРегистрации.Информация,Мета,СтрДанные,ИмяОб);
КонецПроцедуры
Когда нам нужно будет прочитать эти логи нужно использовать:
Процедура ПрочитатьЛог()
Мета=Ссылка.Метаданные(); //Ссылка это конкретный значение по которому надо прочитать лог
Если Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(Ссылка)) Тогда
ИмяОб="Справочники."+Мета.Имя+"."+Строка(Ссылка.УникальныйИдентификатор());
Иначе
ИмяОб="Документы."+Мета.Имя+"."+Строка(Ссылка.УникальныйИдентификатор());
КонецЕсли;
ТЗ=Новый ТаблицаЗначений;
//сперва выгржаем ЖР в таб.значения с фильтром по периодам, по событиям "ЗаписьЛогов"
ВыгрузитьЖурналРегистрации(ТЗ,Новый Структура("ДатаНачала,ДатаОкончания,Пользователь,Событие",НачалоМесяца(НачПериода),КонецМесяца(КонПериода),ПользователиИнформационнойБазы.НайтиПоИмени("administrator"),"ЗаписьЛогов"),"Дата,ИмяПользователя,Компьютер,Данные,Комментарий");
ТаблицаЛогов=ТЗ.Скопировать(Новый Структура("Комментарий",ИмяОб));
для Каждого стрДанные Из ТаблицаЛогов Цикл
Попытка
ТЗДанных=ЗначениеИзСтрокиВнутр(стрДанные.Данные);
стрДанные.Данные=ТЗДанных;
Исключение
КонецПопытки;
КонецЦикла;
ЭлементыФормы.ТаблицаЛогов.СоздатьКолонки(); //з
КонецПроцедуры
Такой вариант хотя и покажется банальный но очень действенный главное ЖР вовремя очищать, сделать регламентное задание или при очередном логирования, код очистки будет таков:
ОчиститьЖурналРегистрации(Новый Структура("ДатаНачала,ДатаОкончания,Пользователь,Событие",НачалоМесяца(НачПериода),КонецМесяца(КонПериода),ПользователиИнформационнойБазы.НайтиПоИмени("administrator"),"ЗаписьЛогов"));
Если логи надо хранить на продолжительный период и ЖР не увеличивал базу, можно хранить данные в файл или в отдельную базу данных например на mssql или в базе 1с. Но это дело необходимости!
Спасибо за внимания!
Вступайте в нашу телеграмм-группу Инфостарт
