Таблица значений как элемент формы

&НаСервере
Процедура ЗаполнитьТаблицуЦенНоменклатурыНаСервере()

	
	СписокВидовЦен = Объект.ВидыЦен.Выгрузить(, "ВидЦены");
	СписокНоменклатуры = Объект.Товары.Выгрузить(, "Номенклатура");
	
	ТЗ = Новый ТаблицаЗначений;
	ТЗ.Колонки.Добавить("Номенклатура");
	
	Сч = 1;
	МассивНаименованийКолонокЕдИзм = Новый Массив;
	МассивНаименованийКолонокЦена = Новый Массив;
	
	Для каждого Элемент Из СписокВидовЦен Цикл 
		
		АдаптированноеНаименование = СтрЗаменить(ТРег(Элемент.ВидЦены.Наименование), " ", "");
		ТЗ.Колонки.Добавить(АдаптированноеНаименование);
		ТЗ.Колонки.Добавить("ЕдиницаИзмерения" + Сч,, "ЕдиницаИзмерения");
		ТЗ.Колонки.Добавить("Цена" + Сч,, "Цена");
		МассивНаименованийКолонокЕдИзм.Добавить("ЕдиницаИзмерения" + Сч);
		МассивНаименованийКолонокЦена.Добавить("Цена" + Сч);
		
		Сч = Сч + 1;
		
	КонецЦикла;
	
	Для каждого ЭлементНом ИЗ СписокНоменклатуры Цикл 
		
		НоваяСтрока = ТЗ.Добавить();
		НоваяСтрока["Номенклатура"] = ЭлементНом.Номенклатура;
		
		Для Сч = 1 По МассивНаименованийКолонокЦена.Количество() Цикл
			
			//заполнить виды цен
			НоваяСтрока["Цена" + Сч] = 1;
			НоваяСтрока["ЕдиницаИзмерения" + Сч] = 1;
			
		КонецЦикла;
		
	КонецЦикла;
	
	МассивТипаВыбора = Новый Массив;
	МассивТаблицыЗначений = Новый Массив;
	МассивРеквизитов = Новый Массив;
	ОписаниеТипаВыбора = Новый ОписаниеТипов("ТаблицаЗначений");
	МассивТаблицыЗначений.Добавить(Новый РеквизитФормы("Список", ОписаниеТипаВыбора, "", "ТЗН"));
	ИзменитьРеквизиты(МассивТаблицыЗначений);    
	
	Для Каждого Колонка Из ТЗ.Колонки Цикл
		МассивРеквизитов.Добавить(Новый РеквизитФормы(Колонка.Имя, Колонка.ТипЗначения,"Список."));    
	КонецЦикла;
	
	ИзменитьРеквизиты(МассивРеквизитов);      
	ТаблицаПолейВыбора = Элементы.Добавить("ТЗН", Тип("ТаблицаФормы"), Элементы.Результат);
	ТаблицаПолейВыбора.ПутьКДанным = "Список";
	ТаблицаПолейВыбора.Отображение = ОтображениеТаблицы.Список; 
	
	СчЕдИзм = 1;
	СчЦена = 1;
	Сч = 1;
	
	Для Каждого Колонка Из ТЗ.Колонки Цикл 
		
		Если Колонка.Имя = "Номенклатура" Тогда 
			
			ДобавитьНовыйЭлемент(Колонка.Имя, Тип("ПолеФормы"),ТаблицаПолейВыбора, "Список." + Колонка.Имя);
			//КонецЕсли;
			
		ИначеЕсли Колонка.Имя = "Цена" + СчЦена Тогда
			
			СчЦена = СчЦена + 1;
			
		ИначеЕсли Колонка.Имя = "ЕдиницаИзмерения" + СчЕдИзм Тогда
			
			СчЕдИзм = СчЕдИзм + 1;
			
		Иначе 
			
			ИмяСтаршейГруппы = Колонка.Имя + "Группа";
			ДобавитьГруппу(ИмяСтаршейГруппы, Тип("ГруппаФормы"), ТаблицаПолейВыбора);
			ДобавитьНовыйЭлемент(Колонка.Имя,Тип("ПолеФормы"),Элементы[ИмяСтаршейГруппы],"Список." + Колонка.Имя);
			
			ИмяМладшейГруппы = "ГруппаКолонок"+Колонка.Имя;
			ДобавитьГруппу(ИмяМладшейГруппы, Тип("ГруппаФормы"), Элементы[ИмяСтаршейГруппы]);
			
			ЦенаВставка = МассивНаименованийКолонокЦена[Сч - 1];
			ДобавитьНовыйЭлемент(Колонка.Имя + "Цена",Тип("ПолеФормы"),Элементы[ИмяМладшейГруппы],"Список." + ЦенаВставка);
			ЕдИзм = МассивНаименованийКолонокЕдИзм[Сч - 1];
			ДобавитьНовыйЭлемент(Колонка.Имя + "ЕдиницаИзмерения", Тип("ПолеФормы"), Элементы[ИмяМладшейГруппы], "Список." + ЕдИзм);
			
			Элементы[ИмяМладшейГруппы].Группировка = ГруппировкаКолонок.Горизонтальная;
			Сч = Сч + 1;
			
		КонецЕсли;  
		
	КонецЦикла;
	
КонецПроцедуры

Процедура ДобавитьГруппу(Имя, Тип, Родитель)    
	НовыйЭлемент = Элементы.Добавить(Имя, Тип, Родитель);
	НовыйЭлемент.Вид = ВидГруппыФормы.ГруппаКолонок;    
КонецПроцедуры

Процедура ДобавитьНовыйЭлемент(Имя, Тип, Родитель, ПутьКДанным)
	НовыйЭлемент = Элементы.Добавить(Имя, Тип, Родитель);       
	НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода;
	НовыйЭлемент.ПутьКДанным = ПутьКДанным;
КонецПроцедуры