В этой статье я буду описывать свой поход к отправке отчетов, сделанных на СКД, по расписанию. Статья будет про неуправляемые формы обычное приложение. Будут описаны некоторые объекты 1С, будет много кода. Готовы? Тогда под кат.

Для начала определимся с целью. Какой функционал у нас должен получиться в результате? Я для себя решил примерно так:

1. Отчет должен отправляться на почтовые адреса, указанные в настройках
2. В одном письме может быть несколько отчетов
3. При добавлении новых отчетов для отправки конфигурация не должна изменяться.
4. Формат отчета должен быть pdf, xls, html и т.д.
5. Для отправки отчетов должна быть гибкая настройка расписания.

Теперь немного изменим конфигурацию 1С:

1. Создать справочник «Настройки отправки отчетов»
   1. Реквизиты: РегламентноеЗадание (Строка 40), ИспользоватьРегламентныеЗадания (Булево)
   2. Табличные части: ОтчетыДляОтправки, ПочтовыеАдреса
   3. Реквизиты табличной части «ОтчетыДляОтправки»: Отчет (СправочникСсылка.ВнешниеОбработки), ФорматФайла (Строка 10)
   4. Реквизиты табличной части «ПочтовыеАдреса»: Адрес (Строка 50)
2. Создать регламентное задание «ОтправкаОтчетовПоРассписанию». Именно этот объект будет отвечать за действия выполняемые по расписанию. В нашем случае за отправку отчетов
3. Создать процедуру для работы регламентного задания, нажав на кнопку в поле «Имя метода». Далее приведу код процедуры и вызываемой ею функции
   
   1С (Код)

   Процедура ОтправитьНаПочту(Тема, Текст, СписокПолучателей, Вложения) Почта = Новый ИнтернетПочта; Сообщение = Новый ИнтернетПочтовоеСообщение; Сообщение.Тема = Тема; Сообщение.Отправитель.Адрес = "adres@otpravitelya.ru"; Сообщение.Отправитель.ОтображаемоеИмя = "Отчеты из 1С"; Сообщение.Отправитель.Пользователь = "user"; Сообщение.Отправитель.Сервер = "server"; Сообщение.Тексты.Добавить(Текст); Для Каждого стр из СписокПолучателей Цикл Если ЗначениеЗаполнено(стр.Значение) Тогда Сообщение.Получатели.Добавить(стр.Значение); КонецЕсли; КонецЦикла; Для Каждого Вложение из Вложения Цикл Сообщение.Вложения.Добавить(Вложение.Значение); КонецЦикла; Профиль = Новый ИнтернетПочтовыйПрофиль; Профиль.Пароль = "password"; Профиль.Пользователь = "user"; Профиль.АдресСервераSMTP = "smtp_server"; Профиль.ПользовательSMTP = "smtp_user"; Профиль.ПарольSMTP = "smtp_password"; Профиль.ПортSMTP = 587; Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login; Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная; Если Сообщение.Получатели.Количество() > 0 Тогда Почта.Подключиться(Профиль); Попытка Почта.Послать(Сообщение); Исключение //Сообщить(ОписаниеОшибки()); КонецПопытки; Почта.Отключиться(); КонецЕсли; КонецПроцедуры Процедура ВыполнитьОтправкуОтчета(Настройка) СписокПолучателей = Новый СписокЗначений; СписокВложений = Новый СписокЗначений; Для Каждого Получатель из Настройка.ПочтовыеАдреса Цикл СписокПолучателей.Добавить(Получатель.Адрес); КонецЦикла; Для Каждого СтрокаОтчет из Настройка.ОтчетыДляОтправки Цикл ДвоичныеДанные = СтрокаОтчет.Отчет.ХранилищеВнешнейОбработки.Получить(); врФайл = ПолучитьИмяВременногоФайла("epf"); ДвоичныеДанные.Записать(врФайл); ТабДок = Новый ТабличныйДокумент; Отчет = ВнешниеОтчеты.Создать(врФайл); Отчет.СкомпоноватьРезультат(ТабДок); врФайл = КаталогВременныхФайлов() + СтрокаОтчет.Отчет.Наименование + "." + СтрокаОтчет.ФорматФайла; ТабДок.Записать(врФайл,ТипФайлаТабличногоДокумента[СтрокаОтчет.ФорматФайла]); СписокВложений.Добавить(врФайл); КонецЦикла; ОтправитьНаПочту(Настройка.Наименование,"Отчеты во вложении",СписокПолучателей,СписокВложений); КонецПроцедуры Процедура ОтправкаОтчетовПоРассписанию(КодНастройки) Экспорт Если НЕ ЗначениеЗаполнено(КодНастройки) Тогда Возврат; КонецЕсли; НастройкаОтправки = Справочники.НастройкиОтправкиОтчетов.НайтиПоКоду(КодНастройки); Если НЕ ЗначениеЗаполнено(НастройкаОтправки) Тогда Возврат; КонецЕсли; Если НастройкаОтправки.ПометкаУдаления Тогда Возврат; КонецЕсли; ВыполнитьОтправкуОтчета(НастройкаОтправки); КонецПроцедуры

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86

   Процедура ОтправитьНаПочту(Тема, Текст, СписокПолучателей, Вложения) Почта = Новый ИнтернетПочта; Сообщение = Новый ИнтернетПочтовоеСообщение; Сообщение.Тема = Тема; Сообщение.Отправитель.Адрес = "adres@otpravitelya.ru"; Сообщение.Отправитель.ОтображаемоеИмя = "Отчеты из 1С"; Сообщение.Отправитель.Пользователь = "user"; Сообщение.Отправитель.Сервер = "server"; Сообщение.Тексты.Добавить(Текст); Для Каждого стр из СписокПолучателей Цикл Если ЗначениеЗаполнено(стр.Значение) Тогда Сообщение.Получатели.Добавить(стр.Значение); КонецЕсли; КонецЦикла; Для Каждого Вложение из Вложения Цикл Сообщение.Вложения.Добавить(Вложение.Значение); КонецЦикла; Профиль = Новый ИнтернетПочтовыйПрофиль; Профиль.Пароль = "password"; Профиль.Пользователь = "user";     Профиль.АдресСервераSMTP = "smtp_server"; Профиль.ПользовательSMTP = "smtp_user"; Профиль.ПарольSMTP = "smtp_password"; Профиль.ПортSMTP = 587; Профиль.АутентификацияSMTP = СпособSMTPАутентификации.Login; Профиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная; Если Сообщение.Получатели.Количество() > 0 Тогда Почта.Подключиться(Профиль); Попытка Почта.Послать(Сообщение); Исключение //Сообщить(ОписаниеОшибки()); КонецПопытки; Почта.Отключиться(); КонецЕсли; КонецПроцедуры   Процедура ВыполнитьОтправкуОтчета(Настройка) СписокПолучателей = Новый СписокЗначений; СписокВложений = Новый СписокЗначений; Для Каждого Получатель из Настройка.ПочтовыеАдреса Цикл СписокПолучателей.Добавить(Получатель.Адрес); КонецЦикла; Для Каждого СтрокаОтчет из Настройка.ОтчетыДляОтправки Цикл ДвоичныеДанные = СтрокаОтчет.Отчет.ХранилищеВнешнейОбработки.Получить(); врФайл = ПолучитьИмяВременногоФайла("epf"); ДвоичныеДанные.Записать(врФайл); ТабДок = Новый ТабличныйДокумент; Отчет = ВнешниеОтчеты.Создать(врФайл); Отчет.СкомпоноватьРезультат(ТабДок); врФайл = КаталогВременныхФайлов() + СтрокаОтчет.Отчет.Наименование + "." + СтрокаОтчет.ФорматФайла; ТабДок.Записать(врФайл,ТипФайлаТабличногоДокумента[СтрокаОтчет.ФорматФайла]); СписокВложений.Добавить(врФайл); КонецЦикла; ОтправитьНаПочту(Настройка.Наименование,"Отчеты во вложении",СписокПолучателей,СписокВложений); КонецПроцедуры   Процедура ОтправкаОтчетовПоРассписанию(КодНастройки) Экспорт Если НЕ ЗначениеЗаполнено(КодНастройки) Тогда Возврат; КонецЕсли; НастройкаОтправки = Справочники.НастройкиОтправкиОтчетов.НайтиПоКоду(КодНастройки); Если НЕ ЗначениеЗаполнено(НастройкаОтправки) Тогда Возврат; КонецЕсли; Если НастройкаОтправки.ПометкаУдаления Тогда Возврат; КонецЕсли; ВыполнитьОтправкуОтчета(НастройкаОтправки); КонецПроцедуры

   
   Немного поясню: Процедура ОтправкаОтчетовПоРассписанию создается тогда, когда Вы нажимаете на кнопку в поле «Имя метода». Другие две процедуры Вы должн
   Ну и вставить свои учетные данные почтового сервера вместо этих: adres@otpravitelya.ru, user, server, password, smtp_server, smtp_user, smtp_password
4. Создаем форму элемента справочника «Настройки отправки отчетов» и раскидываем по ней все реквизиты и табличные части. Использовать в коде будем только процедуру формы «ПриОткрытии» и событие галочки «ИспользоватьРегламентныеЗадания». Также добавьте на форму надпись «НадписьРасписаниеРегламентногоЗаданияНастройки», т.к. будем использовать ее событие «ПриНажатии». Приведу код
   
   1С (Код)

   Перем мЖирныйШрифт; Перем мОбычныйШрифт; Процедура УстановитьТекстНадписиРегламентнойНастройки() Перем ТекстЗаголовка, ТекстРасписания, РассписаниеАктивно; ПроцедурыОбменаДаннымиКлиент.ПолучитьТекстЗаголовкаИРасписанияРегламентнойНастройки(мРегламентноеЗадание, ТекстЗаголовка, ТекстРасписания, РассписаниеАктивно); //ЭлементыФормы.НастройкаРегламентногоЗадания.Заголовок = ТекстЗаголовка; ЭлементыФормы.НадписьРасписаниеРегламентногоЗаданияНастройки.Заголовок = ТекстРасписания; ЭлементыФормы.НадписьРасписаниеРегламентногоЗаданияНастройки.Шрифт = ?(РассписаниеАктивно И ИспользоватьРегламентныеЗадания, мЖирныйШрифт, мОбычныйШрифт); КонецПроцедуры Процедура ОбновитьДоступностьАвтообмена() //ЭлементыФормы.НастройкаРегламентногоЗадания.Доступность = ИспользоватьРегламентныеЗадания; ЭлементыФормы.НадписьРасписаниеРегламентногоЗаданияНастройки.Доступность = ИспользоватьРегламентныеЗадания; КонецПроцедуры Процедура РедактированиеРасписанияРегламентногоЗадания(ОбъектЗадания, РеквизитЗадания) Если ОбъектЗадания = Неопределено Тогда ОбъектЗадания = ПолучитьОбъектРегламентногоЗадания(); КонецЕсли; Если ОбъектЗадания = Неопределено Тогда ОбъектЗадания = РегламентныеЗадания.СоздатьРегламентноеЗадание("ОтправкаОтчетовПоРассписанию"); ОбъектЗадания.Наименование = Наименование; ОбъектЗадания.Использование = Истина; КонецЕсли; Диалог = Новый ДиалогРасписанияРегламентногоЗадания(ОбъектЗадания.Расписание); Если Диалог.ОткрытьМодально() Тогда ОбъектЗадания.Расписание = Диалог.Расписание; ОбъектЗадания.Записать(); РеквизитЗадания = Строка(ОбъектЗадания.УникальныйИдентификатор); Иначе ОбъектЗадания = ПолучитьОбъектРегламентногоЗадания(); КонецЕсли; УстановитьТекстНадписиРегламентнойНастройки(); КонецПроцедуры Процедура НадписьРасписаниеРегламентногоЗаданияНастройкиНажатие(Элемент) РедактированиеРасписанияРегламентногоЗадания(мРегламентноеЗадание, РегламентноеЗадание); КонецПроцедуры Процедура ПриОткрытии() УстановитьЗначенияПеременныхРегламентныхНастроек(); УстановитьТекстНадписиРегламентнойНастройки(); ОбновитьДоступностьАвтообмена(); КонецПроцедуры Процедура ИспользоватьРегламентныеЗаданияПриИзменении(Элемент) ОбновитьДоступностьАвтообмена(); УстановитьТекстНадписиРегламентнойНастройки(); Если ИспользоватьРегламентныеЗадания Тогда НадписьРасписаниеРегламентногоЗаданияНастройкиНажатие(ЭлементыФормы.НадписьРасписаниеРегламентногоЗаданияНастройки); Конецесли; КонецПроцедуры мРегламентноеЗадание = Неопределено; мЖирныйШрифт = Новый Шрифт(,,Истина); мОбычныйШрифт = Новый Шрифт();

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81

   Перем мЖирныйШрифт; Перем мОбычныйШрифт;   Процедура УстановитьТекстНадписиРегламентнойНастройки() Перем ТекстЗаголовка, ТекстРасписания, РассписаниеАктивно; ПроцедурыОбменаДаннымиКлиент.ПолучитьТекстЗаголовкаИРасписанияРегламентнойНастройки(мРегламентноеЗадание, ТекстЗаголовка, ТекстРасписания, РассписаниеАктивно); //ЭлементыФормы.НастройкаРегламентногоЗадания.Заголовок = ТекстЗаголовка; ЭлементыФормы.НадписьРасписаниеРегламентногоЗаданияНастройки.Заголовок = ТекстРасписания; ЭлементыФормы.НадписьРасписаниеРегламентногоЗаданияНастройки.Шрифт = ?(РассписаниеАктивно И ИспользоватьРегламентныеЗадания, мЖирныйШрифт, мОбычныйШрифт); КонецПроцедуры   Процедура ОбновитьДоступностьАвтообмена() //ЭлементыФормы.НастройкаРегламентногоЗадания.Доступность = ИспользоватьРегламентныеЗадания; ЭлементыФормы.НадписьРасписаниеРегламентногоЗаданияНастройки.Доступность = ИспользоватьРегламентныеЗадания; КонецПроцедуры   Процедура РедактированиеРасписанияРегламентногоЗадания(ОбъектЗадания, РеквизитЗадания) Если ОбъектЗадания = Неопределено Тогда ОбъектЗадания = ПолучитьОбъектРегламентногоЗадания(); КонецЕсли; Если ОбъектЗадания = Неопределено Тогда ОбъектЗадания = РегламентныеЗадания.СоздатьРегламентноеЗадание("ОтправкаОтчетовПоРассписанию"); ОбъектЗадания.Наименование = Наименование; ОбъектЗадания.Использование = Истина;   КонецЕсли; Диалог = Новый ДиалогРасписанияРегламентногоЗадания(ОбъектЗадания.Расписание); Если Диалог.ОткрытьМодально() Тогда ОбъектЗадания.Расписание = Диалог.Расписание; ОбъектЗадания.Записать(); РеквизитЗадания = Строка(ОбъектЗадания.УникальныйИдентификатор); Иначе ОбъектЗадания = ПолучитьОбъектРегламентногоЗадания(); КонецЕсли; УстановитьТекстНадписиРегламентнойНастройки(); КонецПроцедуры   Процедура НадписьРасписаниеРегламентногоЗаданияНастройкиНажатие(Элемент) РедактированиеРасписанияРегламентногоЗадания(мРегламентноеЗадание, РегламентноеЗадание); КонецПроцедуры   Процедура ПриОткрытии() УстановитьЗначенияПеременныхРегламентныхНастроек(); УстановитьТекстНадписиРегламентнойНастройки(); ОбновитьДоступностьАвтообмена(); КонецПроцедуры   Процедура ИспользоватьРегламентныеЗаданияПриИзменении(Элемент) ОбновитьДоступностьАвтообмена(); УстановитьТекстНадписиРегламентнойНастройки(); Если ИспользоватьРегламентныеЗадания Тогда НадписьРасписаниеРегламентногоЗаданияНастройкиНажатие(ЭлементыФормы.НадписьРасписаниеРегламентногоЗаданияНастройки); Конецесли; КонецПроцедуры   мРегламентноеЗадание = Неопределено; мЖирныйШрифт  = Новый Шрифт(,,Истина); мОбычныйШрифт = Новый Шрифт();

   
   Ну и код модуля справочника «Настройки отправки отчетов»:
   
   1С (Код)

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

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140

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

   
    
5. Обновляем конфигурацию и пробуем то, что у нас получилось. Отправляются ли отчеты