RDT1C/CommonModules/ирПривилегированный/Ext/Module.bsl
Администратор 4651b91deb Конструктор запроса
+В комментарии перед каждым запросом пакета кроме прямого индекса теперь указывается еще и обратный
    Консоль запросов
        +Команда генерации кода встроенного языка для установки текста запроса теперь также генерирует и код установки параметров
    Синтакс-помощник
        *Исправлены ошибки на 8.3.14 (WebKit)
    Динамический список
        *Восстановлено распознавание таблицы при вводе ее полного имени
        *В управляемой форме строка поиска по всем колонкам заменена на команду отбора по текущей колонке CTRL+F
    Консоль компоновки
        +В нижней панели на странице "Табличный документ" добавлен флажок "Отладочная разметка" для обозначения связей с макетами областей
        +В нижней панели добавлена страница "Макет компоновки" и туда перенесены все команды по работе с макетом
    Общее
        +Функция для отладки От() для макета компоновки теперь открывает консоль компоновки
        +Функция От() в режиме отложенной отладки теперь вместе с макетом компоновки сохраняет и параметр ВнешниеНаборыДанных
        *Улучшена работа под пользователем без административных прав 1С
    Консоль заданий
        *Исправлено некорректное наложение отбора в режиме "По методу" на странице "Регламентные задания"
    Поиск дублей и замена ссылок
        *Исправлена ошибка при открытии с заполнением из дерева значений
2018-11-26 23:08:02 +03:00

65 lines
3.6 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С. Некоторые функции инструментов отключены.");
Возврат Неопределено;
КонецПопытки;
НомерСеанса = НомерСеансаИнформационнойБазы();
Для Каждого Сеанс Из Сеансы Цикл
Если Сеанс.НомерСеанса = НомерСеанса Тогда
ТекущийСеанс = Сеанс;
Прервать;
КонецЕсли;
КонецЦикла;
Если ТекущийСеанс = Неопределено Тогда
Сообщить("Собственный сеанс не найден");
Результат = Неопределено;
Иначе
Результат = Новый Структура;
Результат.Вставить("НачалоСеанса", ТекущийСеанс.НачалоСеанса);
Результат.Вставить("НомерСеанса", ТекущийСеанс.НомерСеанса);
Результат.Вставить("ИмяПриложения", ТекущийСеанс.ИмяПриложения);
Результат.Вставить("ИмяКомпьютера", ТекущийСеанс.ИмяКомпьютера);
КонецЕсли;
Возврат Результат;
КонецФункции