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


    Выборка = Справочники.Контрагенты.ВыбратьИерархически(Справочники.Контрагенты.НайтиПоНаименованию("Исполнители"));
    ЭлементыФормы.ЗаказыБезРеализации_Города.НачатьАвтоГруппировкуСтрок(); // НАЧАЛО АВТОГРУППИРОВКИ
    Пока Выборка.Следующий() Цикл
        Если Выборка.Ссылка.Уровень() = 1 и Выборка.Ссылка.ЭтоГруппа = Истина Тогда
            ОбластьСтрока.Параметры.Город             = Выборка.Ссылка;
            ОбластьСтрока.Параметры.РасшифровкаГорода = Выборка.Ссылка;            
            ОбластьСтрока.Область("R1C1").ЦветФона    = Новый Цвет(155,153,155);
            ОбластьСтрока.Область("R1C1").ЦветТекста  = Новый Цвет(255,255,255);
            ОбластьСтрока.Область("R1C1").Шрифт       = Новый Шрифт("Arial", 14, Истина, Ложь);
            ОбластьСтрока.Область("R1C1").ГоризонтальноеПоложение = ГоризонтальноеПоложение.Центр;
            ЭлементыФормы.ЗаказыБезРеализации_Города.Вывести(ОбластьСтрока,1,"Город",Истина);
        КонецЕсли;
        ОбластьСтрока.Параметры.Город            = "";
        ОбластьСтрока.Область("R1C1").ЦветФона   = Новый Цвет(255,255,255);
        ОбластьСтрока.Область("R1C1").ЦветТекста = Новый Цвет(0,0,0);
        ОбластьСтрока.Область("R1C1").Шрифт      = Новый Шрифт("Arial", 10, Истина, Ложь);
        //
        Если Выборка.Ссылка.Уровень() = 2 и Выборка.Ссылка.ЭтоГруппа = Истина Тогда
            ОбластьСтрока.Параметры.Город                         = Выборка.Ссылка;
            ОбластьСтрока.Параметры.РасшифровкаГорода             = Выборка.Ссылка;            
            ОбластьСтрока.Область("R1C1").ГоризонтальноеПоложение = ГоризонтальноеПоложение.Право;
            ЭлементыФормы.ЗаказыБезРеализации_Города.Вывести(ОбластьСтрока,2,"КлассИсполнителя",Истина);
        КонецЕсли;
        ОбластьСтрока.Параметры.Город = "";
        //ОбластьСтрока.Область("R1C2").ЦветФона  =  Новый Цвет(255,255,255);
        //
        Если Выборка.Ссылка.ЭтоГруппа = Ложь Тогда
            ОбластьСтрока.Параметры.Исполнитель            = Выборка.Ссылка;
            ОбластьСтрока.Параметры.РасшифровкаИсполнителя = Выборка.Ссылка;            
            ЭлементыФормы.ЗаказыБезРеализации_Города.Вывести(ОбластьСтрока,3,"Исполнитель",Истина);
        КонецЕсли;
        ОбластьСтрока.Параметры.Исполнитель = "";
        //ОбластьСтрока.Область("R1C2").ЦветФона  =  Новый Цвет(255,255,255);
    КонецЦикла;
    ЭлементыФормы.ЗаказыБезРеализации_Города.ЗакончитьАвтоГруппировкуСтрок(); // ЗАВЕРШЕНИЕ АВТОГРУППИРОВКИ