Программное добавление Динамической колонки на форму

Процедура Добавление()

	МассивДобавляемыхРеквизитов = Новый Массив;
	МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("ТаблицаЗначенийКолонок", Новый ОписаниеТипов("ТаблицаЗначений")));
	МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("РобочаяРоль", Новый ОписаниеТипов("СправочникСсылка.РобочаяРоль"),"ТаблицаЗначенийКолонок" ,"Робочая роль"));
	МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("Сотрудник", Новый ОписаниеТипов("СправочникСсылка.Сотрудники",Новый КвалификаторыЧисла(10,2)),"ТаблицаЗначенийКолонок" , "Сотрудник"));
	МассивДобавляемыхРеквизитов.Добавить(Новый РеквизитФормы("Линия", Новый ОписаниеТипов("СправочникСсылка.прЛинии",Новый КвалификаторыЧисла(10,2)),"ТаблицаЗначенийКолонок" , "Линия"));
	
	 ИзменитьРеквизиты(МассивДобавляемыхРеквизитов);
	
	МассивДобавляемыхРеквизитов.Очистить();
	
	ТаблицаФормы = Элементы.Добавить("ТаблицаЗначенийКолонок", Тип("ТаблицаФормы"));
	ТаблицаФормы.ПутьКДанным = "ТаблицаЗначенийКолонок";
		
	ДобавитьКолонку("ТаблицаЗначенийКолонок", "РобочаяРоль", "РобочаяРоль");
	ДобавитьКолонку("ТаблицаЗначенийКолонок", "Сотрудник", "Сотрудник");

	Линия = Справочники.прЛинии.Выбрать();
	Пока Линия.Следующий() Цикл 
		Список.Добавить(Линия.Ссылка);
	КонецЦикла;
	Для Каждого эл Из Список Цикл 
		эл.Представление = СтрЗаменить(эл," ","");
		ДобавитьКолонку("ТаблицаЗначенийКолонок",эл.Представление,эл.Представление);
	КонецЦикла;
		
КонецПроцедуры

&НаСервере
Процедура ДобавитьКолонку(ИмяТаблицы, ИмяКолонки, ЗаголовокКолонки)
	НоваяКолонка = Элементы.Добавить(ИмяТаблицы + ИмяКолонки, Тип("ПолеФормы"), Элементы.ТаблицаЗначенийКолонок);
	НоваяКолонка.Заголовок = ЗаголовокКолонки;
	НоваяКолонка.Вид = ВидПоляФормы.ПолеВвода;
	НоваяКолонка.ПутьКДанным = ИмяТаблицы + "." + ИмяКолонки;
	НоваяКолонка.РежимРедактирования = РежимРедактированияКолонки.ВходПриВводе;
КонецПроцедуры

НоваяКолонка.ПутьКДанным = ИмяТаблицы + "." + ИмяКолонки;