Имя: Пароль:
1C
1С v8
Вывести состав подсистемы
0 manti
 
05.06.12
13:53
Всем здравствуйте.
В общих есть объект конфигурации подсистема.
Как можно вывести весь состав подсистемы(а также состав подсистем входящих в нее) - документы, спаравочники и отчеты, которые принадлежат ей

перем отбор;

Процедура КнопкаВыполнитьНажатие(Кнопка)
   //Метаданные.Роли.ПравоИспользованияЭлектроннойПочты.
 // Метаданные.Подсистемы.УправлениеПерсоналом.Подсистемы.РегламентированныйУчет.Подсистемы.УчетКадровОрганизаций.Состав.Получить();

 Данные = Метаданные.Подсистемы.УправлениеПерсоналом.Состав;
 Строка = ТаблицаВыводаДерева.Строки.Добавить(); //введем строку 0-го ур-ня и в рекурсию как параметр "Строка"
 
 Разузлование(Данные, Строка);      

ЭлементыФормы.ТаблицаВыводаДерева.СоздатьКолонки();

КонецПроцедуры

Процедура Разузлование(Данные, Строка)


 Для Каждого Элемент Из Данные Цикл //выввести корневые
       НовСтрока = Строка.Строки.Добавить();
       
       НовСтрока.Дерево = Элемент;
       
   КонецЦикла;        
       
   //подчиненые строки
   Для Каждого Строка Из НовСтрока.Родитель.Строки Цикл    //корневые разузловать
           
       Отбор.Вставить("Номенклатура",Строка.Состав);
       
       
       Разузлование(Данные, Строка);  //Строка будет подчененая для разузлованой
   КонецЦикла;        
   

   
КонецПроцедуры //Разузлование

Отбор = Новый Структура;

ТаблицаВыводаДерева.Колонки.Добавить("Дерево");

Как здесь получить вид элемента- спр ли это или документ? ну и с разузливанием проблема- как родителя определить грамотно?
Данные = Метаданные.Подсистемы.УправлениеПерсоналом.Состав
1 manti
 
05.06.12
14:10
тут вообще можно обратиться к виду?
2 + 2 = 3.9999999999999999999999999999999...