Визуализация таблицы значений на управляемой форме

Зачастую нужно быстро и просто визуализировать на управляемой форме таблицу значений с произвольным перечнем колонок либо, как частный случай,  двумерный массив.

Посмотрим, как это можно сделать:

Я покажу оба способа:

• Визуализация двумерного массива
• Визуализация ТЗ

Первый вариант включает в себя второй.

Допустим, мы имеем на клиенте двумерный массив. В данном случае, это  массив с данными, прочитанный по API с нашего известного маркетплейса.

&НаКлиенте
МассивСДанными = ПрочитатьJSON(ЧтениеJSON);
Если ТипЗнч(МассивСДанными) = Тип("Массив") Тогда	
		СоздатьИЗаполнитьСтруктуруКолонок(МассивСДанными); //ВЫзов основной серверной процедуры

Нам нужно его визуализировать на форму, (с последующей естественно обработкой), но в моменте нужно визуально просмотреть: а что там JSON собственно начитал.

1. Создадим на форме реквизит «ТЗ_ЧтениеJSON». Без колонок реквизитов.  

Нюанс: Реквизит - таблицу можно создавать и динамически (далее я укажу этот вариант в коде). Но я считаю, что реквизит будущей таблицы удобнее разместить сразу в форме там, где нужно и как нужно.

2. Если мы работаем с массивом,  то имеет смысл преобразовать его в ТЗ с помощью известной функции. Если мы уже имеем ТЗ, то  переходим сразу к пункту 3

   &НаСервере
   Функция ПреобразованиеМассивВТаблицуЗначений(Массив)
   	
   	ТЗ = Новый ТаблицаЗначений;
   	
   	Для Каждого СтрокаМассива Из Массив Цикл
   		
   		Если ТЗ.Колонки.Количество() = 0 Тогда
   			Для Каждого ЭлементМассива Из СтрокаМассива Цикл
   				ТЗ.Колонки.Добавить(ЭлементМассива.Ключ);
   			КонецЦикла;
   		КонецЕсли;
   		
   		НоваяСтрока = ТЗ.Добавить();
   		Для Каждого ЭлементМассива Из СтрокаМассива Цикл
   			НоваяСтрока[ЭлементМассива.Ключ] = ЭлементМассива.Значение;
   		КонецЦикла;
   	КонецЦикла;
   	
   	Возврат ТЗ;
   	
   КонецФункции
   

    

3.  Ну и собственно серверная процедура, создающая таблицу на форме и заполняющая ее данными из ТЗ. 

Процедура СоздатьИЗаполнитьСтруктуруКолонок (МассивСДанными)
	
	//Получаем ТЗ из массив (или откуда угодно)
	//Помним что ТЗ живет у нас только на сервере !!!
	ТЗ = ПреобразованиеМассивВТаблицуЗначений(МассивСДанными);
	
	МассивКолонок = Новый Массив;    
	
	//-------------Если элемент таблица создается динамически на форме--------
	//МассивКолонок.Добавить(Новый РеквизитФормы("ТЗ_ЧтениеJSON",Новый ОписаниеТипов("ТаблицаЗначений")));  
    //- она кстати тоже будет элементом  массива
	//-------------Если элемент таблица создается динамически на форме-------
	
	//Добавим колонки в существующий реквизит формы
	Для Каждого КолонкаТЗ ИЗ ТЗ.колонки Цикл
		ИмяКолонки = КолонкаТЗ.Имя; 
 
		ТипРеквизита = Новый ОписаниеТипов("Строка", , ,Новый КвалификаторыСтроки(150)); //Тут можно типизировать колонку реквизита явным образом , но в моем случае это строка и делать я этого не буду
		нРеквизитФормы = Новый РеквизитФормы(ИмяКолонки, ТипРеквизита, "ТЗ_ЧтениеJSON", ИмяКолонки); //Новый реквизит - элемент массива
		Если ЭтаФорма.Элементы.Найти(ИмяКолонки) = Неопределено  Тогда //ищем в составе элеменов формы, чтобы при повторном вызове процедуры не было ошибки задвоения реквизитов	
			МассивКолонок.Добавить(нРеквизитФормы);   
		КонецЕсли;
	КонецЦикла;
	
	// добавим собственно реквизиты на форму
	ИзменитьРеквизиты(МассивКолонок);
	
	//-------------Если элемент таблица создается динамически на форме-------
	//// добавим элементы формы
	//Таб = Элементы.Добавить("ТЗ_ЧтениеJSON", Тип("ТаблицаФормы"));
	//Таб.ПутьКДанным = "ТЗ_ЧтениеJSON";
	
	//// запретим менять положение строк и сами строки, отключим командную панель
	//Таб.ИзменятьСоставСтрок = Ложь;
	//Таб.ИзменятьПорядокСтрок = Ложь;
	//Таб.ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиЭлементаФормы.Нет;
	//-------------Если элемент таблица создается динамически на форме-------
	
	//Добавим поля и пропишем путь к данным
	Для Каждого КолонкаТЗ ИЗ ТЗ.колонки Цикл
		ИмяКолонки = КолонкаТЗ.Имя;
		Если ЭтаФорма.Элементы.Найти(ИмяКолонки) = Неопределено  Тогда	
			нЭлемент = Элементы.Добавить(ИмяКолонки, Тип("ПолеФормы"), Элементы.ТЗ_ЧтениеJSON); 
			нЭлемент.Вид = ВидПоляФормы.ПолеВвода; 
			нЭлемент.ПутьКДанным = "ТЗ_ЧтениеJSON." + ИмяКолонки;
		КонецЕсли;
	КонецЦикла;
	
	ТЗ_ЧтениеJSON.Загрузить(ТЗ); //Грузим нашу исходную ТЗ  
	
КонецПроцедуры