Как переписать так чтобы данные предопределенные значения выводились в реквизите табличной части? Т.е. на скрине представлена как выводится в поле выбора, но нужно в реквизит ТЧ?!
СписокВыбора = ЭлементыФормы.СписокДействий.СписокВыбора;
СписокВыбора.Очистить();
Если мСформированныйРежим = Неопределено ИЛИ Не мСформированныйРежим.ДанныеОтобраны Тогда
Возврат;
КонецЕсли;
Для каждого ПредопределенныйРеквизит Из мСформированныйРежим.ПредопределенныеРеквизиты Цикл
СписокВыбора.Добавить(Новый Структура("Имя,ПолеНастройки",ПредопределенныйРеквизит.Значение.Имя,ПредопределенныйРеквизит.Значение.ПолеНастройки),"Изменить: ["+ПредопределенныйРеквизит.Представление+"]");
КонецЦикла;
ВсегоСвойств = мСформированныйРежим.СтруктураСвойств.Количество();
Если ВсегоСвойств > 0 Тогда
СписокВыбора.Добавить(Новый Структура("Имя,ПолеНастройки,ЭтоВыбор,ВыборПоВладельцу","С",,"Свойство",Неопределено),"Изменить свойство: [...]");
КонецЕсли;
ВсегоКатегорий = мСформированныйРежим.СтруктураКатегорий.Количество();
Если ВсегоКатегорий > 0 Тогда
СписокВыбора.Добавить(Новый Структура("Имя,ПолеНастройки,ЭтоВыбор","К",,"Категория"),"Изменить категорию: [...]");
КонецЕсли;
Если ФлагИзмененияРеквизитов Тогда
СписокВыбора.Добавить(Новый Структура("Имя,ПолеНастройки,ЭтоВыбор","Р",,"Реквизит"),"Изменить реквизит: [...]");
КонецЕсли;
Если ТипОбъекта = 1 Тогда
СписокВыбораДействия = Новый СписокЗначений;
СписокВыбораДействия.Добавить("Печать с предварительным просмотром");
СписокВыбораДействия.Добавить("Печать без предварительного просмотра");
СписокВыбораДействия.Добавить("Реестр документов");
СписокВыбора.Добавить(Новый Структура("Имя,ЭтоВыбор,СписокВыбора","П_ПечатьДокументов","ПечатьДокументов",СписокВыбораДействия),"Печать документов");
ИначеЕсли мСформированныйРежим.ИмяВидаОдногоТипа = "Номенклатура" Тогда
Если Метаданные.Обработки.Найти("ПечатьЦенников") <> Неопределено Тогда
СписокВыбора.Добавить(Новый Структура("Имя,ЭтоВыбор,СписокВыбора","П_ПечатьЦенников","ПечатьЦенников",Новый СписокЗначений),"Печать ценников");
КонецЕсли;
Если Метаданные.Обработки.Найти("ПечатьЭтикеток") <> Неопределено Тогда
СписокВыбора.Добавить(Новый Структура("Имя,ЭтоВыбор,СписокВыбора","П_ПечатьЭтикеток","ПечатьЭтикеток",Новый СписокЗначений),"Печать этикеток");
КонецЕсли;
Если ВКонфигурацииЕстьУправлениеЗаказами Тогда
СП = Новый СписокЗначений;
СП.Добавить("Запретить");
СП.Добавить("Разрешить");
СписокВыбора.Добавить(Новый Структура("Имя,ЭтоВыбор,СписокВыбора","П_ДоступнаВВебПриложенииУпрЗаказами","ДоступнаВВебПриложенииУпрЗаказами",СП),"Доступность в веб-приложении ""Управление заказами""");
КонецЕсли;
КонецЕсли;
Для каждого Элемент Из СписокВыбора Цикл
Элемент.Значение.Вставить("ТекущееПредставление",Элемент.Представление);
КонецЦикла;
Показать