RDT1C/CommonForms/ирАдаптацияРасширения/Ext/Form/Module.bsl
Администратор e8db471747 Общее
+В глобальных командах управляемых форм "Редактировать объект" и "Обработать объекты" реализована поддержка строк регистров
        *Исправлена свежая ошибка не найденной функции ИнфоСервераПриложений при попытке получения информации для технической поддержки в портативном варианте
        *Исправлены мелкие ошибки в управляемых формах в клиент-серверном варианте
    Редактор объекта БД
        В управляемой форме на закладке "Связанные данные"
            *Исправлено отображение пиктограмм таблиц БД
            +Реализована работа флажка "Только непустые"
            +Добавлена команда "Обновить количество"
        В управляемой форме
            +Реализовано открытие объектов из таблицы "Ссылки на объект" при двойном щелчке
            *Исправлена сортировка и отображение пиктограмм таблиц в списке движений
            *Исправлена ошибка при загрузке ссылочного объекта с реквизитом типа ХранилищеЗначения
            *Исправлена ошибка после включения флажка "Движения"
        +В таблице реквизитов добавлена колонка "Функциональные опции" с отображением их значений и окраской отключенных
    Адаптация расширения
        *Команды разделены на подключаемые и глобальные, для которых показаны сочетания клавиш
    Консоль запросов
        +Автосохранение файла восстановления теперь выполняется с замером длительности и сообщением в случае превышении 2-х секундного порога
    Консоль кода
        +Автосохранение файла восстановления теперь выполняется с замером длительности и сообщением в случае превышении 2-х секундного порога
    Редактор предопределенных
        +В таблице типов добавлена редактируемая колонка "Инициализация выполнена"
        +Кнопка "Инициализировать" теперь позволяет автоматически сбросить признак инициализированности у всех типов, у которых полностью отсутствуют предопределенные данные
    Конструктор запроса
        *В редакторе условия соединения исправлено автоматическое включение элемента отбора при изменении правого/левого поля активизацией строки
    Динамический список
        +Для регистров в подменю последних выбранных теперь показываются составные представления
        *Исправлена ошибка нажатия кнопки последнего выбранного для регистра
        *Исправлена ошибка в варианте Расширение в клиент-серверной базе при вызове редактора объекта для регистра
    Форма списка значений
        +Реализована возможность подбора без указания доступных типов для значений списка
2018-03-04 18:23:20 +03:00

89 lines
5.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.

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