RDT1C/DataProcessors/ирНастройкаЖурналаРегистрации/Ext/ObjectModule.bsl
Администратор 1456e97cdc Интерфейсная панель
*Исправлена ошибка открытия форм отчетов через контекстное меню
        *Ускорена фильтрация по подсистемам
    Редактор объекта БД
        *Устранен избыточный вызов перезаполнения данных на закладке "Связанные колонки", если тип объекта не менялся
    Консоль запросов
        *Устранено в некоторых случаях ошибочное применение выборок итогов при выгрузке в дерево
        +Над деревом запросов добавлено поле строки поиска
        *Исправлено в дерево запроса некорректное определение имени создаваемой временной таблицы при наличии в выбранных полях запроса выражения "<Таблица>.*"
        +В контекстном меню дерева запроса добавлена команда "Выполнить запросы пакета (F9)"
        +При выполнении пакетного запроса теперь обновляется колонка "Количество строк" в дереве запроса
    Конструктор запроса
        *Звездочка в предложении ВЫБРАТЬ при сборке текста теперь не вставляется в объединениях
        *Исправлено разворачивание звездочки в некоторых случаях
        *Исправлено обнаружение параметров в логических выражениях
    Контекстная подсказка
        *Исправлена ошибка при вычислении свойств виртуальной таблицы с некорректными параметрами
    Консоль кода
        +Над деревом алгоритмов добавлено поле строки поиска
    Динамический список
        *Исправлена доступность сортировки по номеру стандартными средствами
    Функции режима отладки
        +В функции От() добавлен учет уничтожений временных таблиц при поиске использованных в запросе временных таблиц
2016-12-04 00:34:24 +03:00

109 lines
6.4 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.

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