Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
10 окт 2024, 22:28

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

Автор Sanario, 29 ноя 2018, 15:30

0 Пользователей и 1 гость просматривают эту тему.

Sanario

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

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

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

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

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

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

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

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


antoneus


Sanario


antoneus

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

Sanario

НачалоВыбора
Добавлено: 30 ноя 2018, 18:14


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

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

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

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

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

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

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

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

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск