RDT1C/CommonForms/ирАдаптацияРасширения/Ext/Form/Module.bsl
Администратор da6f7da0ac Консоль запросов
+Улучшена поддержка временных таблиц внешних источников данных
        *Исправлена свежая ошибка обращения к цвету стиля при неполном выводе результата
    Редактор хранилищ настроек
        +Добавлено поле отбора по имени настройки
    Общее
        *Обновлено внутреннее описание платформы на 8.3.11
        *Хранение настроек переведено на хранилище общих настроек
    Форма выбора объекта метаданных
        +Добавлено подменю последних выбранных элементов
    Динамический список
        +Добавлено подменю последних выбранных элементов
    Поиск дублей и замена ссылок
        +Добавлена возможность вставки текста в поле "Тип объектов"
    Динамический список
        +Добавлена возможность вставки текста в поле "Таблица"
    Подбор и обработка объектов
        +Добавлена возможность вставки текста в поле "Область поиска"
    Редактор объекта БД
        +Добавлена возможность вставки текста в поле "Таблица"
        +Добавлена команда "Редактор строки" в командные панели набора записей, табличной части, движений документа
    Загрузка табличных данных
        Добавлен переключатель режима редактирования табличного документа
    Вывод строк табличного поля
        *Для колонок без ссылочных типов теперь не добавляется колонка с идентификатором
        *Оптимизирована работа флажков "Отображать пустые", "Добавлять колонки типов", "Добавлять колонки идентификаторов"
    Таблица значений
        +Добавлена команда "Редактор свойств строки"
2017-08-28 06:33:44 +03:00

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