Поиск сканером в табличной части документа

Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)
	// Процедура разбирает штрих-код, считанный сканером
	// и заполняет строки накладной
	Перем Упаковка,ТекКоличество, Спецификация;
	Перем ВремТовар, ВремЕдиница, ВремКоличество, ВремЦена;
	
	Перем СтрокаВозврЦена;

	Если Событие = "BarCodeValue" Тогда
        Если Форма.ТолькоПросмотр() = 0 Тогда
			//--------------------------------------------------------------------------------
			//Проверяем не карточка ли это
			ОбрШтрихкод = СокрЛП(Данные);
		    
			// Определение типа штрих-кода
			ПрефиксШтрихкода = глПрефиксШтрихкода();
			Если ПустоеЗначение(ПрефиксШтрихкода) = 0 Тогда
				Если Найти(ПрефиксШтрихкода, Лев(ОбрШтрихкод, 1)) <> 0 Тогда
					// Удаляем спец. символ из штрих-кода
					ОбрШтрихкод = Сред(ОбрШтрихкод, 2);
				Иначе
					Сообщить("Формат считанного штрих-кода не предназначен для товаров или карточек");
					Возврат;
				КонецЕсли;
			КонецЕсли;
			
			Если глПолучитьТоварПоШтрихкоду(Данные, ВремТовар, ВремЕдиница, ВремКоличество) <> 0 Тогда
				ТЗ = СоздатьОбъект("ТаблицаЗначений");
				ВыгрузитьТабличнуюЧасть(ТЗ, "Номенклатура");
				НомСтр = 0;
				Если ТЗ.НайтиЗначение(ВремТовар, НомСтр, "Номенклатура") = 1 Тогда
					АктивизироватьСтроку(НомСтр);
					ПолучитьСтрокуПоНомеру(НомСтр);
					Количество = Количество + 1;
					ПриИзмененииКоличества();
				КонецЕсли;
			КонецЕсли;
		КонецЕсли;
		
		// Обработка закончена. Готовы к получению нового штрихкода.
		глСканерПосылкаДанных(1);
		
	Иначе
		глОбработкаВнешнегоСобытия(Источник, Событие, Данные);	
	КонецЕсли;

КонецПроцедуры // ОбработкаВнешнегоСобытия()