Выгрузка значений колонки из таблицы в поле строка через ";"

[vondbond73]

Есть таблица в которую добавляют товар, таблица хранит в себе Артикул, наименование. Необходимо после добавления товаров в таблицу, переносить артикулы через точку с запятой в Поле ввода. Конфигурация УТ 11.5
Кто может подсказать, что не так?

Код Выделить Развернуть

&НаСервере
Процедура ВыгрузитьАртикул()

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



КонецПроцедуры


[antoneus]

Да всё как-то не так. А вот эта строчка совсем не так:

Код Выделить Развернуть

Справочники.Номенклатура.ДополнительныеРеквизиты.ТекстоваяСтрока = Выборка.Артикул;

[vondbond73]

antoneus, Изменил код, после запроса делаю выборку и пытаюсь вставить в поле, но пишет, что не может найти это поле

Код Выделить Развернуть

РекТов = Объект.СопутствующиеТовары;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Номенклатура.РекомендуемыеТовары.(
| Артикул КАК Артикул
| ) КАК РекомендуемыеТовары
|ИЗ
| Справочник.Номенклатура КАК Номенклатура";
Результат = Запрос.Выполнить().Выгрузить();
Для Каждого Строка из Результат Цикл
РекТов = Строка.Артикул;
КонецЦикла;


[antoneus]

Да, не может, потому что это поле находится во вложенном результате запроса РекомендуемыеТовары, из которого тоже надо выборку делать. А надо как-то так:

Код Выделить Развернуть

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

[vondbond73]

antoneus, Спасибо
Теперь хотя бы ; встает, но без артикула. Буду сейчас разбираться в чем дело

[vondbond73]

antoneus, В массив не попадают артикулы, странно

[antoneus]

Можно даже огород с запросом не городить

Код Выделить Развернуть

Артикулы = Новый Массив;
Для каждого стр из Объект.РекомендуемыеТовары Цикл
    Сообщить(стр.Артикул);//есть вообще что-нибудь?
    Артикулы.Добавить(стр.Артикул)
КонецЦикла;
Объект.СопутствующиеТовары = СтрСоединить(Артикулы, ";");

[vondbond73]

antoneus, В сообщении всплывающем пустота

[antoneus]

Так артикулы-то есть в таблице?

[vondbond73]

antoneus, Есть