ДО Запустить процесс Ознакомление при выполнении задачи определенным юзером

Форум Программирование Общие вопросы программирования (Dev)

1С:Документооборот

1. Vitaly1C8 15.06.21 15:59 Сейчас в теме

Всем привет ! Документооборот 1.4
Задача следующая: есть юзер которого нужно контролировать когда он согласовывает задачу (у которой большая сумма в Предмете) Для этого после его согласования стартовать процесс Ознакомление на другого юзера.
Как я понимаю, сделать это нужно в ПодпискеНаСобытия источником для которой является ЗадачаОбъект.ЗадачаИсполнителя

1. В коде обработчика какая то дичь ... касающаяся Комплексного БизнесПроцесса; Могу ли я полностью игнорировать эту обработку, и добавить свой код типа

	Если ТипЗнч(Источник.БизнесПроцесс) = Тип("БизнесПроцессСсылка.Согласование") Тогда

2. Наверняка уже есть пример, как запустить программно процесс; Хотелось бы посмотреть )

// Инициирует активизацию очередных действий при завершении действия комплексного процесса
//
// Параметры:
//	Источник - ссылка на ЗадачуИсполнителя
//	Отказ - признак отказа от обработки события
//
Процедура ЗадачаКомплексногоПроцессаПриВыполнении(Источник, Отказ) Экспорт
	
	УстановитьПривилегированныйРежим(Истина);
	
	ТочкаМаршрутаВложенныйПроцесс = БизнесПроцессы.КомплексныйПроцесс.ТочкиМаршрута.ВложенныйПроцесс;
	
	Если ТипЗнч(Источник.БизнесПроцесс) = Тип("БизнесПроцессСсылка.КомплексныйПроцесс") 
		И Источник.ТочкаМаршрута = ТочкаМаршрутаВложенныйПроцесс Тогда
		
		Запрос = Новый Запрос;
		Запрос.Текст = 
			"ВЫБРАТЬ
			|	ДочерниеБизнесПроцессы.ДочернийПроцесс
			|ИЗ
			|	РегистрСведений.ДочерниеБизнесПроцессы КАК ДочерниеБизнесПроцессы
			|ГДЕ
			|	ДочерниеБизнесПроцессы.СвязующаяЗадача = &СвязующаяЗадача";
		Запрос.УстановитьПараметр("СвязующаяЗадача", Источник.Ссылка);
		Выборка = Запрос.Выполнить().Выбрать();
		Если Выборка.Следующий() Тогда
			Если НЕ ОбщегоНазначения.ИнформационнаяБазаФайловая()
				И ПолучитьФункциональнуюОпцию("ИспользоватьФоновуюМаршрутизациюКомплексныхПроцессов") Тогда
				
				ВедущаяЗадачаДействия = Задачи.ЗадачаИсполнителя.СоздатьЗадачу();
				ВедущаяЗадачаДействия.Дата = ТекущаяДатаСеанса();
				ВедущаяЗадачаДействия.ДатаНачала = ТекущаяДатаСеанса();
				ВедущаяЗадачаДействия.БизнесПроцесс = Источник.БизнесПроцесс;
				ВедущаяЗадачаДействия.ТочкаМаршрута = ТочкаМаршрутаВложенныйПроцесс;
				ВедущаяЗадачаДействия.Наименование = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
					НСтр("ru = 'Ожидание маршрутизации процесса ""%1"" после выполнения ""%2""'"),
					Строка(Источник.БизнесПроцесс),
					Строка(Выборка.ДочернийПроцесс));
				ВедущаяЗадачаДействия.Записать();
				
				РегистрыСведений.ОчередьМаршрутизацииКомплексныхПроцессов.ДобавитьПроцесс(
					Источник.БизнесПроцесс,
					Выборка.ДочернийПроцесс,
					ВедущаяЗадачаДействия.Ссылка);
				
			Иначе
				НовыеПроцессы = Новый Массив();
				КомплексныйПроцессОбъект = Источник.БизнесПроцесс.ПолучитьОбъект();
				КомплексныйПроцессОбъект.СтартоватьНовыеДействия(
					НовыеПроцессы, 
					ТочкаМаршрутаВложенныйПроцесс, 
					Истина, 
					Выборка.ДочернийПроцесс);
			КонецЕсли;
		КонецЕсли;
	КонецЕсли;
		
КонецПроцедуры

Показать

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Good_Smile 15.06.21 16:37 Сейчас в теме

Добрый день! А в 1.4 есть дополнительные обработчики бизнес-событий? если есть, я бы сделала через них и не меняла конфу.
По поводу автоматического создания задач на ознакомления нашла статью https://its.1c.ru/db/metod8dev/content/5874/hdoc

Вот код создания задачи ознакомления при завершении процесса:

Процедура ЗавершениеПриЗавершении(ТочкаМаршрутаБизнесПроцесса, Отказ)

        ...  

    // Если "Согласовано" и это вложенный процесс, 
    //  то задача Ознакомления создается в обработчике ПриЗавершении, 
    //  чтобы не препятствовать завершению процесса.

    Если РезультатСогласования = Перечисления.РезультатыСогласования.Согласовано

         И ЗначениеЗаполнено(ВедущаяЗадача) Тогда

         БизнесПроцессВедущейЗадачи =
             ОбщегоНазначения.ЗначениеРеквизитаОбъекта(ВедущаяЗадача, "БизнесПроцесс");

         Если ТипЗнч(БизнесПроцессВедущейЗадачи) <> Тип("БизнесПроцессСсылка.КомплексныйПроцесс") Тогда

             Возврат;

         КонецЕсли;

         
         Задача = Задачи.ЗадачаИсполнителя.СоздатьЗадачу();
	 ЗаполнитьЗадачуОзнакомиться(Задача);
         Задача.Записать();
         НоваяСтрока = РезультатыОзнакомлений.Добавить();
         НоваяСтрока.НомерИтерации   = НомерИтерации;
         НоваяСтрока.ЗадачаИсполнителя = Задача.Ссылка;
         РаботаСБизнесПроцессами.ЗаписатьПроцесс(ЭтотОбъект, "ПростаяЗапись");

    КонецЕсли;
    
КонецПроцедуры

Показать

3. comptr 33 15.06.21 21:39 Сейчас в теме

Почему не запустить комплексный процесс, состоящий из согласования и ознакомления? Шаблон процесса можно назначить виду документа и запретить его менять.

Оставьте свое сообщение

E-mail: