Помогите отсортировать по месяцам в ЗиК

Сделай так:

Код
|Группировка Подразделение; |Группировка ДатаРожд; |Группировка Наименование; Пока Запрос.Группировка(1) = 1 Цикл         Таб.ВывестиСекцию("НаимПодразделения");         Пока Запрос.Группировка(2) = 1 Цикл               Пока Запрос.Группировка(3) = 1 Цикл                       Таб.ВывестиСекцию("НомерКод");               КонецЦикла;         КонецЦикла; КонецЦикла; Показать полностью

А тут не поможешь с кодом? Вроде бы все выводит, но не совсем верно. Что-то с циклом, только не пойму где.
Выводиться ошибка:"Значение не представляет агрегатный объект (выбран)".
В каждое последующее подразделение добавляются предыдущие сотрудники + новые (которые должны быть) и так дальше (как снежный ком). Посмотри пожалуйста.

Процедура Флаг()
Д=?(Все=1,0,1);
А=?(ВсеПодразделения=1,0,1);
Форма.ПР.Доступность(А);
Форма.МР.Доступность(Д);
КонецПроцедуры
//__________________________________________________________­__//
Процедура ПриОткрытии()
//МР = СоздатьОбъект("СписокЗначений");
МР.ДобавитьЗначение(1, "Январь");
МР.ДобавитьЗначение(2, "Февраль");
МР.ДобавитьЗначение(3, "Март");
МР.ДобавитьЗначение(4, "Апрель");
МР.ДобавитьЗначение(5, "Май");
МР.ДобавитьЗначение(6, "Июнь");
МР.ДобавитьЗначение(7, "Июль");
МР.ДобавитьЗначение(8, "Август");
МР.ДобавитьЗначение(9, "Сентябрь");
МР.ДобавитьЗначение(10, "Октябрь");
МР.ДобавитьЗначение(11, "Ноябрь");
МР.ДобавитьЗначение(12, "Декабрь");
Все=1;
Флаг();
КонецПроцедуры


//__________________________________________________________­__//
Процедура Сформировать()
База=СоздатьОбъект("ТаблицаЗначений");
База.НоваяКолонка("Ном","Число",4,,"№ п/п",4,,2);
База.НоваяКолонка("Имя",,,,"Сотрудник",15,,1);
База.НоваяКолонка("Должность",,,,"Должность",15,,1);
База.НоваяКолонка("День","Дата",,,"Дата рожд.",10,,);
База.НоваяКолонка("Мес","Число",3,,"Месяц",4,,2);
База.НоваяКолонка("Знак");
База.НоваяКолонка("Адрес",,,,"Адрес",15,,1);
База.НоваяКолонка("Подразделение",,,,"Подразделение",15,,1);
//База.НоваяКолонка("Подраздел");
База.НоваяКолонка("Телефон",,,,"Телефон",15,,1);

Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Таб.ВывестиСекцию("Шапка");
Таб.Опции(0,0,Таб.ВысотаТаблицы(),0);
//
СпрСотрудники=СоздатьОбъект("Справочник.Сотрудники");
СпрПодр = СоздатьОбъект("Справочник.Подразделения");
СпрСотрудники.ИспользоватьДату(ТекущаяДата());

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

СпрСотрудники.ВыбратьЭлементы();
Пока СпрСотрудники.ПолучитьЭлемент()=1 Цикл
Если НЕ (СпрСотрудники.ТекущийЭлемент().СостояниеФизЛица.Получить(ВыбДата)= Перечисление.СостояниеФизЛица.СотрудникОсновной) тогда
продолжить;
КонецЕсли;

Если СпрСотрудники.ТекущийЭлемент().ЭтоГруппа()=1 Тогда
Продолжить;
КонецЕсли;

Если СпрСотрудники.ТекущийЭлемент().Подразделение.Получить(РабочаяДата())<>Подр Тогда
Продолжить;
КонецЕсли;

Стр="";
База.НоваяСтрока();
База.Ном=База.НомерСтроки;
База.Имя=СпрСотрудники.ТекущийЭлемент();
База.Должность=СпрСотрудники.Должность;
База.Адрес=СпрСотрудники.АдресФакт;
База.День=СпрСотрудники.ДатаРождения;
База.Мес=ДатаМесяц(СпрСотрудники.ДатаРождения);
База.Подразделение=СпрСотрудники.Подразделение;
База.Телефон=СпрСотрудники.Телефон;
КонецЦикла;
База.Сортировать("5+,2+,3+");

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


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

Если ПустоеЗначение(ВыбПодразделения)=0 Тогда
Прервать;
КонецЕсли;
КонецЦикла;

Таб.ВывестиСекцию("Подвал");
Таб.ТолькоПросмотр(1);
Таб.ПараметрыСтраницы(1,100,);
Таб.Показать("Таблица","");
КонецПроцедуры