RDT1C/CommonModules/ирДополнительныеОтчетыИОбработкиБСП/Ext/Module.bsl
Администратор 75e9bfedae +Добавлен инструмент "Управление профайлами 1С"
Подбор и обработка объектов
        + Реализована доступность для выбора полей количества движений по регистрам
        +Добавлена поддержка доп. реквизитов и сведений БСП 2+ в обработке "Изменить/Добавить строку"
    Грамматика языка запросов
        *Исправлена ошибка разбора текста с REF в качестве имени поля
    Общее
        +В общих настройках добавлен флажок "Проверять подписки конфигурации при открытии первой формы" для ускорения на больших конфигурациях
        +Добавлена поддержка английского варианта встроенного языка
        *Проверка совместимости конфигурации при открытии первой формы теперь выполняется отложено
    Управление COM классами 1С
        +Теперь при двойном клике на имени файла он открывается в проводнике
    Адаптация расширения
        *Исправлена ошибка выполнения адаптации при наличии в конфигурации ссылочных таблиц внешних источников данных
        +Добавлен флажок "Подключить отладку отчетов БСП"
    Динамический список
        +Реализовано автоматическое обновление после завершения всех изменений данных в инструментах
        *Исправлена ошибка в обычной форме при выборе таблицы перечисления
    Интерфейсная панель
        *Исправлена ошибка открытия общих форм в варианте Расширение
    Анализ журнала регистрации
        +Добавлена кнопки снятия всех пометок в отборе
    Редактор объекта БД
        *Исправлена ошибка команды "Выгрузить в XML"
    Консоль запросов
        *Исправлена работа переход к закладке по F2 в поле текста запроса
        *Ускорено первое в сеансе открытие формы на больших конфигурациях
2019-03-11 22:02:41 +03:00

108 lines
7.9 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.

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