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

129 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> <Тип.Вид> <описание параметра>
// <продолжение описания параметра>.
//
Процедура ВосстановитьСписокИнтерфейсов() Экспорт
лСписокИнтерфейсов = ирОбщий.ВосстановитьЗначениеЛкс("СписокИнтерфейсов");
Если лСписокИнтерфейсов <> Неопределено Тогда
СписокИнтерфейсов = лСписокИнтерфейсов;
КонецЕсли;
ОбновитьСписокИнтерфейсов();
КонецПроцедуры // ВосстановитьСписокИнтерфейсов()
// <Описание процедуры>
//
// Параметры:
// <Параметр1> <Тип.Вид> <описание параметра>
// <продолжение описания параметра>;
// <Параметр2> <Тип.Вид> <описание параметра>
// <продолжение описания параметра>.
//
Процедура СохранитьСписокИнтерфейсов() Экспорт
ирОбщий.СохранитьЗначениеЛкс("СписокИнтерфейсов", СписокИнтерфейсов);
КонецПроцедуры // СохранитьСписокИнтерфейсов()
Процедура ОбновитьСписокИнтерфейсов() Экспорт
МассивСтарых = Новый Массив;
Для Каждого ИнтерфейсСписка Из СписокИнтерфейсов Цикл
Если Метаданные.Интерфейсы.Найти(ИнтерфейсСписка.Значение) = Неопределено Тогда
МассивСтарых.Добавить(ИнтерфейсСписка);
КонецЕсли;
КонецЦикла;
Для Каждого СтарыйИнтерфейс Из МассивСтарых Цикл
СписокИнтерфейсов.Удалить(СтарыйИнтерфейс);
КонецЦикла;
Для каждого Интерфейс Из Метаданные.Интерфейсы Цикл
ЭлементСписка = СписокИнтерфейсов.НайтиПоЗначению(Интерфейс.Имя);
Если Не ПравоДоступа("Использование", Интерфейс) Тогда
Продолжить;
КонецЕсли;
Если ЭлементСписка = Неопределено Тогда
ЭлементСписка = СписокИнтерфейсов.Добавить(Интерфейс.Имя, Интерфейс.Синоним, ГлавныйИнтерфейс[Интерфейс.Имя].Видимость);
КонецЕсли;
Если ЭлементСписка <> Неопределено Тогда
Если Интерфейс.Переключаемый Тогда
ЭлементСписка.Представление = "Переключаемый - " + Интерфейс.Представление();
Иначе
ЭлементСписка.Представление = "Общий - " + Интерфейс.Представление();
КонецЕсли;
КонецЕсли;
ЭлементИнтерфейса = ГлавныйИнтерфейс.Найти(Интерфейс.Имя);
ЭлементСписка.Пометка = ЭлементИнтерфейса.Видимость;
КонецЦикла;
СписокИнтерфейсов.СортироватьПоПредставлению();
КонецПроцедуры
// <Описание процедуры>
//
// Параметры:
// <Параметр1> <Тип.Вид> <описание параметра>
// <продолжение описания параметра>;
// <Параметр2> <Тип.Вид> <описание параметра>
// <продолжение описания параметра>.
//
Процедура ДобавитьИнтерфейс(ИмяИнтерфейса) Экспорт
ЭлементИнтерфейса = СписокИнтерфейсов.НайтиПоЗначению(ИмяИнтерфейса);
Если ЭлементИнтерфейса <> Неопределено Тогда
ЭлементИнтерфейса.Пометка = Истина;
КонецЕсли;
КонецПроцедуры // ДобавитьИнтерфейс()
Процедура ВыполнитьПереключениеИнтерфейсов() Экспорт
СтрокаИменИнтерфейсов = "";
Для каждого СтрокаСписка Из СписокИнтерфейсов Цикл
Если СтрокаСписка.Пометка Тогда;
СтрокаИменИнтерфейсов = СтрокаИменИнтерфейсов + ?(СтрокаИменИнтерфейсов = "", "", ",") + СтрокаСписка.Значение;
КонецЕсли;
КонецЦикла;
ГлавныйИнтерфейс.ПереключитьИнтерфейс(СтрокаИменИнтерфейсов);
КонецПроцедуры
//ирПортативный лФайл = Новый Файл(ИспользуемоеИмяФайла);
//ирПортативный ПолноеИмяФайлаБазовогоМодуля = Лев(лФайл.Путь, СтрДлина(лФайл.Путь) - СтрДлина("Модули\")) + "ирПортативный.epf";
//ирПортативный #Если Клиент Тогда
//ирПортативный Контейнер = Новый Структура();
//ирПортативный Оповестить("ирПолучитьБазовуюФорму", Контейнер);
//ирПортативный Если Не Контейнер.Свойство("ирПортативный", ирПортативный) Тогда
//ирПортативный ирПортативный = ВнешниеОбработки.ПолучитьФорму(ПолноеИмяФайлаБазовогоМодуля);
//ирПортативный ирПортативный.Открыть();
//ирПортативный КонецЕсли;
//ирПортативный #Иначе
//ирПортативный ирПортативный = ВнешниеОбработки.Создать(ПолноеИмяФайлаБазовогоМодуля, Ложь); // Это будет второй экземпляр объекта
//ирПортативный #КонецЕсли
//ирПортативный ирОбщий = ирПортативный.ПолучитьОбщийМодульЛкс("ирОбщий");
//ирПортативный ирКэш = ирПортативный.ПолучитьОбщийМодульЛкс("ирКэш");
//ирПортативный ирСервер = ирПортативный.ПолучитьОбщийМодульЛкс("ирСервер");
//ирПортативный ирПривилегированный = ирПортативный.ПолучитьОбщийМодульЛкс("ирПривилегированный");
ВосстановитьСписокИнтерфейсов();
#КонецЕсли