Терминатор Получить принимает в себя тип значения, в котором необходимо вернуть результат

Author: nixel2007

github.os

@@ -51,7 +51,7 @@
 	.Первые(5)
 	.Сортировать(СортировкаПоКонтрибьюциям)
 	.Первые(3)
-	.ВМассив();
+	.Получить(Тип("ТаблицаЗначений"));
 
 Для Каждого Элемент Из Результат Цикл
 	Сообщить(Элемент.Имя);

src/Классы/Поток.os

@@ -216,14 +216,52 @@
 
 КонецФункции
 
-Функция Получить() Экспорт
-	Лог.Отладка("Получить");
+Функция Получить(ТипРезультата) Экспорт
 
-	ПройтиКонвейер();
+	Лог.Отладка("Получить %1", ТипРезультата);
 
-	Результат = ПотокСлужебный.ПолучитьКоллекцию();
+	ПройтиКонвейер();
 
+	Коллекция = ПотокСлужебный.ПолучитьКоллекцию();
+	КэшКолонок = ПотокСлужебный.ПолучитьКэшКолонок();
+	Лог.Информация(КэшКолонок.Количество());
+	
+	Результат = Новый(ТипРезультата);
+	
+	Рефлектор = Новый Рефлектор;
+	ТаблицаСвойств = Рефлектор.ПолучитьТаблицуСвойств(Результат);
+	РезультатСодержитКолонки = ТаблицаСвойств.Найти("Колонки", "Имя") <> Неопределено;
+	Если РезультатСодержитКолонки Тогда
+		Для Каждого Колонка Из КэшКолонок Цикл
+			Результат.Колонки.Добавить(
+				Колонка.Имя,
+				Колонка.ТипЗначения,
+				Колонка.Заголовок,
+				Колонка.Ширина
+			);
+		КонецЦикла;
+	
+		Если Результат.Колонки.Количество() = 0 Тогда
+			Результат.Колонки.Добавить("Значение");
+		КонецЕсли;
+	КонецЕсли;
+
+	ЭлементСодержитКолонки = КэшКолонок.Количество() > 0;
+	Лог.Отладка("Результат содержит колонки %1", РезультатСодержитКолонки);
+	Лог.Отладка("Элемент содержит колонки %1", ЭлементСодержитКолонки);
+	Для Каждого ЭлементКоллекции Из Коллекция Цикл
+		Если РезультатСодержитКолонки И ЭлементСодержитКолонки Тогда
+			ЗаполнитьЗначенияСвойств(Результат.Добавить(), ЭлементКоллекции);
+		ИначеЕсли РезультатСодержитКолонки Тогда
+			НоваяСтрока = Результат.Добавить();
+			НоваяСтрока.Значение = ЭлементКоллекции;
+		Иначе
+			Результат.Добавить(ЭлементКоллекции);
+		КонецЕсли;
+	КонецЦикла;
+
 	Возврат Результат;
+
 КонецФункции
 
 Функция ЛюбойСоответствует(ОписаниеОповещения) Экспорт
@@ -351,7 +389,7 @@
 		Лог.Отладка("Размер коллекции %1", Коллекция.Количество());
 
 		ОписанияОповещений.ВыполнитьОбработкуОповещения(Ячейка, Результат);
-		ПотокСлужебный.УстановитьКоллекцию(Результат);
+		ПотокСлужебный.УстановитьКоллекцию(Результат, Ложь);
 	КонецЦикла;
 
 	Конвейер.Очистить();

src/Классы/ПотокСлужебный.os

@@ -4,18 +4,46 @@
 Перем Лог;
 
 Перем Коллекция;
+Перем КэшКолонок;
 
-Процедура УстановитьКоллекцию(НоваяКоллекция) Экспорт
+Процедура УстановитьКоллекцию(НоваяКоллекция, ОбновлятьКэшКолонок = Истина) Экспорт
+	
 	Коллекция = Новый Массив;
+	
 	Для Каждого ЭлементНовойКоллекции Из НоваяКоллекция Цикл
 		Коллекция.Добавить(ЭлементНовойКоллекции);
 	КонецЦикла;
+
+	Если НЕ ОбновлятьКэшКолонок Тогда
+		Возврат;
+	КонецЕсли;
+	
+	КэшКолонок = Новый Массив;
+
+	Рефлектор = Новый Рефлектор;
+	ТаблицаСвойств = Рефлектор.ПолучитьТаблицуСвойств(НоваяКоллекция);
+	Для Каждого Свойство Из ТаблицаСвойств Цикл
+		Лог.Отладка("Обнаружено свойство коллекции %1", Свойство.Имя);
+	КонецЦикла;
+
+	Если ТаблицаСвойств.Найти("Колонки", "Имя") <> Неопределено Тогда
+		Для Каждого Колонка Из НоваяКоллекция.Колонки Цикл
+			КэшКолонок.Добавить(Колонка);
+		КонецЦикла;
+	КонецЕсли;
+
+	Лог.Информация("Кэш колонок содержит %1 колонок", КэшКолонок.Количество());
+
 КонецПроцедуры
 
 Функция ПолучитьКоллекцию() Экспорт
 	Возврат Коллекция;
 КонецФункции
 
+Функция ПолучитьКэшКолонок() Экспорт
+	Возврат КэшКолонок;
+КонецФункции
+
 Процедура ВыполнитьПервые(Результат, ДополнительныеПараметры) Экспорт
 
 	Количество = ДополнительныеПараметры.Количество;

test.os

@@ -37,7 +37,11 @@
 	.Фильтровать(ФункцияФильтрации)
 	.Первые(2)
 	.Обработать(ФункцияОбработки)
-	.ДляКаждого(Потоки.СтандартныйОбработчик_Сообщить());
+	.Получить(Тип("Массив"));
+
+Для Каждого Элемент Из Результат Цикл
+	Сообщить(Элемент);
+КонецЦикла;
 
 Стрим = Потоки.ИзКоллекции(Массив);
 Результат = Стрим