RDT1C/CommonForms/ирАдаптацияРасширения/Ext/Form/Module.bsl
Администратор 57352d2776 4.67
Конструктор запроса
        +Реализована возможность удаление поля объединения
        *В расширенной проверке реализован обход ошибки платформы 8.3.12+, из-за которой не активизировалась страница с проблемным списком выражений
    Консоль кода
        *Устранено добавление имен недоступных на клиенте общих модулей в параметры при автозаполнении
        *В режиме редактора алгоритма при применении изменений теперь выполняется синтаксический контроль
        *Устранено изменение имени файла после выполнения команды "Объединить с файлом"
    Консоль компоновки
        +Добавлено сохранение таблиц внешних наборов данных вместе с отчетом
        +На странице "Наборы данных внешние" добавлена кнопка "Сбросить"
        *Исправлено не сохранение результатов редактирования элементов схемы компоновки непосредственно в форме инструмента (вычисляемые поля, параметры и т.д.)
        *Устранено изменение имени файла после выполнения команды "Объединить с файлом"
    Общее для варианта Расширение
        *Теперь при входе администратора ему добавляется роль ирРазработчик, если у всех пользователей отсутствует эта роль или включена настройка ДобавлятьРольИРВсемАдминистраторам
        *Настройка ДобавлятьРольИРВсемАдминистраторам теперь умолчанию равна Ложь
        *Исправлено сохранение настройки ДобавлятьРольИРВсемАдминистраторам для всех пользователей
    Подбор и обработка объектов
        *Обработка "изменить/добавить строку" переименована в "изменить реквизиты / добавить строку"
    Общее
        *Исправлена некорректная кодировка при выполнении команд системы на некоторых конфигурациях ОС
        +В портативном варианте реализована поддержка перенаправления на сервер операции удаления ссылочного объекта
        *Фраза "Административная регистрация COM компонент" глобально заменена на "Регистрация COM-компонент"
        *Исправлено некорректное вычисление цвета текста колонки "Функциональные опции"
        *Исправлено сохранение флажка "Привилегированный режим"
        *В команде "Открыть объект для отладки" исправлен ввод диагностического сообщения при вводе некорректной строки
    Контекстная подсказка
        *Устранены некоторые ограничения/ошибки при работе с включенным флажком "Объекты на сервере"
    Настройка журнала регистрации
        *При возникновении ошибки платформы в портативном варианте на 8.2  в клиент-серверной базе теперь выдается более понятная ошибка
    Редактор объекта БД
        +При выполнении команды "Изменить ячейки текущей колонки" теперь сразу устанавливается флажок "Только выделенные" если выделено больше одной строки
    Консоль запросов
        *Устранено изменение имени файла после выполнения команды "Объединить с файлом"
        *Исправлено растягивание нижних табличных полей на мониторах 1440p+
    Управление службами серверов 1С
        *Исправлена лишняя проверка уникальности некоторых колонок
    Структура хранения БД
        +Добавлена кнопка открытия конвертора текста БД
        +При нажатии кнопки "Очистка таблиц СУБД..." теперь помеченными по умолчанию будут выделенные в основной форме метаданные
4.68

    Адаптация расширения
        +Добавлен флажок "Сгенерировать роль ирВсеПрава"
        *Исправлено закрытие формы после вывода некоторых ошибок
    Отладка внешних обработок БСП
        +Реализована поддержка БСП 2.4 в варианте Расширение с использованием адаптации
    Форма выбора объекта метаданных
        +Объекты, на которые у текущего пользователя нет права Просмотр или выключенные функциональными опциями, теперь окрашиваются красным цветом текста
    Грамматика языка запросов
        +Добавлена поддержка функции АвтоНомерЗаписи()
        *Исправлена ошибка разбора "ПОМЕСТИТЬ Таблица"
    Контекстная подсказка
        *Исправлена свежая ошибка вычисления табличной части обработки или отчета
    Консоль компоновки
        *Исправлена свежая проблема не передачи таблиц-параметров при открытии инструмента
    Конструктор запроса
        *Исправлена некорректная сборка запроса WQL с автополями
        *Исправлено дублирование полей у частей объединений при наличии автополей
    Общее
        +При открытии параметров вывода строк теперь сразу устанавливается флажок "Только выделенные" если выделено больше одной строки
        *В окне "О подсистеме" сокращена длительность замирания при отсутствии доступа в интернет в некоторых случаях
        *В подключении к СУБД к собственной базе в режиме "На сервере" устранено подключение с клиента
        *Отменено свежее некорректное исправление кодировки командных файлов
    Статистистика по запросам MSSQL
        *Улучшено преобразование границ интервала времени 1С в SQL
        +По умолчанию элемент отбора "Ненулевой вввод/вывод" в варианте "Последние" теперь отключен
2018-10-15 07:10:05 +03:00

92 lines
6.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.

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