Переношу документы из ТиС 7.7 в БП 2, необходимо у документа поменять договор, если вид договора не соответствует нужному.
Написал вот такой код в обработчике "После загрузки" у документа:
Если (Объект.ВидОперации = Перечисления.ВидыОперацийПоступлениеДенежныхСредств.ОплатаПокупателя)
И (Объект.ДоговорКонтрагента.ВидДоговора <> Перечисления.ВидыДоговоровКонтрагентов.СПокупателем) Тогда
ФлагСуществованияНужногоДоговора = 0;
ДоговорТмп = Справочники.ДоговорыКонтрагентов.ПустаяСсылка();
ВыборкаДК = Справочники.ДоговорыКонтрагентов.Выбрать(,Объект.Контрагент,,);
Пока ВыборкаДК.Следующий() Цикл
Если ВыборкаДК.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем Тогда
ФлагСуществованияНужногоДоговора = 1;
ДоговорТмп = ВыборкаДк;
КонецЕсли;
КонецЦикла;
Если ФлагСуществованияНужногоДоговора = 1 Тогда
Объект.ДоговорКонтрагента = ДоговорТмп;
Иначе
ДоговорОб = Объект.ДоговорКонтрагента.ПолучитьОбъект();
НовыйДоговор = ДоговорОб.Скопировать();
НовыйДоговор.ВидДоговора = Перечисления.ВидыДоговоровКонтрагентов.СПокупателем;
НовыйДоговор.Комментарий = "Договор создан автоматически при переносе данных";
НовыйДоговор.Записать();
Объект.ДоговорКонтрагента = НовыйДоговор.Ссылка;
Объект.Комментарий = "Новый: "+НовыйДоговор.Код+"; Объект: "+Объект.ДоговорКонтрагента.Код;
Объект.Записать();
КонецЕсли;
КонецЕсли;
Показать
Но нужный документ никак не встает в реквизит объекта.
В коментариях коды одинаковые выводятся, но в документе стоит старый договор.
Помогите пожалуйста понять что я делаю не так.