Чтение журнала регистраций и вывод их в отчет

ТЗ = Новый ТаблицаЗначений;
Фильтр = Новый Структура;
ОбъектМетаданных = Документы.ТребованиеНакладная.СоздатьДокумент().Метаданные();
Фильтр.Вставить("Метаданные", ОбъектМетаданных);
ВыгрузитьЖурналРегистрации(ТЗ,Фильтр);
Запрос = Новый Запрос("ВЫБРАТЬ
| ТаблицаДокументов.Данные КАК Данные,
| ТаблицаДокументов.ИмяПользователя КАК Пользователь,
| ТаблицаДокументов.ПредставлениеСобытия КАК Событие
|ПОМЕСТИТЬ Таблица
|ИЗ
| &ТаблицаДокументов КАК ТаблицаДокументов
|;
|
|////////////////////////////////////////////////////////////////////////////////
|ВЫБРАТЬ
| Таблица.Данные КАК Данные,
| Таблица.Пользователь,
| Таблица.Событие
|ИЗ
| Таблица КАК Таблица
|ИТОГИ ПО
| Данные
|;
|
|////////////////////////////////////////////////////////////////////////////////
|УНИЧТОЖИТЬ Таблица");
Запрос.УстановитьПараметр("ТаблицаДокументов", ТЗ);
Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Макет = ПолучитьМакет("Макет");
ТабДок = ЭлементыФормы.ТабДок;
ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
ТабДок.Вывести(ОбластьМакета);
ОбластьДок = Макет.ПолучитьОбласть("Документ");
ОбластьМакета = Макет.ПолучитьОбласть("Строка");
Пока Выборка.Следующий() Цикл
ОбластьДок.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ОбластьДок);
Выборка2 = Выборка.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Выборка2.Следующий() Цикл
ОбластьМакета.Параметры.Заполнить(Выборка2);
ТабДок.Вывести(ОбластьМакета);
КонецЦикла;
КонецЦикла;