Добавление нескольких значений справочника в ячейку табличной части документа

[Sanario]

Ребята, помогите, как мне &НаКлиенте в ячейке табличной части документа добавить выбор несколько значений (наименование элемента справочника).

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

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

Список значений я сделал. А вот теперь как на клиенте сделать подбор нескольких значений не могу понять. Можно полученные наименования через запятую перечислить

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

&НаКлиенте
Процедура МножественныйВыборЭлементаВТЧ(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;

СписокВидовПретензий = ЗаполнитьСписокПретензийКлейма();

Если СписокВидовПретензий.ОтметитьЭлементы("Претензия") Тогда
РезСтр = "";
Для Каждого Элемент Из СписокВидовПретензий Цикл
Если Элемент.Пометка Тогда
РезСтр = РезСтр + ?(ПустаяСтрока(РезСтр),"",", ") + Элемент.Значение;
КонецЕсли;
КонецЦикла;
Если НЕ ПустаяСтрока(РезСтр) Тогда
Элементы.ТЧПос.ТекущиеДанные.Претензия = РезСтр;
КонецЕсли;
КонецЕсли;

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


[antoneus]

У Претензии в табличной части какой тип?

[Sanario]

Строку поставил

[antoneus]

Ну и? Работает или нет? Должно работать. МножественныйВыборЭлементаВТЧ откуда вызывается?

[Sanario]

НачалоВыбора

Добавлено: 30 ноя 2018, 18:14

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

&НаСервере
Функция ЗаполнитьСписокПретензийКлейма()

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

Возврат СписокВидовПретензий;

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

&НаКлиенте
Процедура МножественныйВыборЭлементаВТЧ(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)

СтандартнаяОбработка = Ложь;
#Область ЗаполнениеСпискаПретензий
СписокВидовПретензий = ЗаполнитьСписокПретензийКлейма();
Если СписокВидовПретензий.ОтметитьЭлементы("Претензия") Тогда
РезСтр = "";
Для Каждого Элемент Из СписокВидовПретензий Цикл
Если Элемент.Пометка Тогда
РезСтр = РезСтр + ?(ПустаяСтрока(РезСтр),"",", ") + Элемент.Значение;
КонецЕсли;
КонецЦикла;
Если НЕ ПустаяСтрока(РезСтр) Тогда
Элементы.ТЧПос.ТекущиеДанные.Претензия = РезСтр;
КонецЕсли;
КонецЕсли;
#КонецОбласти

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

Все. сделал. Работает так.