Для Каждого СтрокаТоваров Из Тч Цикл
//Если СтрокаТоваров.Цена<=0 тогда
Наименование=СтрокаТоваров.Номенклатура.Наименование;
Если Наименование="КОРОБКА" ИЛИ Найти (Наименование,"БОНУС")>0 Тогда
Сообщить("Удаляем позицию: "+СтрокаТоваров.Номенклатура+" из документа: "+Документ,СтатусСообщения.Информация);
ТЧ.Удалить(СтрокаТоваров);
//ТЧ.
КонецЕсли;
КонецЦикла;
ВремТЗ = ТЧ.Выгрузить();
ТЧ.Очистить();
Для каждого Строкатоваров из времТЗ цикл
Если .... тогда
НовСтр = ТЧ.Добавить();
ЗаполнитьЗначенияСвойств(НовСтр, СтрокаТоваров);
КонецЕсли;
КонецЦикла;