RDT1C/CommonModules/ирПривилегированный/Ext/Module.bsl
Администратор 75e9bfedae +Добавлен инструмент "Управление профайлами 1С"
Подбор и обработка объектов
        + Реализована доступность для выбора полей количества движений по регистрам
        +Добавлена поддержка доп. реквизитов и сведений БСП 2+ в обработке "Изменить/Добавить строку"
    Грамматика языка запросов
        *Исправлена ошибка разбора текста с REF в качестве имени поля
    Общее
        +В общих настройках добавлен флажок "Проверять подписки конфигурации при открытии первой формы" для ускорения на больших конфигурациях
        +Добавлена поддержка английского варианта встроенного языка
        *Проверка совместимости конфигурации при открытии первой формы теперь выполняется отложено
    Управление COM классами 1С
        +Теперь при двойном клике на имени файла он открывается в проводнике
    Адаптация расширения
        *Исправлена ошибка выполнения адаптации при наличии в конфигурации ссылочных таблиц внешних источников данных
        +Добавлен флажок "Подключить отладку отчетов БСП"
    Динамический список
        +Реализовано автоматическое обновление после завершения всех изменений данных в инструментах
        *Исправлена ошибка в обычной форме при выборе таблицы перечисления
    Интерфейсная панель
        *Исправлена ошибка открытия общих форм в варианте Расширение
    Анализ журнала регистрации
        +Добавлена кнопки снятия всех пометок в отборе
    Редактор объекта БД
        *Исправлена ошибка команды "Выгрузить в XML"
    Консоль запросов
        *Исправлена работа переход к закладке по F2 в поле текста запроса
        *Ускорено первое в сеансе открытие формы на больших конфигурациях
2019-03-11 22:02:41 +03:00

66 lines
3.7 KiB
Plaintext
Raw 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.

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