Заполнение реквизита из регистра сведений

&НаСервере
Функция ТоварыНоменклатураПриИзмененииНаСервере(Номенклатура,Характеристика,Упаковка)
	Возврат РегистрыСведений.ШтрихкодыНоменклатуры.ШтрихкодыНоменклатуры(Номенклатура,Характеристика,Упаковка);
КонецФункции

&НаКлиенте
Процедура ТоварыНоменклатураПриИзменении(Элемент) 
	ТекЭлемент = Элементы.Товары.ТекущиеДанные;
	Если ТекЭлемент = Неопределено Тогда
		возврат;
	КонецЕсли;
	
	МассивШтрихКодов = ТоварыНоменклатураПриИзмененииНаСервере(ТекЭлемент.Номенклатура,ТекЭлемент.ХарактеристикиНоменклатуры,ТекЭлемент.УпаковкиЕдиницыИзмерения); 
	
	Если МассивШтрихКодов.Количество()=0 Тогда
		Возврат;      //Нет штрихкода
	КонецЕсли;
	
	ТекЭлемент.ШтрихКод = МассивШтрихКодов[0]; //Первый штрхкод из списка полученных	
КонецПроцедуры

	Соответствие = Новый Соответствие;
	Массив = Новый Массив;
	Для каждого СтрТЧ Из Объект.Номенклатура Цикл
		
		Соответствие.Вставить(Стр.Номенклатура,Стр);
		Массив.Добавить(Стр.Номенклатура);	
	
	КонецЦикла;

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