1С 8.3 Программно добавить запись в журнал регистрации
Данные > Примеры кода 1С > 1С 8.3 Журнал регистрации
Перейти в раздел примеры кода 1С 8.3:
Создание записи в журнал регистрации (программно) в 1С 8.3:
&НаСервере
Процедура ДобавитьЗаписьВЖурналРегистрации()
//Индексы хранятся в каталоге 1Cv8Log в файлах с расширением .lgx
ЗаписьЖурналаРегистрации("Обновление1С", УровеньЖурналаРегистрации.Информация,,,
"Выполнено", РежимТранзакцииЗаписиЖурналаРегистрации.Транзакционная);
//ЗаписьЖурналаРегистрации(<ИмяСобытия>, <Уровень>, <ОбъектМетаданных к которому относится событие>, <Данные>, <Комментарий>, <РежимТранзакции>)
//Обработчик...
КонецПроцедуры
Процедура ДобавитьЗаписьВЖурналРегистрации()
//Индексы хранятся в каталоге 1Cv8Log в файлах с расширением .lgx
ЗаписьЖурналаРегистрации("Обновление1С", УровеньЖурналаРегистрации.Информация,,,
"Выполнено", РежимТранзакцииЗаписиЖурналаРегистрации.Транзакционная);
//ЗаписьЖурналаРегистрации(<ИмяСобытия>, <Уровень>, <ОбъектМетаданных к которому относится событие>, <Данные>, <Комментарий>, <РежимТранзакции>)
//Обработчик...
КонецПроцедуры
Создание записей в журнале регистрации (через структуру) в 1С 8.3:
&НаСервере
Процедура ДобавитьЗаписьВЖурналРегистрацииЧерезСтруктуру()
СписокЗаписейЖурнала = Новый СписокЗначений();
ЗаписьЖурналаНачало = Новый Структура("ИмяСобытия, ПредставлениеУровня, Комментарий,ДатаСобытия");
ЗаписьЖурналаНачало.ИмяСобытия = "НачалоОбновления1С";
ЗаписьЖурналаНачало.ПредставлениеУровня = "Информация"; //"Предупреждение", "Ошибка", "Предупреждение", "Примечание".
ЗаписьЖурналаНачало.Комментарий = "Начато обновление конфигурации до версии 3.7.41";
ЗаписьЖурналаНачало.ДатаСобытия = ТекущаяДата();
СписокЗаписейЖурнала.Добавить(ЗаписьЖурналаНачало);
//... здесь по аналогии журналируем поэтапно сам процесс
ЗаписьЖурналаКонец = Новый Структура("ИмяСобытия, ПредставлениеУровня, Комментарий,ДатаСобытия");
ЗаписьЖурналаКонец.ИмяСобытия = "ОкончаниеОбновления1С";
ЗаписьЖурналаКонец.ПредставлениеУровня = "Информация"; //"Предупреждение", "Ошибка", "Предупреждение", "Примечание".
ЗаписьЖурналаКонец.Комментарий = "Завершено обновление конфигурации до версии 3.7.41";
ЗаписьЖурналаКонец.ДатаСобытия = ТекущаяДата();
СписокЗаписейЖурнала.Добавить(ЗаписьЖурналаКонец);
ЖурналРегистрации.ЗаписатьСобытияВЖурналРегистрации(СписокЗаписейЖурнала);
КонецПроцедуры
Процедура ДобавитьЗаписьВЖурналРегистрацииЧерезСтруктуру()
СписокЗаписейЖурнала = Новый СписокЗначений();
ЗаписьЖурналаНачало = Новый Структура("ИмяСобытия, ПредставлениеУровня, Комментарий,ДатаСобытия");
ЗаписьЖурналаНачало.ИмяСобытия = "НачалоОбновления1С";
ЗаписьЖурналаНачало.ПредставлениеУровня = "Информация"; //"Предупреждение", "Ошибка", "Предупреждение", "Примечание".
ЗаписьЖурналаНачало.Комментарий = "Начато обновление конфигурации до версии 3.7.41";
ЗаписьЖурналаНачало.ДатаСобытия = ТекущаяДата();
СписокЗаписейЖурнала.Добавить(ЗаписьЖурналаНачало);
//... здесь по аналогии журналируем поэтапно сам процесс
ЗаписьЖурналаКонец = Новый Структура("ИмяСобытия, ПредставлениеУровня, Комментарий,ДатаСобытия");
ЗаписьЖурналаКонец.ИмяСобытия = "ОкончаниеОбновления1С";
ЗаписьЖурналаКонец.ПредставлениеУровня = "Информация"; //"Предупреждение", "Ошибка", "Предупреждение", "Примечание".
ЗаписьЖурналаКонец.Комментарий = "Завершено обновление конфигурации до версии 3.7.41";
ЗаписьЖурналаКонец.ДатаСобытия = ТекущаяДата();
СписокЗаписейЖурнала.Добавить(ЗаписьЖурналаКонец);
ЖурналРегистрации.ЗаписатьСобытияВЖурналРегистрации(СписокЗаписейЖурнала);
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник