Попалась на глаза публикация об отправке ошибок из журнала регистрации на почту. Делал в свое время похожее решение, но для удобства сделал возможность создавать отдельные настройки, в соответствии с которыми выполнялась фильтрация событий и их рассылка.
События фильтруются по принципу: (Условие1 ИЛИ Условие2 ИЛИ ....) И НЕ (Условие3 ИЛИ Условие4 ИЛИ ...).
Возможно создание нескольких настроек и расписания обработки для каждой по отдельности.
Во вложении файл конфигурации с подсистемой. Конфигурация писалась на платформе версии 8.3.6..
Кому не хочется скачивать файл, кратко опишу реализацию и приведу основную процедуру, в которой выполняется сбор и рассылка данных.
Основные объекты подсистемы:
1. Справочник Настройки оповещения
2. Регистр сведений ДатаПоследнегоОповещения
3. Регламентное задание ОтправкаОповещений
В справочнике "НастройкиОповещения" задаются Получатель оповещения и фильтр событий. В списке "Фильтр событий" вводятся строки - фрагмент сообщения об ошибке. В этом же списке отдельные события можно "Исключить".
Регистр сведений ДатаПоследнегоОповещения содержит дату и время последней обработки в разрезе НастройкиОповещения.
Регламентное задание ОтправкаОповещений запускается по своему расписанию для каждой НастройкиОповещения.
В текущей реализации анализ журнала регистрации выполняется только по "Ошибкам". При желании, список событий можно расширить.
Текст процедуры ниже.
Процедура ELN_ОтправкаОповещений(НастройкаОповещения) Экспорт
Запрос = Новый Запрос;
Запрос.Текст = Новый Запрос;
Запрос.УстановитьПараметр("НастройкаОповещения", НастройкаОповещения);
Запрос.Текст =
"ВЫБРАТЬ
| ELN_НастройкиОповещения.АдресЭП,
| ELN_НастройкиОповещения.АдресЭПКопия,
| ELN_НастройкиОповещения.УчетнаяЗаписьЭлектроннойПочты,
| ELN_НастройкиОповещения.ФильтрСообщений.(
| Ссылка,
| НомерСтроки,
| Текст,
| Исключить
| ),
| ЕСТЬNULL(ELN_ДатаПоследнегоОповещения.Дата, ДАТАВРЕМЯ(1, 1, 1)) КАК ДатаПоследнегоОповещения
|ИЗ
| Справочник.ELN_НастройкиОповещения КАК ELN_НастройкиОповещения
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.ELN_ДатаПоследнегоОповещения КАК ELN_ДатаПоследнегоОповещения
| ПО (ELN_ДатаПоследнегоОповещения.НастройкаОповещения = ELN_НастройкиОповещения.Ссылка)
|ГДЕ
| ELN_НастройкиОповещения.Ссылка = &НастройкаОповещения
| И ELN_НастройкиОповещения.Активная";
Выборка = Запрос.Выполнить().Выбрать();
Если НЕ Выборка.Следующий() Тогда
Возврат;
КонецЕсли;
Отбор = Новый Структура;
ДатаНачала = Выборка.ДатаПоследнегоОповещения;
ДатаОкончания = ТекущаяДата();
Если ДатаНачала = '00010101' Тогда
ДатаНачала = НачалоДня(ТекущаяДата()); // первый раз с начала дня
КонецЕсли;
Отбор.Вставить("ДатаНачала", ДатаНачала);
Отбор.Вставить("ДатаОкончания", ДатаОкончания);
Уровень = Новый Массив;
Уровень.Добавить(УровеньЖурналаРегистрации.Ошибка);
Отбор.Вставить("Уровень", Уровень);
тзДанныеЖР = Новый ТаблицаЗначений;
ВыгрузитьЖурналРегистрации(тзДанныеЖР,Отбор,,,);
тзВрем = Новый ТаблицаЗначений;
тзВрем.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата",,,Новый КвалификаторыДаты(ЧастиДаты.ДатаВремя)));
тзВрем.Колонки.Добавить("Комментарий", Новый ОписаниеТипов("Строка",,Новый КвалификаторыСтроки(1000),));
Для Каждого СтрокаЖР из тзДанныеЖР Цикл
НоваяСтрока = тзВрем.Добавить();
НоваяСтрока.Дата = СтрокаЖР.Дата;
Если ПустаяСтрока(СтрокаЖР.Комментарий) Тогда
НоваяСтрока.Комментарий = "" + СтрокаЖР.Данные;
Иначе
НоваяСтрока.Комментарий = СтрокаЖР.Комментарий;
КонецЕсли;
КонецЦикла;
тзДанныеЖР = Неопределено;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("тзДанныеЖР", тзВрем);
Запрос.Текст =
"ВЫБРАТЬ
| тзДанныеЖР.Дата,
| тзДанныеЖР.Комментарий
|ПОМЕСТИТЬ втДанныеЖР
|ИЗ
| &тзДанныеЖР КАК тзДанныеЖР
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| втДанныеЖР.Дата КАК Дата,
| втДанныеЖР.Комментарий,
| ПОДСТРОКА(втДанныеЖР.Комментарий, 1, 300) КАК Комментарий0
|ИЗ
| втДанныеЖР КАК втДанныеЖР
|ГДЕ
| втДанныеЖР.Комментарий ПОДОБНО &Комментарий
|ИТОГИ
| КОЛИЧЕСТВО(Дата)
|ПО
| Комментарий0";
ФильтрСообщений = Выборка.ФильтрСообщений.Выбрать();
Если ФильтрСообщений.Количество() = 0 Тогда
Запрос.Текст = СтрЗаменить(Запрос.Текст,"втДанныеЖР.Комментарий ПОДОБНО &Комментарий", "ИСТИНА");
Иначе
ТекстУсловия = "";
ТекстУсловияНЕ = "";
Пока ФильтрСообщений.Следующий() Цикл
Если НЕ ФильтрСообщений.Исключить Тогда
ТекстУсловия = ТекстУсловия + ?(ПустаяСтрока(ТекстУсловия),"", Символы.ПС + "ИЛИ ");
ТекстУсловия = ТекстУсловия + "втДанныеЖР.Комментарий ПОДОБНО " + """%" + ФильтрСообщений.Текст + "%""";
Иначе
ТекстУсловияНЕ = ТекстУсловияНЕ + ?(ПустаяСтрока(ТекстУсловияНЕ),"", Символы.ПС + "ИЛИ ");
ТекстУсловияНЕ = ТекстУсловияНЕ + "втДанныеЖР.Комментарий ПОДОБНО " + """%" + ФильтрСообщений.Текст + "%""";
КонецЕсли;
КонецЦикла;
Если ПустаяСтрока(ТекстУсловия) Тогда
ТекстУсловия = "НЕ " + "(" + ТекстУсловияНЕ + ")";
ИначеЕсли НЕ ПустаяСтрока(ТекстУсловияНЕ) Тогда
ТекстУсловия = "(" + ТекстУсловия + ")"+ " И НЕ " + "(" + ТекстУсловияНЕ + ")";
КонецЕсли;
Запрос.Текст = СтрЗаменить(Запрос.Текст,"втДанныеЖР.Комментарий ПОДОБНО &Комментарий", ТекстУсловия);
КонецЕсли;
ТекстОповещения = "";
КоличествоОшибокВсего = 0;
ВыборкаОшибки = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаОшибки.Следующий() Цикл
ТекстОповещения = ТекстОповещения + ?(ПустаяСтрока(ТекстОповещения), "", Символы.ПС + Символы.ПС + Символы.ПС);
ТекстОповещения = ТекстОповещения + "Текст ошибки:" + Символы.ПС;
ВывестиОшибку = Истина;
КоличествоОшибок = ВыборкаОшибки.Дата;
КоличествоОшибокВсего = КоличествоОшибокВсего + КоличествоОшибок;
ВыборкаДетальные = ВыборкаОшибки.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ВыборкаДетальные.Следующий() Цикл
Если ВывестиОшибку Тогда
ТекстОповещения = ТекстОповещения + ВыборкаДетальные.Комментарий;
ТекстОповещения = ТекстОповещения + Символы.ПС + Символы.ПС + "Количество ошибок: " + КоличествоОшибок;
ВывестиОшибку = Ложь;
КонецЕсли;
КонецЦикла;
КонецЦикла;
Если НЕ ПустаяСтрока(ТекстОповещения) Тогда
ПочтовыйПрофиль = ПолучитьПрофильИнтернетПочтовоеПодключения(Выборка.УчетнаяЗаписьЭлектроннойПочты);
ТемаПисьма = "Оповещение об ошибках в ЖР за период "
+ Формат(ДатаНачала,"ДФ='dd.MM.yyyy hh:mm:ss'")
+ " по "
+ Формат(ДатаОкончания,"ДФ='dd.MM.yyyy hh:mm:ss'")
+ ". Ошибок: "
+ КоличествоОшибокВсего;
Получатель = Выборка.АдресЭП;
Копии = Выборка.АдресЭПКопия;
Если НЕ ОтправитьЭлектронноеПисьмо(ПочтовыйПрофиль, "" + Выборка.УчетнаяЗаписьЭлектроннойПочты, ТемаПисьма,ТекстОповещения,Получатель,Копии,) Тогда
ДатаОкончания = '00010101'; // последнюю дату менять не будем
КонецЕсли;
КонецЕсли;
Если ЗначениеЗаполнено(ДатаОкончания) Тогда
НаборЗаписей = РегистрыСведений.ELN_ДатаПоследнегоОповещения.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.НастройкаОповещения.Установить(НастройкаОповещения);
НоваяЗапись = НаборЗаписей.Добавить();
НоваяЗапись.НастройкаОповещения = НастройкаОповещения;
НоваяЗапись.Дата = ДатаОкончания;
НаборЗаписей.Записать();
КонецЕсли;
КонецПроцедуры
Спасибо за внимание.
