RDT1C/DataProcessors/ирРедакторОбъектаБД/Ext/ObjectModule.bsl
Администратор 620ce4d601 // Версия 84
Конструктор запросов
        *Исправлена некорректная установка типа группы отбора кнопкой "Группа-Или" в условии связи таблиц
    Общее
        *Исправлена свежая некритичная ошибка при первом в истории запуске варианта Расширение в базе
        *Исправлена работа флажка "пропускать пустые" в форме разбора текста
        *Исправлен ввод ссылки документа по представлению с крайними непечатными символами
        *Флажок "Запись на сервере" во всех инструментах переименован в "Объекты на сервере"
        *Отключен вывод ряда диагностических сообщений пользователю в режиме управляемого приложения при открытии первой в сеансе формы инструментов
    Исследователь объектов
        +Включен множественный режим выделения строк в форме исследователя коллекций
    Консоль запросов
        *Исправлена проблема в некоторых случаях не выполнения сохранения файла после открытия файла восстановления
    Редактор объекта БД
        *Оптимизировано чтение движений документа
        *В управляемой форме исправлена ошибка записи движений документа
        *Исправлено обновление заголовка страницы "Движения" в управляемой форме при включении флажка "Вместе с движениями"
        +В таблице ссылающихся объектов реализовано более подробное представление ключей записей независимых регистров без обращения к БД
    Поиск дублей и замена ссылок
        *Оптимизировано чтение движений документов
        *Исправлена ошибка выполнения замены в независимых регистрах в некоторых конфигурациях
    Загрузка табличных данных
        +Реализована поддержка режима "Объекты на сервере"
    Редактор изменений на узле
        +Реализована поддержка режима "Объекты на сервере"
    Удаление объектов с контролем ссылок
        +В таблице ссылающихся объектов реализовано более подробное представление ключей записей независимых регистров без обращения к БД
        +По двойному щелчку на строке ссылающейся строки независимого регистра теперь открывается эта строка
        *Исправлена проблема не нахождения ссылающихся констант в некоторых случаях
    Управление COM классами 1С
        +Добавлены кнопка проверки создания COM объектов и колонка с результатом проверки
    Подбор и обработка объектов
        *Устранена ошибочная доступность кнопок "Сохранить/Загрузить алгоритм" в варианте Расширение
2018-04-01 23:43:34 +03:00

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

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