Вставка номенклатуры клиента в табличное поле

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

	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		Возврат ВыборкаДетальныеЗаписи.НаименованиеКлиента;
	КонецЦикла;
		
КонецФункции


&НаКлиенте
Процедура ТоварыНоменклатураПриИзменении(Элемент)
	ТекущаяСтрока = Элементы.Товары.ТекущиеДанные;
	
	ТекущаяСтрока.НоменклатураКлиента = ПолучитьНоменклатуруКлиента(Объект.Клиент, ТекущаяСтрока.Номенклатура);
	Сообщить(ПолучитьНоменклатуруКлиента(Объект.Клиент,ТекущаяСтрока.Номенклатура));
КонецПроцедуры