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