В последних релизах платформы убрали свойство метаданных Подсистемы..
Почитал темах увидел только один способ перебором из
Подсистема.Состав

Написал рекурсивную функцию по получению списка подсистем метеданных через перебор...  но она работает очень медленно..  гораздо медленнее чем .Подсистемы из старых релизов платформы..

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



Может есть более быстрый способ????

ап

а зачем ты рекурсивную функцию сделал?

(2) там дерево... прямым обходом внутрь узлов не заходит..

а так да, сами при обновлении накололись, тоже пришлось переделывать по аналоги с твоим

у меня проверяются подсистемы для объекта метаданных при обмене данными... если много объектов выгружается.. тормозит дико... раньше быстро работало....

тоже самое

только мы не перебераем

(7) а как?

зачем нужно такое получение?

явно указываем:
Если Метаданные.Подсистемы.ТТС_CRM.Состав.Содержит(Источник.Метаданные()) Тогда ...

(9) при обмене данными фильтрую по подсистемам что выгружать в подчиненный узел, а что нет...

(5) можно в параметр сенаса засунуть соответсвие метаданных подсистемам например, будет быстро

(12) тоже хотел это предложить

короче сделал так

+ к предыдущей функции
Функция ПолучитьПодсистемыСИспользованиемКеша(кэшПодсистемы, ТекМетаданные)
   стОтбор = Новый Структура;
   стОтбор.Вставить("Метаданные", ТекМетаданные);
   
   масСтроки = кэшПодсистемы.НайтиСтроки(стОтбор);
   Если масСтроки.Количество() = 0 Тогда
       Подсистемы = ПолучитьМассивПодсистемОбъектаМетаданных(ТекМетаданные);
       
       Для каждого ТекПодсистема Из Подсистемы Цикл
           НовСтрока = кэшПодсистемы.Добавить();
           НовСтрока.Метаданные = ТекМетаданные;
           НовСтрока.Подсистема = ТекПодсистема;
       КонецЦикла;
   Иначе
       Для каждого ТекСтрока Из масСтроки Цикл
           Подсистемы = Новый Массив;
           Подсистемы.Добавить(ТекСтрока.Подсистема);
       КонецЦикла;
   КонецЕсли;
   
   Возврат Подсистемы;
КонецФункции


кэширую в таблице значений... если в ней нет для текущих метаданных соответствия, то иду перебором в подсистемы...

кстати в каком релизе убрали?

(15)  хз  в 13 ещё работало по старому как перешли на 16  всё сломалось ))

(11) Юзай лучше подсистему регистрации изменений из БСП

БСП ?

(12) а нельзя ли просто явно определить список подсистем через Метаданные.Подсистемы.<Имя подсистемы> и проверять уже содержат они <Источник>, если содержит хотя бы одна то выгружаешь в подчинённый

(19) to (14)

(19) наверно можно и так...

(21) по крайней мере так точно быстрее будет отрабатывать

(22) спасибо...  попробую в сравнении с кэшированным вариантом..

(23) дай хоть знать то потом )))))

(18) БСП = Библиотека Стандартных Процедур (бесплатная конфа с кучей стандартных вкусняшек)

(25) Я бы не назвал это вкусняшками, достаточно посредственная концепция, достаточно посредственный код. Мне кажется, каждый серьезный разработчик на 1С 8 уже давно имеет свою БСП