Имя: Пароль:
1C
1С v8
Как сделать вывод справочника сотрудников в виде дерева значений.
0 timur2008
 
18.12.13
06:23
Снова здравствуйте :) У меня лпять возник вопрос мне нужно вывести список сотрудников иерархически, код работает пока у нас вложенность в справочнике не больше единицы, но к сожалению если внутри группы есть еще группы работать нормально перестает. Я знаю что тут как то можно сделать с помощью рекурсии но чето вообще ничего сообразить не могу :(
Вот мой код


Процедура КнопкаСформироватьНажатие(Кнопка)
    ДеревоЗначений.Колонки.Очистить();
    ДеревоЗначений.Колонки.Добавить("Наименование");
    ДеревоЗначений.Колонки.Добавить("Оклад");
    
    
    
    Выборка = Справочники.Сотрудники.ВыбратьИерархически();
    Пока Выборка.Следующий() Цикл
        Если Выборка.ЭтоГруппа  Тогда
            СтрокаВерхнегоУровняГруппа = ДеревоЗначений.Строки.Добавить();
            СтрокаВерхнегоУровняГруппа.Наименование = Выборка.Наименование;
        Иначе
            ПодчиненнаяСтрока = СтрокаВерхнегоУровняГруппа.Строки.Добавить();
            ПодчиненнаяСтрока.Наименование = Выборка.ФИО;
            ПодчиненнаяСтрока.Оклад = Выборка.Оклад;
        КонецЕсли;
        КонецЦикла;
    
    
    ЭлементыФормы.ДеревоЗначений.СоздатьКолонки();
КонецПроцедуры
1 kosts
 
18.12.13
06:37
(0) Запрос тоже выложи
2 Рэйв
 
18.12.13
06:57
3 Wobland
 
18.12.13
07:02
а просто показать не пробовал?
4 Wobland
 
18.12.13
07:02
(1) (2) какие запросы? окститесь, он весь справочник перебирает
5 Necessitudo
 
18.12.13
07:45
Запрос, итоги по ссылке -иерархия.
6 rinatru
 
18.12.13
07:58
(5) точно, а потом выгрузить в ДеревоЗначений