Как программно остановить процессы и задачи?

&После("ПриЗаписи")
Процедура Расш1_ПриЗаписиПосле(Отказ)      

	УдалениеПроцессовДокументов();
	
КонецПроцедуры  

Процедура УдалениеПроцессовДокументов()

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

			Запрос = Новый Запрос;
			ТекстЗапроса = "";
			Запрос.УстановитьПараметр("ПредметПроцесса",ЭтотОбъект.Ссылка);
			Для каждого МетаданныеБизнесПроцесса Из Метаданные.БизнесПроцессы Цикл
				ТекстЗапроса = "ВЫБРАТЬ 
					| КомплексныйПроцесс.Ссылка
					|ИЗ
					| БизнесПроцесс.КомплексныйПроцесс КАК КомплексныйПроцесс
					|ГДЕ
					| КомплексныйПроцесс.ПометкаУдаления = ЛОЖЬ
					| И КомплексныйПроцесс.Предметы.Предмет = &ПредметПроцесса";
				ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "БизнесПроцесс.КомплексныйПроцесс","БизнесПроцесс." + МетаданныеБизнесПроцесса.Имя); 
				Запрос.Текст = ТекстЗапроса;
				Результат = Запрос.Выполнить();
				Если НЕ Результат.Пустой() Тогда 
					Выборка = Результат.Выбрать();
					Пока Выборка.Следующий() Цикл
						РСБП = Выборка.Ссылка.ПолучитьОбъект();
						РСБП.ПометкаУдаления = Истина;
						РСБП.ПричинаПрерывания = "Прервано автоматически при пометке на удаление документа";
						РСБП.Состояние = Перечисления.СостоянияБизнесПроцессов.Прерван;
						РСБП.Записать(); 
					КонецЦикла;	 
				КонецЕсли;
			КонецЦикла;

			УстановитьПривилегированныйРежим(Ложь);
		КонецЕсли;
	КонецЕсли;
	

КонецПроцедуры