xmlTSDGalery/CommonModules/ОбщегоНазначенияБПОПовтИсп/Ext/Module.bsl
kykaevv 88098aa86f Initial commit: конфигурация ТСД с обменом УНФ.
Включает перемещение по ячейкам, стикеровку МП, синхронизацию справочников и обработку кодов маркировки.

Co-authored-by: Cursor <cursoragent@cursor.com>
2026-09-01 12:50:57 +03:00

68 lines
2.9 KiB
Plaintext
Raw Permalink Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

#Область СлужебныйПрограммныйИнтерфейс
// Возвращает соответствие имен "функциональных" подсистем и значения Истина.
// У "функциональной" подсистемы снят флажок "Включать в командный интерфейс".
//
// Возвращаемое значение:
// Соответствие из КлючИЗначение
//
Функция ИменаПодсистем() Экспорт
Имена = Новый Соответствие;
ВставитьИменаПодчиненныхПодсистем(Имена, Метаданные);
Возврат Новый ФиксированноеСоответствие(Имена);
КонецФункции
Функция РежимЗамещенияДоступен() Экспорт
СистемнаяИнформация = Новый СистемнаяИнформация();
Версия = СистемнаяИнформация.ВерсияПриложения;
Если ОбщегоНазначенияБПОКлиентСервер.СравнитьВерсии(Версия, "8.3.25.1336") < 0 Тогда
Возврат Ложь;
КонецЕсли;
Возврат Истина;
КонецФункции
Функция РежимЗамещенияУдаление() Экспорт
#Если Не МобильноеПриложениеСервер Тогда
УстановитьБезопасныйРежим(Истина);
#КонецЕсли
Возврат Вычислить("РежимЗамещения.Удаление");
КонецФункции
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
Процедура ВставитьИменаПодчиненныхПодсистем(Имена, РодительскаяПодсистема, ИмяРодительскойПодсистемы = "")
Для Каждого ТекущаяПодсистема Из РодительскаяПодсистема.Подсистемы Цикл
Если ТекущаяПодсистема.ВключатьВКомандныйИнтерфейс Тогда
Продолжить;
КонецЕсли;
ИмяТекущейПодсистемы = ИмяРодительскойПодсистемы + ТекущаяПодсистема.Имя;
Имена.Вставить(ИмяТекущейПодсистемы, Истина);
Если ТекущаяПодсистема.Подсистемы.Количество() = 0 Тогда
Продолжить;
КонецЕсли;
ВставитьИменаПодчиненныхПодсистем(Имена, ТекущаяПодсистема, ИмяТекущейПодсистемы + ".");
КонецЦикла;
КонецПроцедуры
#КонецОбласти