v8.3: выгрузка значений из массива в таблицу Значений

 

Процедура ЗаписатьЗначенияНажатие(Элемент)

	

	ЗаписатьВводные(ТаблицаСырье,ТаблицаРезультат);

	Наименования=Неопределено;

	ЭлементыФормы.ТаблицаРезультат.СоздатьКолонки();		

КонецПроцедуры



Функция ЗаписатьВводные(мТаблицаСырье,мТаблицаРезультат)Экспорт

	МассНазваний=Новый Массив;

	ГлобМассив=Новый Массив;

	

	Если мТаблицаРезультат.Количество()<>0 Тогда

		Для Каждого Колонка Из мТаблицаРезультат.Колонки Цикл

       		Стр=Колонка.Заголовок;

			МассНазваний.Добавить(Стр);

    	КонецЦикла;

		

		//МассНазваний.Добавить(Строчка);

		Массив_2=Новый Массив;

		Для А=0 По мТаблицаРезультат.Колонки.Количество()-1 Цикл

			Для Б=0 По мТаблицаРезультат.Количество()-1 Цикл

				Массив_2.Добавить(мТаблицаРезультат[Б][А]);

			КонецЦикла;

		КонецЦикла;

		ГлобМассив.Добавить(Массив_2);

		МассНазваний.Добавить(Наименования);

	Иначе

		МассНазваний.Добавить(Наименования);

	КонецЕсли;

	//МассПер=Новый Массив;

	Масс=Новый Массив;

	//мТаблицаРезультат.Колонки.Добавить("Данные",Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10,3)),Наименования);

	Масс = мТаблицаСырье.ВыгрузитьКолонку("Значение");

	//Для А=0 по мТаблицаСырье.Количество()-1 Цикл

	//	МассПер.Добавить(Масс[А]);

	//КонецЦикла;

	ГлобМассив.Добавить(Масс);

	мТаблицаРезультат = Новый ТаблицаЗначений;

	Для А=0 По ГлобМассив.Количество()-1 Цикл

		мТаблицаРезультат.Колонки.Добавить("Поле",Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10,3)),МассНазваний[А]);

		Если мТаблицаРезультат.Колонки["Поле"].Имя = "Поле" Тогда

			Для Б=0 ПО ГлобМассив[А].Количество()-1 Цикл

				мТаблицаРезультат.Добавить().Поле=ГлобМассив[А][Б];

			КонецЦикла;

		КонецЕсли;

		Если мТаблицаРезультат.Колонки["Поле"].Имя = "Поле" Тогда 

			мТаблицаРезультат.Колонки["Поле"].Имя = "Данные"+Строка(Формат(А,"ЧГ="));

		КонецЕсли;

	КонецЦикла;

КонецФункции