RDT1C/CommonForms/ирАдаптацияРасширения/Ext/Form/Module.bsl
Администратор b5dc828054 Общее
+При нажатии на кнопку "Трасса" в различных инструментах теперь при не найденных маркерах выдается рекомендация включить необходимое событие в настройке техножурнала
        +В представление значения типа Файл добавлено его полное имя
    Конструктор запроса
        +При отключении флажка Автогруппировки теперь  заполняются группировки
        *Исправлены вставки лишних пустых строк после условий соединения таблиц
        +При переключении флажка "Иерарх. логика" на закладках с текстом запроса теперь сразу обновляется текст
    Консоль запросов
        *В дереве запроса исправлена обрезка многострочной конечной секция построителя
        *Исправлена свежая ошибка чтения измененных в конструкторе запроса ИР параметров для не 1С запросов
        +В групповом выполнении запросов теперь не загружаются данные создаваемых временных таблиц
        +В контекстных меню дерева запросов и дерева запроса добавлены кнопки открытия структуры командой панели
        +В строке состояния при выполнении запроса теперь показывается еще и представление выполняемого запроса
    Подбор и обработка объектов
        *Исправлена работа флажка "Все поля"
    Анализ техножурнала
        *Исправлена недопустная гиперссылка на описание инструмента в окне "О подсистеме"
        +В форме события добавлена команда "Найти в таблице журнала"
        *В форме управляемой блокировки исправлено отображение некоторых типов блокировок
        *В форме управляемой блокировки улучшен анализ конфликтных транзакций и блокировок
    Настройка техножурнала
        +В таблице отбора добавлена колонка "Значение внутр."
        +Добавлена возможность вводить произвольные строки в значениях отбора
    Консоль кода
        *Исправлена очистка параметров выхода при включенном флажке "Не сохранять параметры выхода" при сохранении данных алгоритма в строке дерева
        +Добавлена команда "Вычислить выражение" SHIFT+F9 использующая текущее выражение в алгоритме
    Исследователь объектов
        *Исправлено вычисление объектов метаданных в некоторых ситуациях
        *Отключено вычисление глобального контекста при независимом открытии формы
    Расширение
        +Добавлена форма "Адаптация расширения" позволяющая подключить/отключить параметризованные команды расширения ко всем типам конфигурации
    Консоль компоновки
        *В очередной раз исправлены привязки в настройках компоновки
        +При открытии настройки компоновки для отладки реализовано преобразование в отборе массивов в списки значений
2017-07-02 23:29:53 +03:00

77 lines
4.4 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.

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