Как сделать вывод справочника сотрудников в виде дерева значений.
☑
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) точно, а потом выгрузить в ДеревоЗначений
Независимо от того, куда вы едете — это в гору и против ветра!