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

1. Vitaly1C8 27.03.17 12:01 Сейчас в теме
Добрый день ! Подскажите что я делаю не правильно ?
Стартую бизнес процесс Ознакомление программно ...
Вопрос: Почему не приходит уведомление Исполнителю на почту ?

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

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


Всё заработало само собой ! Какой то затык непонятный.
По теме из базы знаний
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
Оставьте свое сообщение
Вакансии
1С аналитик
Москва
зарплата от 210 000 руб.
Полный день

Руководитель направления 1С
Москва
зарплата от 350 000 руб.
Полный день

1С Программист
Москва
зарплата от 180 000 руб.
Полный день

Программист 1С
Москва
зарплата от 180 000 руб. до 220 000 руб.
Полный день

Аналитик 1С / Бизнес-аналитик
Нижний Новгород
зарплата от 100 000 руб. до 250 000 руб.
Временный (на проект)