Задача: Необходимо уведомлять на почту заинтересованных лиц об обновлении конфигурации 1С
Решение: прочитаем журнал регистрации, и если находим в нём событие обновления, отправляем на почту уведомления. Код специально сделал «одной процедурой», не требующий каких-то регистров для хранения и прочего. Дату последнего уведомления пользователей, пишу в тот-же журнал. Т.е. получается «вещь в себе», что удобно для внедрения в любую конфигурацию. Ну и собственно остаётся только дергать эту функцию регламентным заданием с периодичностью например раз в час.
&НаСервере
Процедура ПроверкаОбновленияКонфигурации() экспорт
// получаем таблицу когда меняли конфигурацию
ЖурналОбновленияКонфигурации = Новый ТаблицаЗначений;
СтатусыТранзакций = Новый Массив;
СтатусыТранзакций.Добавить(СтатусТранзакцииЗаписиЖурналаРегистрации.Зафиксирована);
СтатусыТранзакций.Добавить(СтатусТранзакцииЗаписиЖурналаРегистрации.НетТранзакции);
МетаданныеМассив = Новый Массив;
МассивСобытий = Новый Массив;
МассивСобытий.Добавить("_$InfoBase$_.DBConfigUpdate");
ФильтрЗаполнения = Новый Структура;
ФильтрЗаполнения.Вставить("ДатаНачала", НачалоДня(ТекущаяДата()));
ФильтрЗаполнения.Вставить("ДатаОкончания", КонецДня(ТекущаяДата()));
ФильтрЗаполнения.Вставить("Метаданные", МетаданныеМассив);
ФильтрЗаполнения.Вставить("Событие", МассивСобытий);
ФильтрЗаполнения.Вставить("Комментарий", "Регистрация конфигурации изменена");
ВыгрузитьЖурналРегистрации(ЖурналОбновленияКонфигурации, ФильтрЗаполнения,"Дата, Событие, Метаданные, Данные, ПредставлениеДанных,Комментарий,Пользователь");
ДатаПоследнегоОбновления=неопределено;
Обновлятор=неопределено;
если ЖурналОбновленияКонфигурации.Количество()>0 тогда
Зап=ЖурналОбновленияКонфигурации[ЖурналОбновленияКонфигурации.Количество()-1];
ДатаПоследнегоОбновления=Зап[0];
УИНПользователя = Новый УникальныйИдентификатор(Зап[2]);
ПользовательИБ = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(УИНПользователя);
конецесли;
если ДатаПоследнегоОбновления<>неопределено тогда
//Получаем таблицу когда уведомляли об изменнии конфигурации
ЖурналУведомленийОбОбновленииКонфигурации = Новый ТаблицаЗначений;
СтатусыТранзакций = Новый Массив;
СтатусыТранзакций.Добавить(СтатусТранзакцииЗаписиЖурналаРегистрации.Зафиксирована);
СтатусыТранзакций.Добавить(СтатусТранзакцииЗаписиЖурналаРегистрации.НетТранзакции);
МетаданныеМассив = Новый Массив;
МассивСобытий = Новый Массив;
МассивСобытий.Добавить("UpdateConfigAlert");
ФильтрЗаполнения = Новый Структура;
ФильтрЗаполнения.Вставить("ДатаНачала", НачалоДня(ТекущаяДата()));
ФильтрЗаполнения.Вставить("ДатаОкончания", КонецДня(ТекущаяДата()));
ФильтрЗаполнения.Вставить("Метаданные", МетаданныеМассив);
ФильтрЗаполнения.Вставить("Событие", МассивСобытий);
ВыгрузитьЖурналРегистрации(ЖурналУведомленийОбОбновленииКонфигурации, ФильтрЗаполнения,"Дата, Событие, Метаданные, Данные, ПредставлениеДанных,Комментарий,Пользователь");
ДатаПоследнегоУведомления=неопределено;
если ЖурналУведомленийОбОбновленииКонфигурации.Количество()>0 тогда
Зап=ЖурналУведомленийОбОбновленииКонфигурации[ЖурналУведомленийОбОбновленииКонфигурации.Количество()-1];
ДатаПоследнегоУведомления=Зап[5];
конецесли;
// Писнем в журнал данные, когда последний раз уведомляли об изменениях заинтересованных лиц
если ДатаПоследнегоУведомления=неопределено или ДатаПоследнегоУведомления<>ДатаПоследнегоОбновления тогда
ЗаписьЖурналаРегистрации("UpdateConfigAlert", УровеньЖурналаРегистрации.Информация, ,ДатаПоследнегоОбновления, "Чуток обновили конфу", РежимТранзакцииЗаписиЖурналаРегистрации.Транзакционная);
МассивЗаинтересованыхЛиц=Новый Массив();
МассивЗаинтересованыхЛиц.Добавить("ауцук@укацук.ru");
ИмяБазы = СоединенияИБКлиентСервер.ПутьКИнформационнойБазе();
ТелоПисьма="<b>Внимание!</b><br/>Наш коллега "+Строка(ПользовательИБ)+" успешно выполнил обновление конфигурации.<br/>База: "+ИмяБазы+"<br/>Дата: "+Строка(ДатаПоследнегоОбновления)+"<br/><br/>Ура товарищи!";
для каждого email из МассивЗаинтересованыхЛиц цикл
попытка
УчетнаяЗаписьПочты = РаботаСПочтовымиСообщениями.ПолучитьСистемнуюУчетнуюЗапись();
ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", email, "Было обновление конфигурации 1С", ТелоПисьма,"HTML");
РаботаСПочтовымиСообщениями.ОтправитьСообщение(УчетнаяЗаписьПочты, ПараметрыПисьма);
исключение
ЗаписьЖурналаРегистрации("СК_ГР.МониторингИзмененияКонфигурации", УровеньЖурналаРегистрации.Ошибка,,ОписаниеОшибки(),);
конецпопытки;
конеццикла;
конецесли;
конецесли;
КонецПроцедуры
