УНФ: как получить товар по QR коду гл процедура?

&НаСервереБезКонтекста
Процедура ПолучитьДанныеПоШтрихКодам(СтруктураДанные)
    
    // Преобразование весовых штрихкодов.
    Для каждого ТекШтрихкод Из СтруктураДанные.МассивШтрихкодов Цикл
        
        РегистрыСведений.ШтрихкодыНоменклатуры.ПреобразоватьВесовойШтрихкод(ТекШтрихкод);
        
    КонецЦикла;
    
    ДанныеПоШтрихКодам = РегистрыСведений.ШтрихкодыНоменклатуры.ПолучитьДанныеПоШтрихкодамВМассиве(СтруктураДанные.МассивШтрихкодов);
    
    Для каждого ТекШтрихкод Из СтруктураДанные.МассивШтрихкодов Цикл
        
        МассивДанныхШтрихкода = ДанныеПоШтрихкодам[ТекШтрихкод.Штрихкод];
        
        Если МассивДанныхШтрихкода <> Неопределено
            И МассивДанныхШтрихкода.Количество() <> 0 Тогда
            
            Для Каждого ДанныеШтрихкода Из МассивДанныхШтрихкода Цикл
                
                СтруктураДанныеНоменклатуры = Новый Структура();
                СтруктураДанныеНоменклатуры.Вставить("Номенклатура", ДанныеШтрихкода.Номенклатура);
                СтруктураДанныеНоменклатуры.Вставить("ТипНоменклатуры", ДанныеШтрихкода.Номенклатура.ТипНоменклатуры);
                ДанныеШтрихкода.Вставить("СтруктураДанныеНоменклатуры", ПолучитьДанныеНоменклатураПриИзменении(СтруктураДанныеНоменклатуры));
                
                Если НЕ ЗначениеЗаполнено(ДанныеШтрихкода.ЕдиницаИзмерения) Тогда
                    ДанныеШтрихкода.ЕдиницаИзмерения  = ДанныеШтрихкода.Номенклатура.ЕдиницаИзмерения;
                КонецЕсли;
                
            КонецЦикла;
            
        КонецЕсли;
        
    КонецЦикла;
    
    СтруктураДанные.Вставить("ДанныеПоШтрихКодам", ДанныеПоШтрихКодам);
    
    Для каждого парам Из Метаданные.Документы.ИнвентаризацияЗапасов.ТабличныеЧасти.Запасы.Реквизиты.Номенклатура.ПараметрыВыбора Цикл
        Если парам.Имя = "Отбор.ТипНоменклатуры" Тогда
            Если ТипЗнч(парам.Значение)=Тип("ФиксированныйМассив") Тогда
                СтруктураДанные.Вставить("ОтборТипНоменклатуры", парам.Значение);
            Иначе
                МассивТипов = Новый Массив;
                МассивТипов.Добавить(парам.Значение);
                СтруктураДанные.Вставить("ОтборТипНоменклатуры", МассивТипов);
            КонецЕсли;
            
            Прервать;
        КонецЕсли;
    КонецЦикла;