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


Из запроса выходит 1 строка но как сделать проще, не через цикл:

   Для Каждого Строка ИЗ Выборка Цикл
           лялялял.....
       Прервать;
   КонецЦикла;

Пока Выборка.Следующий() Цикл...

Ну ил ипросто Выборка.Следующий()

Сообщить(Выборка[0].ШтрихКод)

(2) У него выборка ТЗ :-)

(3)
Вылетит на пустом результате

(0) убери прервать и не мучайся - оставь

(5)Ну поди хватит ума проверить на .количество()

нафига выгрузить? выбрать(), .следующий()

Если Выборка.Следующий() Тогда
 Возврат Выборка.ШтрихКод
Иначе
 Возврат "";
Конец

Выборка = Запрос.Выполнить().Выбрать();
Выборка.Следующий()
Выборка.ШтрихКод

да даже если и в ТЗ, зачем там прервать; и чем плох цикл?

3 строчки всего))

СП пропит ещё некупленным?

Возврат ?(Выборка.Следующий(), Выборка.Штрихкод, "");

(4) не  разделяю слепую любовь к тз)

(12) а если выборка пустая? )))

(14) хороший вариант )))

(16) ))) ?(Выборка.количество()=0,"",Выборка.ШтрихКод)

(18) не взлетит )))

(18) см. (14)

Запрос = Новый Запрос();
Запрос.Текст = "Выбрать 1 КАК Поле";

Итераций = 100000;
РезультатЗапроса = Запрос.Выполнить();

Д = ТекущаяДата();
Для Сч = 1 по Итераций Цикл
   ТЗ = РезультатЗапроса.Выгрузить();
   Результат = "";
   Для каждого Стр Из ТЗ Цикл
       Результат = Стр.Поле;
   КонецЦикла;
КонецЦикла;
Сообщить(ТекущаяДата() - Д);

Д = ТекущаяДата();
Для Сч = 1 по Итераций Цикл
   Выборка = РезультатЗапроса.Выбрать();
   Результат = ?(Выборка.Следующий(),Выборка.Поле,"");
КонецЦикла;
Сообщить(ТекущаяДата() - Д);


Выводит у меня 7 и 3

Д = ТекущаяДата();
Для Сч = 1 по Итераций Цикл
   ТЗ = РезультатЗапроса.Выгрузить();
   Результат = ?(ТЗ.Количество()<>0,ТЗ[0].Поле,"");
КонецЦикла;
Сообщить(ТекущаяДата() - Д);

тоже 6-7 секунд

пелять... такая тема должна была закончится ещё на первом-втором посте. Нет, блин, раздули

для пустой выборки -
перебор - 5,
по индексу с проверкой количества - 4,
выборка - 2

(10) спасибо