Удаление строк из ТЧ документа с внешней обработки

Процедура КнопкаВыполнитьНажатие(Кнопка)
Запрос=новый запрос;
запрос.Текст="ВЫБРАТЬ
| Номенклатура.Ссылка
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Ссылка В ИЕРАРХИИ(&Ссылка)";
запрос.УстановитьПараметр("Ссылка",ПолеВвода1);
СписокТовары=запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка") ;
НачатьТранзакцию();
// Вставить содержимое обработчика.,
для каждого мДок из Метаданные.Документы цикл
СписокТЧ=новый СписокЗначений;
для Каждого мТЧ из мДок.ТабличныеЧасти цикл
если не мТЧ.Реквизиты.Найти("Товар")=Неопределено тогда
СписокТЧ.Добавить(мТЧ.имя);
КонецЕсли;
КонецЦикла;
если СписокТЧ.Количество()>0 тогда
выборка=Документы[мДок.Имя].Выбрать();
пока выборка.Следующий() цикл
док=выборка.ПолучитьОбъект();
надоЗапис=0;
для каждого тч из СписокТЧ цикл
СписокУдалСтр=новый Массив;
для каждого стр из выборка[тч.Значение] цикл
если СписокТовары.найти(стр.товар)<>Неопределено тогда
надоЗапис=1;
СписокУдалСтр.Добавить(стр);
КонецЕсли;
КонецЦикла;
для каждого стр из СписокУдалСтр цикл
док[тч.Значение].удалить(стр);
КонецЦикла;
КонецЦикла;
если надоЗапис=1 тогда
док.Записать(?(док.проведен,РежимЗаписиДокумента.Проведение,РежимЗаписиДокумента.Запись));
КонецЕсли;


КонецЦикла;

КонецЕсли;


КонецЦикла;
ЗафиксироватьТранзакцию();
КонецПроцедуры


Не удаляет строки из документа. Ошибка : Колонка не принадлежит коллекции.