1С 8.3 БСП ДобавитьЗадание
Данные > 1С 8.3 БСП > Регламентные задания
Перейти в раздел примеры кода 1С 8.3:
1С 8.3 БСП ДобавитьЗадание. Добавляет новое задание в очередь или как регламентное.
Примера кода от rayastar
Результат = РегламентныеЗаданияСервер.ДобавитьЗадание(Параметры);
//
&НаСервере
Процедура ВключитьЗадание(Организация)
УстановитьПривилегированныйРежим(Истина);
Отбор = Новый Структура();
Отбор.Вставить("Метаданные", "ОтправкаОтчетностиВБанк");
Задания = РегламентныеЗаданияСервер.НайтиЗадания(Отбор);
ТребуетсяСоздатьЗадание = Истина;
Если Задания.Количество() = 0 Тогда
ТребуетсяСоздатьЗадание = Ложь;
КонецЕсли;
Если ТребуетсяСоздатьЗадание Тогда
ПараметрыЗадания = Новый Структура;
ПараметрыЗадания.Вставить("Метаданные", Метаданные.РегламентныеЗадания.ОтправкаОтчетностиВБанк);
ПараметрыЗадания.Вставить("Параметры", ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Организация));
ПараметрыЗадания.Вставить("Расписание", РасписаниеОтправки());
НаименованиеЗадания = СтрШаблон(НСтр("ru = 'Отправка отчетности в Сбербанк от %1'"), Организация);
ПараметрыЗадания.Вставить("Наименование", НаименованиеЗадания);
ПараметрыЗадания.Вставить("ИнтервалПовтораПриАварийномЗавершении", 1200);
ПараметрыЗадания.Вставить("КоличествоПовторовПриАварийномЗавершении", 3);
ПараметрыЗадания.Вставить("Использование", Истина);
РегламентныеЗаданияСервер.ДобавитьЗадание(ПараметрыЗадания);
КонецЕсли;
УстановитьПривилегированныйРежим(Ложь);
//
&НаСервере
Процедура ВключитьЗадание(Организация)
УстановитьПривилегированныйРежим(Истина);
Отбор = Новый Структура();
Отбор.Вставить("Метаданные", "ОтправкаОтчетностиВБанк");
Задания = РегламентныеЗаданияСервер.НайтиЗадания(Отбор);
ТребуетсяСоздатьЗадание = Истина;
Если Задания.Количество() = 0 Тогда
ТребуетсяСоздатьЗадание = Ложь;
КонецЕсли;
Если ТребуетсяСоздатьЗадание Тогда
ПараметрыЗадания = Новый Структура;
ПараметрыЗадания.Вставить("Метаданные", Метаданные.РегламентныеЗадания.ОтправкаОтчетностиВБанк);
ПараметрыЗадания.Вставить("Параметры", ОбщегоНазначенияКлиентСервер.ЗначениеВМассиве(Организация));
ПараметрыЗадания.Вставить("Расписание", РасписаниеОтправки());
НаименованиеЗадания = СтрШаблон(НСтр("ru = 'Отправка отчетности в Сбербанк от %1'"), Организация);
ПараметрыЗадания.Вставить("Наименование", НаименованиеЗадания);
ПараметрыЗадания.Вставить("ИнтервалПовтораПриАварийномЗавершении", 1200);
ПараметрыЗадания.Вставить("КоличествоПовторовПриАварийномЗавершении", 3);
ПараметрыЗадания.Вставить("Использование", Истина);
РегламентныеЗаданияСервер.ДобавитьЗадание(ПараметрыЗадания);
КонецЕсли;
УстановитьПривилегированныйРежим(Ложь);
КонецПроцедуры;
// Автор библиотеки: ООО "1С-Софт". Все права защищены © 2021
// Типовая конфигурация Библиотека стандартных подсистем (далее - БСП)
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник