программно перенаправить задачу другому исполнителю Документооборот 2.1

пробую программно поменять исполнителя в форме бизнес процесса в форме задачи исполнителя
&НаКлиенте
Процедура ЗаписатьИЗакрытьВыполнить()
ОчиститьСообщения();
    Если Записать() Тогда
        ОповеститьОбИзменении(Объект.Ссылка);
        ПоказатьОповещениеПользователя(
            "Изменение:",
            ПолучитьНавигационнуюСсылку(Объект.Ссылка),
            Строка(Объект.Ссылка),
            БиблиотекаКартинок.Информация32);
            изменения -->
            ПодменаИсполнителяЗадачи(Объект.Ссылка);
            изменения <--
        Закрыть();
    КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ПодменаИсполнителяЗадачи(Задача) Экспорт

    ТекФлаг = Ложь;
    ТекОбъект = РеквизитФормыВЗначение("Объект");
    Если ЗначениеЗаполнено(ТекОбъект.БизнесПроцесс) Тогда
        Предмет = Справочники.ВнутренниеДокументы.ПустаяСсылка();
        Предметы = Мультипредметность.ПолучитьПредметыПроцесса(ТекОбъект.БизнесПроцесс);
        СтруктураПоиска = Новый Структура;
        СтруктураПоиска.Вставить("РольПредмета",Перечисления.РолиПредметов.Основной);
        СтрокиНашли = Предметы.НайтиСтроки(СтруктураПоиска);
        Если СтрокиНашли.Количество() > 0 Тогда
            Для Каждого Строка Из СтрокиНашли Цикл
                ТекПредмет = Строка;
                Если ЗначениеЗаполнено(ТекПредмет.Предмет.ВидДокумента) Тогда
                    Если ТекПредмет.Предмет.ВидДокумента = Справочники.ВидыВнутреннихДокументов.ПолучитьСсылку(Новый УникальныйИдентификатор("3b34dd2f-262b-11ea-8d4d-90e2ba2ca541")) Тогда
                        ЗадачаОбъект = Задача.ПолучитьОбъект();
                        Задача.Исполнитель = ТекПредмет.Предмет.Ответственный;
                        Задача.Записать();
                    КонецЕсли;
                КонецЕсли;
            КонецЦикла;
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры