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