Удаление строк в документах по сериям

Процедура ПоискСерийНаСервере()	
	Объект.ТабличнаяЧасть1.Очистить();
	Doc = Документы.ПоступлениеТоваровУслугВНеавтоматизированнуюТорговуюТочку.Выбрать();
	Пока (Doc.Следующий()) Цикл
		Если Doc.Проведен Тогда
			Для каждого СтрокаТовара Из Doc.Товары Цикл
				НайденныеСтроки = ТаблицаИзФайла.НайтиСтроки(Новый Структура("Серия", СтрокаТовара.СерияНоменклатуры.Наименование));
				Если (НайденныеСтроки.Количество() = 0) Тогда
			       	СтрокаТЧ = Объект.ТабличнаяЧасть1.Добавить();
					СтрокаТЧ.Серия = СтрокаТовара.СерияНоменклатуры.Наименование;	
				КонецЕсли;
			КонецЦикла;
		КонецЕсли;
	КонецЦикла;								
КонецПроцедуры