Код для табличной части

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

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот