&НаСервере

Процедура ЗафиксироватьВыполнениеНаСервере()

    

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

    

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

    

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

 ТекстВопроса = "Задача будет завершена. Продолжить?";

	ОтветНаВопрос = Вопрос(ТекстВопроса,РежимДиалогаВопрос.ОКОтмена,,КодВозвратаДиалога.ОК);

	Если ОтветНаВопрос = КодВозвратаДиалога.ОК Тогда

		ВыполнитьЗадачуИнтерактивно();

		ЗаписатьВФорме();

		

                // условие для БП Поручение

		Если ТипЗнч(БизнесПроцесс) = Тип("БизнесПроцессСсылка.CRM_Поручение")

		 И (ТочкаМаршрута.Имя = "Контроль")Тогда

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

			БизнесПроцессЗадачи.КачествоВыполнения = ЭлементыФормы.Оценка.Значение;

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

	 	КонецЕсли;

		Закрыть();

	КонецЕсли;