Вывод запроса в поле табличного документа с группировкой

Процедура КнопкаВыполнитьНажатие(Кнопка)
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	Номенклатура.Наименование КАК Наименование,
		|	СУММА(1) КАК КоличествоДублей
		|ПОМЕСТИТЬ ВТ_дубли
		|ИЗ
		|	Справочник.Номенклатура КАК Номенклатура
		|ГДЕ
		|	Номенклатура.ЭтоГруппа = ЛОЖЬ
		|
		|СГРУППИРОВАТЬ ПО
		|	Номенклатура.Наименование
		|
		|ИМЕЮЩИЕ
		|	СУММА(1) > 1
		|;
		|
		|////////////////////////////////////////////////////////////­////////////////////
		|ВЫБРАТЬ
		|	Номенклатура.Наименование КАК Наименование,
		|	Номенклатура.Ссылка КАК Ссылка
		|ИЗ
		|	ВТ_дубли КАК ВТ_дубли
		|		ВНУТРЕННЕЕ СОЕДИНЕНИЕ Справочник.Номенклатура КАК Номенклатура
		|		ПО ВТ_дубли.Наименование = Номенклатура.Наименование
		|ГДЕ
		|	Номенклатура.ЭтоГруппа = ЛОЖЬ
		|
		|УПОРЯДОЧИТЬ ПО
		|	Наименование
		|ИТОГИ ПО
		|	Наименование";		 
	ТЗ = Запрос.Выполнить().Выгрузить();
	СформироватьТЗ(ТЗ);
КонецПроцедуры

Процедура СформироватьТЗ(ТабЗначений)
    ТабДок = ЭлементыФормы.ПолеТабличногоДокумента1;	
	ТабДок.Очистить();
	ШирКолонки = ТабДок.Область(,1,,2);
	ШирКолонки.ШиринаКолонки = 20;
	ДетальнаяСтрока = ТабДок.ПолучитьОбласть(1, ,1, ); 
	КоличествоКолонок = ТабЗначений.Колонки.Количество();
            
	Для Каждого СтрокаТЗ Из ТабЗначений Цикл  
		Для ТекущееПоле = 0 По КоличествоКолонок - 1 Цикл
            Область = ДетальнаяСтрока.Область(1, ТекущееПоле +1);
            Область.СодержитЗначение = Истина;
            
			КС = Новый КвалификаторыСтроки(99);
			Массив = Новый Массив;
			Массив.Добавить(ТипЗнч(СтрокаТЗ[ТекущееПоле]));
			ОписаниеТиповС = Новый ОписаниеТипов(Массив, , КС);

			Область.ТипЗначения = ОписаниеТиповС;
			Область.Значение = СтрокаТЗ[ТекущееПоле];
       КонецЦикла;
       ТабДок.Вывести(ДетальнаяСтрока);
    КонецЦикла;          
	ТабДок.ОтображатьСетку = Истина;
    ТабДок.Показать();
КонецПроцедуры