Помогите вывести в отчет итоги по группам!

Процедура Сформировать()

	Если (ПустоеЗначение(ВыбНачПериода)=1) или (ПустоеЗначение(ВыбКонПериода)=1) Тогда
		Предупреждение("Не верно задан период!",10);
		Возврат;
	КонецЕсли;
	ВыбНачПериода=НачМесяца(ВыбНачПериода);
	ВыбКонПериода=КонМесяца(ВыбКонПериода);
	Если ВыбКонПериода>ПолучитьДатуТА() Тогда
		ВыбКонПериода=ПолучитьДатуТА();
	КонецЕсли;
	Если ВыбНачПериода>ВыбКонПериода Тогда
		ВыбНачПериода=ВыбКонПериода;
	КонецЕсли;

	ТЗ = СоздатьОбъект("ТаблицаЗначений");
	ТЗ.Очистить();
	ТЗ.НоваяКолонка("Наименование");
	
	Таб=СоздатьОбъект("Таблица");
	Таб.ИсходнаяТаблица("Сформировать");
	Таб.ВывестиСекцию("Шапка|Поставщик");
	НачДаты = ВыбНачПериода;
	Пока 1=1 Цикл
		Таб.ПрисоединитьСекцию("Шапка|Месяц");
		ТЗ.НоваяКолонка(,"Число",,,,,,);
		НачДаты = ДобавитьМесяц(НачДаты,1);
		Если НачДаты > ВыбКонПериода Тогда
			Прервать;
		КонецЕсли;
	КонецЦикла;
	Таб.ПрисоединитьСекцию("Шапка|Итого");
	ТЗ.НоваяКолонка("Итого","Число",,,,,,);

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

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