Механизм, о котором пойдет речь ниже, позволяет гибко и оперативно создавать и настраивать регламентные задания без запуска конфигуратора. Это действенный инструмент, которого порой просто не хватает под рукой.
Предлагаю рассмотреть один из способов реализации такого иснструмента собственными руками. Для тех же, у кого нет времени на болтовню автора статьи и/или же механизм нужен уже сейчас, прошу к скачиванию :)
И пока коллеги со второй категории скачивают обработку, мы ее напишем :)
Нам понадобится.
1. Создать регламентное задание с названием "ВыполнениеОбработки".
2. В качестве исполнительного метода регламентного задания указать метод ВыполнениеОбработки() из общего модуля МодульРегламентныхЗаданий (или любого другого общего модуля с такими же настройками свойств). Описать логику работы метода.
3. Написать обработку, которая будет программно создавать экземпляры регламентного задания с заданными параметрами.
Важно!
Любое регламентное задание имеет такое свойство как Параметры. Это Массив, назначение которого очевидно - хранение параметров, которые передаются на вход исполнительного метода регламентного задания. Более детально можно прочесть в синтаксис помощнике. Отметим только, что устанавливаются параметры регламентного задания только программно. Также следует помнить, что количество и состав параметров должны соответствовать параметрам метода регламентного задания.
Приступим.
Первым делом, создадим регламентное задание. Укажем исполнительный метод. Опишем его логику работы исходя из следующих условий
- Регламентное задание должно уметь запускать как внешние, так и встроенные обработки.
- Уметь передавать входящие параметры (первоначальные настройки) обработке на выполнение.
- Логировать все свои действия в журнал регистрации
Процедура ВыполнениеОбработки(КодОбработки = Неопределено, СохраненныеНастройки = Неопределено) Экспорт
ОбработкаРегламентногоЗадания = Неопределено;
// Не указан код внешней (название встроенной) обработки
Если КодОбработки = Неопределено Тогда
ЗаписьЖурналаРегистрации("Ошибка регламентированного выполнения обработки", УровеньЖурналаРегистрации.Предупреждение,,,
"Не правильно указан параметр '" + КодОбработки + "'");
Возврат;
КонецЕсли;
ВнешняяОбработкаСсылка = Справочники.ВнешниеОбработки.НайтиПоКоду(КодОбработки);
// Проверка, найдена ли внешняя обработка
ВнешняяОбработкаПустая = Ложь;
Если ВнешняяОбработкаСсылка = Неопределено Тогда
ВнешняяОбработкаПустая = Истина;
ИначеЕсли ВнешняяОбработкаСсылка.Пустая() Тогда
ВнешняяОбработкаПустая = Истина;
КонецЕсли;
// Возможно это встроенная обработка
Если ВнешняяОбработкаПустая Тогда
Для каждого ТекВстроеннаяОбработка Из Метаданные.Обработки Цикл
Если СокрЛП(ТекВстроеннаяОбработка.Имя) = СокрЛП(КодОбработки) Тогда
ОбработкаРегламентногоЗадания = Обработки[КодОбработки].Создать();
// Нашли встроенную обработку. Выйти из цикла
Прервать;
КонецЕсли;
КонецЦикла;
// Не удалось найти встроенную обработку
Если ОбработкаРегламентногоЗадания = Неопределено Тогда
ЗаписьЖурналаРегистрации("Ошибка регламентированного выполнения обработки", УровеньЖурналаРегистрации.Предупреждение,,,
"Обработка '" + КодОбработки + "' не найдена");
Возврат;
КонецЕсли;
// Это внешняя обработка
Иначе
ДвоичныеДанные = ВнешняяОбработкаСсылка.ХранилищеВнешнейОбработки.Получить();
// внешнюю обработку невозможно преобразовать в двоичные данные
Если ДвоичныеДанные = Неопределено Тогда
ЗаписьЖурналаРегистрации("Ошибка регламентированного выполнения обработки", УровеньЖурналаРегистрации.Предупреждение,,,
"Внешняя обработка '"+КодОбработки+"' не имеет двоичных данных");
Возврат;
КонецЕсли;
Попытка
АдресВоВременномХранилище = ПоместитьВоВременноеХранилище(ДвоичныеДанные);
ИмяОбработки = ВнешниеОбработки.Подключить(АдресВоВременномХранилище, , Ложь);
Если ВнешняяОбработкаСсылка.ВидОбработки = Перечисления.ВидыДополнительныхВнешнихОбработок.Обработка Тогда
ОбработкаРегламентногоЗадания = ВнешниеОбработки.Создать(ИмяОбработки);
Иначе
ОбработкаРегламентногоЗадания = ВнешниеОтчеты.Создать(ИмяОбработки);
КонецЕсли;
Исключение
ЗаписьЖурналаРегистрации("Ошибка регламентированного выполнения обработки", УровеньЖурналаРегистрации.Предупреждение,,,
"Не удалось подключить внешнюю обработку '"+ВнешняяОбработкаСсылка+"'");
Возврат;
КонецПопытки;
КонецЕсли;
Попытка
Если СохраненныеНастройки = Неопределено Тогда
ОбработкаРегламентногоЗадания.ВыполнитьЗадание();
ИначеЕсли ТипЗнч(СохраненныеНастройки) <> Тип("ХранилищеЗначения") Тогда
ОбработкаРегламентногоЗадания.ВыполнитьЗадание();
ИначеЕсли ТипЗнч(СохраненныеНастройки) = Тип("ХранилищеЗначения") Тогда
ОбработкаРегламентногоЗадания.ВыполнитьЗадание(СохраненныеНастройки);
КонецЕсли;
Исключение
ЗаписьЖурналаРегистрации("Ошибка регламентированного выполнения обработки", УровеньЖурналаРегистрации.Предупреждение,,,
"Обработка '" + ОбработкаРегламентногоЗадания + "' должна иметь в модуле экспортную процедуру 'ВыполнитьЗадание()'");
КонецПопытки;
КонецПроцедуры
Теперь опишем обработку, которая будет создавать экземпляры выше описанного регламентного задания.
Как все работает изнутри, лучше всего расскажет программный код исполнительной процедуры (обработчик нажатия на кнопку "Запустить регламентное задание").
Процедура КнопкаВыполнитьНажатие(Кнопка)
// Проверим все ли реквизиты на форме заполнены корректно
Если НЕ ОбязательныеРеквизитыЗаполнены() Тогда
Возврат;
КонецЕсли;
ОбъектЗадания = РегламентныеЗадания.СоздатьРегламентноеЗадание("ВыполнениеОбработки");
ОбъектЗадания.Наименование = Наименование;
ОбъектЗадания.Ключ = Ключ;
ОбъектЗадания.Использование = Использование;
ОбъектЗадания.ИмяПользователя = ИмяПользователя;
ОбъектЗадания.КоличествоПовторовПриАварийномЗавершении = КоличествоПовторовПриАварийномЗавершении;
ОбъектЗадания.ИнтервалПовтораПриАварийномЗавершении = ИнтервалПовтораПриАварийномЗавершении;
ЗначениеСохраненнойНастройки = ПолучитьЗначениеСохраненнойНастройки();
Параметры = Новый Массив();
Параметры.Добавить(Ключ);
Если ЗначениеСохраненнойНастройки <> Неопределено Тогда
Параметры.Добавить(ЗначениеСохраненнойНастройки);
КонецЕсли;
ОбъектЗадания.Параметры = Параметры;
Попытка
ОбъектЗадания.Записать();
Исключение
ВызватьИсключение "Произошла ошибка при запуске регламентного задания.
|Подробное описание ошибки: " + ОписаниеОшибки();
КонецПопытки;
КонецПроцедуры
После всего проделанного, любая обработка может быть запущена регламентным заданием. Для этого ей достаточно в модуле объекта содержать экспортную процедуру ВыполнитьЗадание().
Оставляйте свои вопросы и предложения по улучшению функциональности механизма в комментариях.
Дополнительную информацию по теме читайте в статьях //infostart.ru/public/183110/ и //infostart.ru/public/191266/ . Авторам спасибо за идеи, мысли и изложенный материал.
