ДО 2.0 Старт бизнес процесса Ознакомление программно

&НаСервере
Процедура ОтправитьНаОзнакомлениеПоПочтеНаСервере()
	// "ЗаголовокШапка", "ВходящихЗапросов", "ИсполненныхЗапросов", "ИсполненоЗаданий"
	// Сообщить("ЗаголовокШапка : " + ЭтаФорма.ЗаголовокШапка);
	// Сообщить("ВходящихЗапросов : " + ЭтаФорма.ВходящихЗапросов);
	// Сообщить("ИсполненныхЗапросов : " + ЭтаФорма.ИсполненныхЗапросов);
	// Сообщить("ИсполненоЗаданий : " + ЭтаФорма.ИсполненоЗаданий);
	
	Исполнители = Новый Массив;
	Если ЭтаФорма.Адресат1 <> Справочники.Пользователи.ПустаяСсылка() Тогда
		Исполнители.Добавить(ЭтаФорма.Адресат1);
	КонецЕсли;
	
	Если ЭтаФорма.Адресат2 <> Справочники.Пользователи.ПустаяСсылка() Тогда
		Исполнители.Добавить(ЭтаФорма.Адресат2);
	КонецЕсли;
	
	Если ЭтаФорма.Адресат3 <> Справочники.Пользователи.ПустаяСсылка() Тогда
		Исполнители.Добавить(ЭтаФорма.Адресат3);
	КонецЕсли;
	
	Если ЭтаФорма.Адресат4 <> Справочники.Пользователи.ПустаяСсылка() Тогда
		Исполнители.Добавить(ЭтаФорма.Адресат4);
	КонецЕсли;
	
	Если ЭтаФорма.Адресат5 <> Справочники.Пользователи.ПустаяСсылка() Тогда
		Исполнители.Добавить(ЭтаФорма.Адресат5);
	КонецЕсли;
	
	Если Исполнители.Количество() = 0 Тогда
		Сообщить("Выберите пользователей - КОМУ отправлять на почту для ознакомления !");
		Возврат;
	КонецЕсли;
	
	Бп = БизнесПроцессы.Ознакомление.СоздатьБизнесПроцесс();	
	Бп.Дата = ТекущаяДатаСеанса();
	Бп.Важность = Перечисления.ВариантыВажностиЗадачи.Обычная;
	
	Бп.Автор = Пользователи.ТекущийПользователь(); // Справочники.Пользователи.НайтиПоНаименованию("Уведомления1С");
	
	// Объект.ДежурнаяСмена;	// <---- Пользователь:=Уведомления1С
	Бп.Проект = РаботаСПроектами.ПолучитьПроектПоУмолчанию();
	
	Бп.Наименование = "Ознакомиться с отчетом : Поступило запросов " + ЭтаФорма.ЗаголовокШапка;
	Бп.Описание = ЭтаФорма.ЗаголовокШапка + Символы.ПС + 
	              "ВходящихЗапросов : " + ЭтаФорма.ВходящихЗапросов + Символы.ПС + 
	              "ИсполненныхЗапросов : " + ЭтаФорма.ИсполненныхЗапросов + Символы.ПС + 
				  "ИсполненоЗаданий : " + ЭтаФорма.ИсполненоЗаданий;

	ОтправленоПользователям = "Отправлено : ";
	Если Исполнители<>Неопределено Тогда
		Для Каждого Исполнитель ИЗ Исполнители Цикл
			Строка = Бп.Исполнители.Добавить();
			Строка.Исполнитель = Исполнитель;
			ОтправленоПользователям = ОтправленоПользователям + СокрЛП(Исполнитель) + Символы.ПС;
		КонецЦикла;
	КонецЕсли;
	
	Бп.Записать();
	Бп.Старт();
	
       // Неужели нужно принудительно формировать для каждой Задачи ??? :
       // ВыполнениеЗадачПоПочтеСервер.СформироватьУведомлениеПоЗадаче(Объект.Задача);
	
	Сообщить(ОтправленоПользователям);
	
КонецПроцедуры