Как сделать удаление по 2 одинаковым видам номенклатуры наименование фурнитура или по каким другим параметрам можно это сделать

Процедура ПодготовитьДанныеДляПечатиДополнительно(ДанныеДляПечати)  
	
	ДанныеПечати	= ДанныеДляПечати.РезультатПоШапке.Выбрать();
	ДанныеПечати.Следующий();
	
	ТаблицаВидыНоменклатурыДляПроизводства	= ДанныеДляПечати.ВидыНоменклатурыДляПроизводства.Выгрузить(); 
	
	Товары			= ДанныеДляПечати.РезультатПоТабличнойЧасти.Выгрузить();  
	
	ВидНоменклатуры_ДП=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Дверное полотно");  
	ВидНоменклатуры_Накладка=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Накладка");       
	ВидНоменклатуры_Портал=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Портал");
	ВидНоменклатуры_Фрамуга=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Фрамуга");
	ВидНоменклатуры_Стеноваяпанель=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Стеновая панель");
	ВидНоменклатуры_Стекло=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Стекло");
	ВидНоменклатуры_Прочее=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Прочее");
	ВидНоменклатуры_Фурнитура=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Фурнитура");	
	ВидНоменклатуры_Фурнитура=Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Фурнитура");
	
	//только для вида номенклатуры кроме "Дверное полотно" 
	//+только кроме характеристик с цветом "эмаль" 
	ПодстрокаХарактеристикиПоиск="эмаль";
	Сч = 0;
	Пока Сч < Товары.Количество() Цикл
		СтрокаТаблицы = Товары.Получить(Сч); 
		ТекущаяХарактеристикаСтрока=нрег(Строка(СтрокаТаблицы.Характеристика));
		Если СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_ДП Тогда
			Товары.Удалить(СтрокаТаблицы); 
		ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Накладка Тогда
			Товары.Удалить(СтрокаТаблицы);     
        	ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Портал Тогда
			Товары.Удалить(СтрокаТаблицы);   
		ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Фрамуга Тогда
			Товары.Удалить(СтрокаТаблицы);
		ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Стеноваяпанель Тогда
			Товары.Удалить(СтрокаТаблицы);  
		ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Стекло Тогда
			Товары.Удалить(СтрокаТаблицы);
		ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Прочее Тогда
			Товары.Удалить(СтрокаТаблицы);
		ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Фурнитура Тогда
			Товары.Удалить(СтрокаТаблицы);   
		ИначеЕсли СтрокаТаблицы.ВидНоменклатуры = ВидНоменклатуры_Фурнитура Тогда
			Товары.Удалить(СтрокаТаблицы);	
		ИначеЕсли Найти(ТекущаяХарактеристикаСтрока,ПодстрокаХарактеристикиПоиск)>0 Тогда
			Товары.Удалить(СтрокаТаблицы);    
		Иначе 
			Сч = Сч + 1;
		КонецЕсли; 
	КонецЦикла;