RDT1C/CommonCommands/ирРедактироватьОбъектИзАктивнойФормы/Ext/CommandModule.bsl
Администратор 87d4c49793 Общее
*Исправлена некритичная ошибка обновления расширения
        *В грамматике языка запросов исправлена ошибка разбора слова "order" в качестве псевдонима
        *Исправлена работа глобальных командв формах объектов с именем Object основного реквизита
        +Добавлен параметр запуска "ВключитьИР" для варианта Расширение для включения видимости раздела инструментов
        +В информация для тех. поддержки добавлен вывод активных расширений
    Список баз пользователя ОС
        +Добавлена кнопка очистки каталога кэша метаданных
        *Исправлена очистка списка в форме при перечтении
        +Добавлена поддержка общих списков инфобаз (CommonInfoBases)
    Консоль запросов
        *Исправлена свежая проблема превращения ссылочных значений в строковые при выборе их в поле "Значение" в таблице параметров, если консоль открыта через От()
        +Реализовано автоматическое сужение описаний типов колонок параметров-таблиц при необходимости
        *При частичном копировании текста запроса в виде выражения встроенного языка теперь не добавляется код установки параметров
        *Исправлено разворачивание свернутых в тексте запроса подзапросов при выполнении команды копирования в виде выражения встроенного языка
    Конструктор запроса
        *Исправлена некритичная ошибка при изменении номера необязательной группы в списке выбранных таблиц
        *Исправлен некорректный разбор запросов с необязательными выбранными таблицами
        *Исправлены некорректные отступы при сборке необязательных соединений
    Адаптация расширения
        *Исправлена ошибка на 8.3.14 при включенном флажке "Подключать отладку отчетов БСП"
        +Флажок "Подключить отладку отчетов БСП" расширен до "Подключить отладку отчетов"
    Консоль кода
        +Повышена наглядность индикации контекста выполнения
    Консоль компоновки
        *Исправлена ошибка загрузки схемы компоновки с набором данных запросом с папкой полей
    Управление профайлами 1С
        *Исправлено неверное определение каталога если по строке соединения в списке баз много элементов
    Подбор и обработка объектов
        *Исправлена ошибка выполнения обработки "Выгрузка в файл"
    Форма таблицы значений
        +Добавлена кнопка "Сузить типы"
    Редактор объекта БД
        +Добавлен флажок "Имя/Синоним" для переключения обозначения полей данных в форме
    Сравнение таблиц
        *Исправлена ошибка сравнения таблиц при наличии сопоставленной пары неключевых колонок с разными именами
2019-03-17 18:18:46 +03:00

65 lines
3.5 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.

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