"Вывести список" - вызвать самостоятельно

Функция ТабличноеПолеВТабличныйДокумент(ТабличноеПоле)
	
	ТабДокумент   = Новый ТабличныйДокумент;
	
	ГраницаСлева  = ?(ТабличноеПоле.ВертикальныеЛинии  , Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1), Неопределено);
	ГраницаСправа = ?(ТабличноеПоле.ВертикальныеЛинии  , Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1), Неопределено);
	ГраницаСверху = ?(ТабличноеПоле.ГоризонтальныеЛинии, Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1), Неопределено);
	ГраницаСнизу  = ?(ТабличноеПоле.ГоризонтальныеЛинии, Новый Линия(ТипЛинииЯчейкиТабличногоДокумента.Сплошная, 1), Неопределено);
	
	НомерСтроки = 0;
	
	Для Каждого Колонка Из ТабличноеПоле.Колонки Цикл
		
		Если Колонка.Данные = "" Тогда
			Продолжить;
		КонецЕсли;
		
		ИндексКолонки = ТабличноеПоле.Колонки.Индекс(Колонка);
		КолонкаТабличногоПоля = ТабДокумент.Область(, ИндексКолонки+1, , ИндексКолонки+1);
		КолонкаТабличногоПоля.ШиринаКолонки = Колонка.Ширина;
		
	КонецЦикла;
	
	Если ТабличноеПоле.Шапка Тогда
		
		НомерСтроки = НомерСтроки + 1;
		Для Каждого Колонка Из ТабличноеПоле.Колонки Цикл
			
			Если Колонка.Данные = "" Тогда
				Продолжить;
			КонецЕсли;
			
			ИндексКолонки                         = ТабличноеПоле.Колонки.Индекс(Колонка);
			ОбластьЯчейки                         = ТабДокумент.Область(НомерСтроки, ИндексКолонки+1, НомерСтроки, ИндексКолонки+1);
			ОбластьЯчейки.Текст                   = Колонка.ТекстШапки;
			ОбластьЯчейки.ЦветФона                = ?(Колонка.ЦветФонаШапки.Вид = ВидЦвета.АвтоЦвет, ЦветаСтиля.ЦветФонаКнопки, Колонка.ЦветФонаШапки);
			ОбластьЯчейки.ЦветРамки               = ?(ТабличноеПоле.ЦветРамки.Вид = ВидЦвета.АвтоЦвет, ЦветаСтиля.ЦветРамки, ТабличноеПоле.ЦветРамки);
			ОбластьЯчейки.Шрифт                   = Колонка.ШрифтШапки;
			ОбластьЯчейки.ГоризонтальноеПоложение = Колонка.ГоризонтальноеПоложениеВШапке;
			ОбластьЯчейки.Обвести(ГраницаСлева, ГраницаСверху, ГраницаСправа, ГраницаСнизу);
			
		КонецЦикла;
		
	КонецЕсли;
	
	Построитель = Новый ПостроительЗапроса;
	Построитель.ИсточникДанных = Новый ОписаниеИсточникаДанных(ТабличноеПоле.Значение);
	Для Каждого ЭлементОтбораИсточник Из ТабличноеПоле.ОтборСтрок Цикл
		Если ЭлементОтбораИсточник.Использование = Ложь Тогда
			Продолжить;
		КонецЕсли;
		ЭлементОтбораПриемник = Построитель.Отбор.Добавить(ЭлементОтбораИсточник.ПутьКДанным);
		ЭлементОтбораПриемник.Использование = ЭлементОтбораИсточник.Использование;
		ЭлементОтбораПриемник.ВидСравнения  = ЭлементОтбораИсточник.ВидСравнения;
		ЭлементОтбораПриемник.Значение      = ЭлементОтбораИсточник.Значение;
		ЭлементОтбораПриемник.ЗначениеС     = ЭлементОтбораИсточник.ЗначениеС;
		ЭлементОтбораПриемник.ЗначениеПо    = ЭлементОтбораИсточник.ЗначениеПо;
	КонецЦикла;
	Построитель.Выполнить();
	
	Результат = Построитель.Результат;
	Выборка   = Результат.Выбрать();
	
	Пока Выборка.Следующий() Цикл
		
		НомерСтроки = НомерСтроки + 1;
		
		Для Каждого Колонка Из ТабличноеПоле.Колонки Цикл
			
			Если Колонка.Данные = "" Тогда
				Продолжить;
			КонецЕсли;
			
			ИндексКолонки                         = ТабличноеПоле.Колонки.Индекс(Колонка);
			ОбластьЯчейки                         = ТабДокумент.Область(НомерСтроки, ИндексКолонки+1, НомерСтроки, ИндексКолонки+1);
			ОбластьЯчейки.ЦветФона                = ?(Колонка.ЦветФонаПоля.Вид = ВидЦвета.АвтоЦвет, ЦветаСтиля.ЦветФонаПоля, Колонка.ЦветФонаПоля);
			ОбластьЯчейки.ЦветРамки               = ?(ТабличноеПоле.ЦветРамки.Вид = ВидЦвета.АвтоЦвет, ЦветаСтиля.ЦветРамки, ТабличноеПоле.ЦветРамки);
			ОбластьЯчейки.Шрифт                   = Колонка.ШрифтТекста;
			ОбластьЯчейки.ГоризонтальноеПоложение = Колонка.ГоризонтальноеПоложениеВКолонке;
			ОбластьЯчейки.Обвести(ГраницаСлева, ГраницаСверху, ГраницаСправа, ГраницаСнизу);
			
			ФорматнаяСтрока = "";
			ЗначениеЯчейки  = Выборка[Колонка.Данные];
			ТипКолонки      = Результат.Колонки[Колонка.Данные].ТипЗначения;
			
			Если ТипЗнч(ЗначениеЯчейки) = Тип("Число") Тогда
				КвалификаторыЧисла  = ТипКолонки.КвалификаторыЧисла;
				ФорматнаяСтрока     = "ЧЦ=" + КвалификаторыЧисла.Разрядность + "; ЧДЦ=" + КвалификаторыЧисла.РазрядностьДробнойЧасти;
			ИначеЕсли ТипЗнч(ЗначениеЯчейки) = Тип("Дата") Тогда
				КвалификаторыДаты = ТипКолонки.КвалификаторыДаты;
				Если КвалификаторыДаты.ЧастиДаты = ЧастиДаты.Дата Тогда
					ФорматнаяСтрока = "ДФ=dd.MM.yyyy";
				ИначеЕсли КвалификаторыДаты.ЧастиДаты = ЧастиДаты.Время Тогда
					ФорматнаяСтрока = "ДФ=HH:mm:ss";
				КонецЕсли;
			КонецЕсли;
			
			Если ЗначениеЗаполнено(ФорматнаяСтрока) Тогда
				ОбластьЯчейки.Текст = Формат(ЗначениеЯчейки, ФорматнаяСтрока);
			ИНаче
				ОбластьЯчейки.Текст = ЗначениеЯчейки;
			КонецЕсли;
			
		КонецЦикла;
		
	КонецЦикла;
	
	Если ТабличноеПоле.Подвал Тогда
		
		НомерСтроки = НомерСтроки + 1;
		Для Каждого Колонка Из ТабличноеПоле.Колонки Цикл
			
			Если Колонка.Данные = "" Тогда
				Продолжить;
			КонецЕсли;
			
			ИндексКолонки                         = ТабличноеПоле.Колонки.Индекс(Колонка);
			ОбластьЯчейки                         = ТабДокумент.Область(НомерСтроки, ИндексКолонки+1, НомерСтроки, ИндексКолонки+1);
			ОбластьЯчейки.Текст                   = Колонка.ТекстПодвала;
			ОбластьЯчейки.ЦветФона                = ?(Колонка.ЦветФонаШапки.Вид = ВидЦвета.АвтоЦвет, ЦветаСтиля.ЦветФонаКнопки, Колонка.ЦветФонаПодвала);
			ОбластьЯчейки.ЦветРамки               = ?(ТабличноеПоле.ЦветРамки.Вид = ВидЦвета.АвтоЦвет, ЦветаСтиля.ЦветРамки, ТабличноеПоле.ЦветРамки);
			ОбластьЯчейки.Шрифт                   = Колонка.ШрифтПодвала;
			ОбластьЯчейки.ГоризонтальноеПоложение = Колонка.ГоризонтальноеПоложениеВПодвале;
			ОбластьЯчейки.Обвести(ГраницаСлева, ГраницаСверху, ГраницаСправа, ГраницаСнизу);
			
		КонецЦикла;
		
	КонецЕсли;
	
	Возврат ТабДокумент;
	
КонецФункции