0
manti
05.06.12
✎
13:53
|
Всем здравствуйте.
В общих есть объект конфигурации подсистема.
Как можно вывести весь состав подсистемы(а также состав подсистем входящих в нее) - документы, спаравочники и отчеты, которые принадлежат ей
перем отбор;
Процедура КнопкаВыполнитьНажатие(Кнопка)
//Метаданные.Роли.ПравоИспользованияЭлектроннойПочты.
// Метаданные.Подсистемы.УправлениеПерсоналом.Подсистемы.РегламентированныйУчет.Подсистемы.УчетКадровОрганизаций.Состав.Получить();
Данные = Метаданные.Подсистемы.УправлениеПерсоналом.Состав;
Строка = ТаблицаВыводаДерева.Строки.Добавить(); //введем строку 0-го ур-ня и в рекурсию как параметр "Строка"
Разузлование(Данные, Строка);
ЭлементыФормы.ТаблицаВыводаДерева.СоздатьКолонки();
КонецПроцедуры
Процедура Разузлование(Данные, Строка)
Для Каждого Элемент Из Данные Цикл //выввести корневые
НовСтрока = Строка.Строки.Добавить();
НовСтрока.Дерево = Элемент;
КонецЦикла;
//подчиненые строки
Для Каждого Строка Из НовСтрока.Родитель.Строки Цикл //корневые разузловать
Отбор.Вставить("Номенклатура",Строка.Состав);
Разузлование(Данные, Строка); //Строка будет подчененая для разузлованой
КонецЦикла;
КонецПроцедуры //Разузлование
Отбор = Новый Структура;
ТаблицаВыводаДерева.Колонки.Добавить("Дерево");
Как здесь получить вид элемента- спр ли это или документ? ну и с разузливанием проблема- как родителя определить грамотно?
Данные = Метаданные.Подсистемы.УправлениеПерсоналом.Состав
|
|