Помогите доделать отчет Шахматка

[Міша Угера]

Добрый вечер ! помогите доделать отчет типа Шахматка
по вертикали название Профсоюз
по горизонтали номер путевки и фамилия
пересекаться должно по сумме
1с 7.7 комплексная

Код Выделить Развернуть

Процедура Сформировать()
Перем Запрос, ТекстЗапроса, Таб;
ВыбНачПериода = НачалоИнтервала();
ВыбКонПериода = КонецИнтервала();
тФирма = Константа.БазФирма.ПолнНаименование;

//Создание объекта типа Запрос
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса =
"//{{ЗАПРОС(Сформировать)
|Период с ВыбНачПериода по ВыбКонПериода;
|ОбрабатыватьДокументы НеПроведенные;
|Обрабатывать НеПомеченныеНаУдаление;
|НачДата = Документ.Путевка.НачДата;
|КонДата = Документ.Путевка.КонДата;
|Профсоюз = Документ.Путевка.Профсоюз;
|Путевка = Документ.Путевка.Путевка;
|ФИО = Документ.Путевка.ФИО;
|Сумма = Документ.Путевка.Сумма;
|Флаг = Документ.Путевка.Флаг;
|Функция СуммаСумма = Сумма(Сумма);
|Группировка Профсоюз без групп;
|Группировка Путевка без групп;
|Условие(Флаг=1);
|"//}}ЗАПРОС
;
// Если ошибка в запросе, то выход из процедуры
Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
Возврат;
КонецЕсли;

Таб = СоздатьОбъект("Таблица");
Если Константа.ФормыНаУкраинском = Да Тогда
Таб.ИсходнаяТаблица("Сформировать");
КонецЕсли;
Таб.ВывестиСекцию("Шапка|Начало");

Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
ном = 0;
Пока Запрос.Группировка("Профсоюз") = 1 Цикл
Таб.Присоединитьсекцию("Шапка|Профсоюз");
КонецЦикла;
ном = ном + 1;
Таб.ВывестиСекцию("Строка|Начало");
Пока Запрос.Группировка("Профсоюз") = 1 Цикл
Таб.Присоединитьсекцию("Строка|Профсоюз");
КонецЦикла;

Таб.ВывестиСекцию("Итого|Начало");
Таб.Присоединитьсекцию("Итого|Профсоюз");
// Вывод заполненной формы
Таб.ТолькоПросмотр(1);
Таб.ВывестиСекцию("Подвал");
Таб.Показать("Печать ЖурналПутевка","");
КонецПроцедуры
//}}ПРОЦЕДУРА_ПЕЧАТИ

сама таблица