Зависшие задачи в 1С. Документообороте

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

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