1С 8.2 УП : Как принудительно завершить бизнес-процесс и задачи?

     БизнесПроцесс.Завершен = Истина;

    БизнесПроцесс.Записать();   

 ТекущаяЗадача.Выполнена = Истина;

ТекущаяЗадача.Записать();   

 Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

|	ОСН_Задача.Ссылка,

|	ОСН_Задача.Дата,

|	ОСН_Задача.БизнесПроцесс,

|	ОСН_Задача.ТочкаМаршрута,

|	ОСН_Задача.Пользователь,

|	ОСН_Задача.Подразделение,

|	ОСН_Задача.БизнесПроцесс.ДокументДоставки

|ИЗ

|	Задача.ОСН_Задача КАК ОСН_Задача

|ГДЕ

|	ОСН_Задача.БизнесПроцесс.ДокументДоставки = &ДокументДоставки";

Запрос.УстановитьПараметр("ДокументДоставки", ВыбранныйДокумент);



Результат = Запрос.Выполнить();

Выборка = Результат.Выгрузить();



ТекПозиция = 0;	

Для каждого СтрокаЗапроса из Выборка Цикл

	ОбработкаПрерыванияПользователя();

	ТекПозиция = ТекПозиция + 1;

	Состояние("Выполнено " + Окр(ТекПозиция / РезультатТаблица.Количество() * 100) + "%");



//Завешим Задачу

	ОбъектЗадача = СтрокаЗапроса.Ссылка.ПолучитьОбъект();

	ОбъектЗадача.Выполнена = Истина;

	ОбъектЗадача.Записать();

	

//Если необходимо то Завершим и Бизнес Процесс

	БизнесПроцесс = СтрокаЗапроса.БизнесПроцесс.ПолучитьОбъект();

	БизнесПроцесс.Завершен = Истина;

	БизнесПроцесс.Записать();

КонецЦикла;

   

 Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

|	CRM_Задача.Ссылка,

|	CRM_Задача.Дата,

|	CRM_Задача.БизнесПроцесс,

|	CRM_Задача.ТочкаМаршрута,

|	CRM_Задача.Пользователь,

|	CRM_Задача.Подразделение,

|	CRM_Задача.БизнесПроцесс.ДокументДоставки

|ИЗ

|	Задача.CRM_Задача КАК CRM_Задача

|ГДЕ

|	CRM_Задача.Выполнена = ЛОЖЬ

|	И CRM_Задача.Дата < &Дата";

Запрос.УстановитьПараметр("Дата", Дата("07.09.2012 0:00:00"));



Результат = Запрос.Выполнить();

Выборка = Результат.Выгрузить();



ТекПозиция = 0;	

Для каждого СтрокаЗапроса из Выборка Цикл

	ОбработкаПрерыванияПользователя();

	ТекПозиция = ТекПозиция + 1;

	Состояние("Выполнено " + Окр(ТекПозиция / РезультатТаблица.Количество() * 100) + "%");



//Завешим Задачу

ОбъектЗадача = СтрокаЗапроса.Ссылка.ПолучитьОбъект();

ОбъектЗадача.ВыполнитьЗадачу();

	

	//Если необходимо то Завершим и Бизнес Процесс

	Если НЕ СтрокаЗапроса.Ссылка.БизнесПроцесс.Завершен Тогда 

	БизнесПроцесс = СтрокаЗапроса.Ссылка.БизнесПроцесс.ПолучитьОбъект();

	БизнесПроцесс.Завершен = Истина;

	БизнесПроцесс.Записать();

	КонецЕсли;

КонецЦикла;