Не устаналивается субконто в бух. операции

Рег = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
Рег.Отбор.Регистратор.Значение = ТекОперация.Ссылка;
Рег.Прочитать();

Для Каждого Проводка ИЗ Рег Цикл
Если Проводка.Организация.Наименование = СтрокаБП16.ОрганизацияНаименование И
(Проводка.СчетДт.Код = СтрокаБП16.Счет ИЛИ Проводка.СчетКт.Код = СтрокаБП16.Счет) И

?(Проводка.СчетДт.Код = СтрокаБП16.Счет,

Проводка.СубконтоДт.Контрагенты = ТекКонтрагент И
?(СтрокаБП16.Счет = "76.АВ", ИСТИНА, Проводка.СубконтоДт.Договоры = ТекДоговор),

Проводка.СубконтоКт.Контрагенты = ТекКонтрагент И
?(СтрокаБП16.Счет = "76.АВ", ИСТИНА, Проводка.СубконтоКт.Договоры = ТекДоговор))
И
Проводка.Сумма = СтрокаБП16.СуммаОстаток Тогда

Проводка[?(Проводка.СчетДт.Код = СтрокаБП16.Счет, "СубконтоДт", "СубконтоКт")][?(СтрокаБП16.Счет = "76.АВ","СФВыданные","ДокументыРасчетовСКонтрагентами")] = ТекДокумент.ссылка;

Сообщить("В операции "+Строка(ТекОперация)+" установлено субконто 3 "+Строка(ТекДокумент)+
" в строке с контрагентом "+ТекКонтрагент+?(СтрокаБП16.Счет = "76.АВ", "", " с договором "+Строка(ТекДоговор))+
" и суммой "+Строка(СтрокаБП16.СуммаОстаток));

КонецЕсли;
КонецЦикла;

Рег.Записать();