Пользуйся тегом
[ code ] (без пробелов)!
// Результат запроса - в ТаблицуЗначений
ТЗ=Запрос.Выполнить().Выгрузить();
// Добавляем колонки
ПоляСвертки="";
Для И1=1 По День(КонецМесяца(ДатаЗапроса)) Цикл
Идент="ЧасыДень"+И1;
Кол=ТЗ.Колонки.Добавить(Идент,ТЗ.Колонки.Часы.ТипЗначения,И1);
ПоляСвертки=ПоляСвертки+Кол.Имя+",";
КонецЦикла;
Кол=ТЗ.Колонки.Добавить("ЧасыВсего",ТЗ.Колонки.Часы.ТипЗначения,"Всего");
ПоляСвертки=ПоляСвертки+Кол.Имя;
// Проставляем часы по дням
Для каждого Стр Из ТЗ Цикл
Идент="ЧасыДень"+День(Стр.Дата);
Стр[Идент]=Стр.Часы;
Стр.ЧасыВсего=Стр.Часы;
КонецЦикла;
// Сворачиваем
ТЗ.Свернуть("ПреподавательИмя,ПредметИмя",ПоляСверки);