Квартальный отчет с разбивкой по месяцам

Ниже приведен код, который выводит обороты по счету в разрезе по субконто за квартал. Как сделать чтоб данный отчет выводил данные как за квартал так и за месяца которые входят в данный квартал?

Помогите плиззззз никак не могу решить данную проблему......

Дата1 - Начало квартала
Дата2 - Конец квартала


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