Программный запуск комплексного бизнес-процесса и его редактирование

Если ДокументОбъект.сиб_ТипПакетаЭДО = Перечисления.сиб_ТипПакетаЭДО.АктСверки Тогда
	
	МассивПроцессовПоПредмету = РаботаСБизнесПроцессамиВызовСервера.ПроцессыПоПредмету(Событие.Источник);        
	ШаблонКомплексногоПроцессаДляАктаСверки = сиб_РаботаСНастройкамиИнформационнойБазы.ЗначениеНастройки(
					ПланыВидовХарактеристик.сиб_ВидыНастроекИнформационнойБазы.ШаблонСозданиеВХПакетаЭДОИсходящийАктСверкиСПротоколом);
	 ШаблонСогласованиеВходящегоПакетаЭДО = сиб_РаботаСНастройкамиИнформационнойБазы.ЗначениеНастройки(
					ПланыВидовХарактеристик.сиб_ВидыНастроекИнформационнойБазы.ШаблонСогласованиеВхПакетаЭДО);
		
	Для Каждого ВидМассива Из МассивПроцессовПоПредмету Цикл
		 	Для Каждого ПроцессПредмета Из ВидМассива.Значение Цикл
				Если ПроцессПредмета.Шаблон = ШаблонСогласованиеВходящегоПакетаЭДО И ПроцессПредмета.Стартован Тогда
				 			Автор = ПроцессПредмета.Автор;
				
				Процесс = БизнесПроцессы.КомплексныйПроцесс.СоздатьБизнесПроцесс();
				Процесс.ЗаполнитьПоШаблонуИПредмету(ШаблонКомплексногоПроцессаДляАктаСверки, Событие.Источник, Справочники.Пользователи.ПустаяСсылка());
				СтрокаЭтапы = Процесс.Этапы.Добавить();
				СтрокаЭтапы = БизнесПроцессы.Исполнение.СоздатьБизнесПроцесс();
				СтрокаЭтапы.Дата = ТекущаяДатаСеанса();
				СтрокаЭтапы.Важность = Перечисления.ВариантыВажностиЗадачи.Обычная;
				СтрокаЭтапы.ВариантИсполнения = Перечисления.ВариантыМаршрутизацииЗадач.Последовательно;
				СтрокаЭтапы.КоличествоИтераций = 1;
				СтрокаЭтапы.Наименование = "ОтправитьАС";
				ИсполнителиЭтапа = СтрокаЭтапы.Исполнители.Добавить();
				ИсполнителиЭтапа = Автор;
			КонецЕсли;
	КонецЦикла;