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

67 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.

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