ТЗ = СоздатьОбъект("ТаблицаЗначений");
ТЗ.Очистить();
ТЗ.НоваяКолонка("Сотрудник","Справочник.Сотрудники");
ТЗ.НоваяКолонка("Маршрут" ,"Справочник.Маршруты");
ТекстЗапроса="
|Период с ВыбНачПериода по ВыбКонПериода;
|РегСотрудник = Регистр.Время.Сотрудник;
|РегМаршрут = Регистр.Время.Маршрут;
|Группировка РегСотрудник Без Групп;
|Группировка РегМаршрут Без Групп;
|";
Запрос=СоздатьОбъект("Запрос");
Если Запрос.Выполнить(ТекстЗапроса)=0 тогда Предупреждение("Запит не виконано!"); Возврат; КонецЕсли;
Пока Запрос.Группировка("РегСотрудник")=1 Цикл
Пока Запрос.Группировка("РегМаршрут")=1 Цикл
ТЗ.НоваяСтрока();
ТЗ.Сотрудник = Запрос.РегСотрудник;
ТЗ.Маршрут = Запрос.РегМаршрут;
КонецЦикла;
КонецЦикла;
ТЗ.выбратьстроку();