Запрос = Новый  Запрос;
       Запрос.Текст = "ВЫБРАТЬ РАЗЛИЧНЫЕ
       |    Штрих.ШтрихКод КАК ШтрихКод,
       |    Штрих.Владелец КАК Владелец,
       |    Штрих.Количество КАК Количество    
       |ИЗ
       |    РегистрСведений.ШтрихКоды КАК Штрих
       |ГДЕ
       |    Штрих.ШтрихКод = &ШтрихКод
       |";
   
       Запрос.УстановитьПараметр("ШтрихКод", Эл.ШтрихКод);
       Выборка = Запрос.Выполнить().Выгрузить();
       
       Для Каждого Стро ИЗ Выборка Цикл
           Эл.ШтрихКод = Стро.ШтрихКод;
           Эл.Комплектующие = Стро.Владелец;
КонецЦикла;

Из запроса выходит таблица в которой максимум 1 строка, как её достать не писав при этом, может проще вариант есть?

Для Каждого Стро ИЗ Выборка Цикл
           Эл.ШтрихКод = Стро.ШтрихКод;
           Эл.Комплектующие = Стро.Владелец;
КонецЦикла;

Выборка.Получить(0);

(1) так низзя, т.к. строки с индексом 0 могет и не быть

Выборка = Запрос.Выполнить()
Если Выборка.Следующий() Тогда

    Эл... = Выборка...

КонецЕсли;

Выборка = Запрос.Выполнить().Выбрать()

Запрос сам непонятен. Есть одинаковые штрихкоды с разным количеством? Что за регистр? Если нет - ВЫБРАТЬ ПЕРВЫЕ 1. Самописка?