Инвентаризация по серии номенклатуры

Добавил в документ инвентаризация товаров на складах

ТекСерийный = "";

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

// Берем из самого реквизита Номенклатура
НС.ЕдиницаИзмерения = НС.Номенклатура.ЕдиницаХраненияОстатков;
НС.Коэффициент = НС.ЕдиницаИзмерения.Коэффициент;

ОбработкаТабличныхЧастей.ЗаполнитьЕдиницуМестТабЧасти(НС, ЭтотОбъект);

НС.Качество = Справочники.Качество.Новый;
Иначе
ЭлементыФормы.Товары.ТекущаяСтрока = нс;
КонецЕсли;
Иначе
Сообщить("Такого серийного номера нет в базе!");
Продолжить;
КонецЕсли;
Иначе
Прервать;
КонецЕсли;
ТекСерийный = "";
КонецЦикла;

нажимаю заполнить учетные количества, что бы сканировать каждый товар,но товар который ведется по серия номенклатуры не добавляется (+1), а просто находит его в документе.