Функция ШтрихКодВыбрать (Наименование);

Запрос = Новый Запрос;

Запрос.Текст = "ВЫБРАТЬ

               |	Штрихкоды.Штрихкод

               |ИЗ

               |	РегистрСведений.Штрихкоды КАК Штрихкоды

               |ГДЕ

               |	Штрихкоды.Владелец.Наименование =Наименование";

			   

Запрос.УстановитьПараметр("Наименование",Наименование);

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





Если Результат.Следующий() Тогда

ШТ =Результат.Штрихкод;

КонецЕсли;

Возврат ШТ;	

КонецФункции