From e333e90590dd8e716e3425276e758c0061de0952 Mon Sep 17 00:00:00 2001 From: Denis Ushakov Date: Thu, 19 Dec 2024 12:56:56 +0300 Subject: [PATCH 1/3] added new func select in object model --- .../Ext/Module.bsl" | 2 +- .../Ext/Module.bsl" | 200 +++++++++--------- src/cf/Configuration.xml | 2 +- 3 files changed, 99 insertions(+), 105 deletions(-) diff --git "a/src/cf/CommonModules/\320\277\320\261\320\277_\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\237\320\221\320\237/Ext/Module.bsl" "b/src/cf/CommonModules/\320\277\320\261\320\277_\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\237\320\221\320\237/Ext/Module.bsl" index dcce0f3..84a0fc3 100644 --- "a/src/cf/CommonModules/\320\277\320\261\320\277_\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\237\320\221\320\237/Ext/Module.bsl" +++ "b/src/cf/CommonModules/\320\277\320\261\320\277_\320\236\320\261\320\275\320\276\320\262\320\273\320\265\320\275\320\270\320\265\320\230\320\275\321\204\320\276\321\200\320\274\320\260\321\206\320\270\320\276\320\275\320\275\320\276\320\271\320\221\320\260\320\267\321\213\320\237\320\221\320\237/Ext/Module.bsl" @@ -74,7 +74,7 @@ Процедура ПриДобавленииПодсистемы(Описание) Экспорт Описание.Имя = "ПроектнаяБиблиотекаПодсистем"; - Описание.Версия = "1.0.4.15"; + Описание.Версия = "1.0.4.17"; // Требуется библиотека стандартных подсистем. Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы"); diff --git "a/src/cf/CommonModules/\320\277\320\261\320\277_\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" "b/src/cf/CommonModules/\320\277\320\261\320\277_\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" index d6a3893..12c3e4e 100644 --- "a/src/cf/CommonModules/\320\277\320\261\320\277_\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" +++ "b/src/cf/CommonModules/\320\277\320\261\320\277_\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" @@ -60,14 +60,7 @@ // Функция ДобавитьПолеВыборкиВЗапрос(Знач Запрос, ВыражениеПоля, ПсевдонимПоля = "", Знач ИндексЗапросаВПакете = Неопределено, РасширениеЯзыкаЗапросовСКД = Ложь, ЗаменятьСуществующееПоле = Ложь) Экспорт - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - ТекстЗапроса = Запрос; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - ТекстЗапроса = Запрос.Текст; - Иначе - ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; - |en = 'Incorrect type of parameter 1'") ; - КонецЕсли; + ТекстЗапроса = ПолучитьТекстЗапроса(Запрос, 1); СхемаЗапроса = Новый СхемаЗапроса; @@ -126,11 +119,7 @@ // Удалим "мусор" схемы запроса УдалитьНенужныеПоля(НовыйТекстЗапроса); - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - Запрос = НовыйТекстЗапроса; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - Запрос.Текст = НовыйТекстЗапроса; - КонецЕсли; + УстановитьНовыйТекстЗапроса(Запрос, ТекстЗапроса); Возврат Запрос; @@ -154,14 +143,7 @@ // Функция ДобавитьПоляВыборкиВЗапрос(Знач Запрос, ВыраженияПолей, Знач ИндексЗапросаВПакете = Неопределено, РасширениеЯзыкаЗапросовСКД = Ложь, ЗаменятьСуществующееПоле = Ложь) Экспорт - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - ТекстЗапроса = Запрос; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - ТекстЗапроса = Запрос.Текст; - Иначе - ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; - |en = 'Incorrect type of parameter 1'") ; - КонецЕсли; + ТекстЗапроса = ПолучитьТекстЗапроса(Запрос, 1); СхемаЗапроса = Новый СхемаЗапроса; @@ -229,11 +211,7 @@ // Удалим "мусор" схемы запроса УдалитьНенужныеПоля(НовыйТекстЗапроса); - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - Запрос = НовыйТекстЗапроса; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - Запрос.Текст = НовыйТекстЗапроса; - КонецЕсли; + УстановитьНовыйТекстЗапроса(Запрос, ТекстЗапроса); Возврат Запрос; @@ -252,14 +230,7 @@ // Функция УстановитьКоличествоПолучаемыхЗаписей(Знач Запрос, Знач КоличествоПолучаемыхЗаписей, Знач ИндексЗапросаВПакете = Неопределено) Экспорт - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - ТекстЗапроса = Запрос; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - ТекстЗапроса = Запрос.Текст; - Иначе - ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; - |en = 'Incorrect type of parameter 1'") ; - КонецЕсли; + ТекстЗапроса = ПолучитьТекстЗапроса(Запрос, 1); СхемаЗапроса = Новый СхемаЗапроса; @@ -278,11 +249,7 @@ ТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - Запрос = ТекстЗапроса; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - Запрос.Текст = ТекстЗапроса; - КонецЕсли; + УстановитьНовыйТекстЗапроса(Запрос, ТекстЗапроса); Возврат Запрос; @@ -302,14 +269,7 @@ // Функция УстановитьВыборкуРазрешенныхЗаписей(Знач Запрос, Знач ВыбиратьРазрешенные, Знач ИндексЗапросаВПакете = Неопределено) Экспорт - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - ТекстЗапроса = Запрос; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - ТекстЗапроса = Запрос.Текст; - Иначе - ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; - |en = 'Incorrect type of parameter 1'") ; - КонецЕсли; + ТекстЗапроса = ПолучитьТекстЗапроса(Запрос, 1); СхемаЗапроса = Новый СхемаЗапроса; @@ -326,11 +286,7 @@ ТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - Запрос = ТекстЗапроса; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - Запрос.Текст = ТекстЗапроса; - КонецЕсли; + УстановитьНовыйТекстЗапроса(Запрос, ТекстЗапроса); Возврат Запрос; @@ -338,14 +294,7 @@ Функция УстановитьВыборкуРазрешенныхЗаписейВоВсемЗапросе(Знач Запрос, Знач ВыбиратьРазрешенные) Экспорт - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - ТекстЗапроса = Запрос; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - ТекстЗапроса = Запрос.Текст; - Иначе - ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; - |en = 'Incorrect type of parameter 1'") ; - КонецЕсли; + ТекстЗапроса = ПолучитьТекстЗапроса(Запрос, 1); СхемаЗапроса = Новый СхемаЗапроса; @@ -365,11 +314,7 @@ ТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - Запрос = ТекстЗапроса; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - Запрос.Текст = ТекстЗапроса; - КонецЕсли; + УстановитьНовыйТекстЗапроса(Запрос, ТекстЗапроса); Возврат Запрос; @@ -387,14 +332,7 @@ // Функция ДобавитьУсловиеВЗапрос(Знач Запрос, ВыражениеУсловия, Знач ИндексЗапросаВПакете = Неопределено) Экспорт - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - ТекстЗапроса = Запрос; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - ТекстЗапроса = Запрос.Текст; - Иначе - ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; - |en = 'Incorrect type of parameter 1'") ; - КонецЕсли; + ТекстЗапроса = ПолучитьТекстЗапроса(Запрос, 1); Если Не ТипЗнч(ВыражениеУсловия) = Тип("Строка") Тогда ТекстЗапроса = Запрос; @@ -464,12 +402,65 @@ ТекстЗапроса = СтрЗаменить(ТекстЗапроса, " КАК Поле" + НомерПоля, ""); КонецЦикла; - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - Запрос = ТекстЗапроса; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - Запрос.Текст = ТекстЗапроса; + УстановитьНовыйТекстЗапроса(Запрос, ТекстЗапроса); + + Возврат Запрос; + +КонецФункции + +// Добавляет выражение отбора в секцию ГДЕ +// +// Параметры: +// Запрос - Строка, Запрос - текст запроса или запрос. +// ВыражениеУсловия - Строка - выражение условия для секции ГДЕ. +// ИндексЗапросаВПакете - Число - индекс запроса в пакете запросов. Если не задано, то последний запрос в пакете. +// +// Возвращаемое значение: +// Строка, Запрос - измененный текст запроса или запрос. +// +Функция ДобавитьОтборВЗапрос(Знач Запрос, ВыражениеУсловия, ИндексЗапросаВПакете = Неопределено, ИндексВОператорах = Неопределено) Экспорт + + ТекстЗапроса = ПолучитьТекстЗапроса(Запрос, 1); + + Если Не ТипЗнч(ВыражениеУсловия) = Тип("Строка") Тогда + ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 2'; + |en = 'Incorrect type of parameter 2'") ; + КонецЕсли; + + СхемаЗапроса = Новый СхемаЗапроса; + + СхемаЗапроса.УстановитьТекстЗапроса(ТекстЗапроса); + + ИзменяемыйЗапрос = ЗапросПакетаЗапросов(СхемаЗапроса, ИндексЗапросаВПакете); + + Если ТипЗнч(ИзменяемыйЗапрос) = Тип("ЗапросУничтоженияТаблицыСхемыЗапроса") Тогда + ВызватьИсключение НСтр("ru = 'Невозможно добавить параметр в запрос уничтожения таблицы.'; + |en = 'Cannot add parameter to the table removal query.'"); КонецЕсли; + Если ИндексВОператорах <> Неопределено Тогда + Если ИндексВОператорах > ИзменяемыйЗапрос.Операторы.Количество() Тогда + ВызватьИсключение НСтр("ru = 'Некорректный индекс операторов'; + |en = 'Incorrect operator index'"); + КонецЕсли; + + ИзменяемыйЗапрос.Операторы[ИндексВОператорах].Отбор.Добавить(ВыражениеУсловия); + Иначе + // Подстановка выражения во все операторы + Для Каждого ОператорЗапроса Из ИзменяемыйЗапрос.Операторы Цикл + ОператорЗапроса.Отбор.Добавить(ВыражениеУсловия); + КонецЦикла; + КонецЕсли; + + ТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); + + // Удалим "мусор" схемы запроса + Для НомерПоля = 1 По 9 Цикл + ТекстЗапроса = СтрЗаменить(ТекстЗапроса, " КАК Поле" + НомерПоля, ""); + КонецЦикла; + + УстановитьНовыйТекстЗапроса(Запрос, ТекстЗапроса); + Возврат Запрос; КонецФункции @@ -489,14 +480,7 @@ Функция ДобавитьСоединениеВЗапрос(Знач Запрос, ПсевдонимИсточника, ОписаниеСоединения, Знач ИндексЗапросаВПакете = Неопределено, ЗаменятьСуществующееСоединение = Ложь) Экспорт - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - ТекстЗапроса = Запрос; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - ТекстЗапроса = Запрос.Текст; - Иначе - ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; - |en = 'Incorrect type of parameter 1'"); - КонецЕсли; + ТекстЗапроса = ПолучитьТекстЗапроса(Запрос, 1); СхемаЗапроса = Новый СхемаЗапроса; @@ -624,11 +608,7 @@ НовыйТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - Запрос = НовыйТекстЗапроса; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - Запрос.Текст = НовыйТекстЗапроса; - КонецЕсли; + УстановитьНовыйТекстЗапроса(Запрос, НовыйТекстЗапроса); Возврат Запрос; @@ -646,14 +626,7 @@ // Функция УдалитьПоляИзЗапроса(Знач Запрос, ПсевдонимыПолей, Знач ИндексЗапросаВПакете = Неопределено) Экспорт - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - ТекстЗапроса = Запрос; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - ТекстЗапроса = Запрос.Текст; - Иначе - ВызватьИсключение НСтр("ru = 'Некорректный тип параметра 1'; - |en = 'Incorrect type of parameter 1'") ; - КонецЕсли; + ТекстЗапроса = ПолучитьТекстЗапроса(Запрос, 1); СхемаЗапроса = Новый СхемаЗапроса; @@ -693,11 +666,7 @@ НовыйТекстЗапроса = СхемаЗапроса.ПолучитьТекстЗапроса(); - Если ТипЗнч(Запрос) = Тип("Строка") Тогда - Запрос = НовыйТекстЗапроса; - ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда - Запрос.Текст = НовыйТекстЗапроса; - КонецЕсли; + УстановитьНовыйТекстЗапроса(Запрос, НовыйТекстЗапроса); Возврат Запрос; @@ -790,4 +759,29 @@ КонецПроцедуры +Функция ПолучитьТекстЗапроса(Знач Запрос, НомерПараметра) + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + ТекстЗапроса = Запрос; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + ТекстЗапроса = Запрос.Текст; + Иначе + ВызватьИсключение СтрШаблон(НСтр("ru = 'Некорректный тип параметра %1'; + |en = 'Incorrect type of parameter %1'"), НомерПараметра) ; + КонецЕсли; + + Возврат ТекстЗапроса; + +КонецФункции + +Процедура УстановитьНовыйТекстЗапроса(Запрос, НовыйТекстЗапроса) + + Если ТипЗнч(Запрос) = Тип("Строка") Тогда + Запрос = НовыйТекстЗапроса; + ИначеЕсли ТипЗнч(Запрос) = Тип("Запрос") Тогда + Запрос.Текст = НовыйТекстЗапроса; + КонецЕсли; + +КонецПроцедуры + #КонецОбласти diff --git a/src/cf/Configuration.xml b/src/cf/Configuration.xml index 5423bdf..9023350 100644 --- a/src/cf/Configuration.xml +++ b/src/cf/Configuration.xml @@ -57,7 +57,7 @@ Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок Первый БИТ - 1.0.4.15 + 1.0.4.17 false false From d4f6a19cf1565ac215603c025ce29a1992333191 Mon Sep 17 00:00:00 2001 From: Denis Ushakov Date: Thu, 19 Dec 2024 13:12:03 +0300 Subject: [PATCH 2/3] --- .../Ext/Module.bsl" | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git "a/src/cf/CommonModules/\320\277\320\261\320\277_\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" "b/src/cf/CommonModules/\320\277\320\261\320\277_\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" index 12c3e4e..c11f334 100644 --- "a/src/cf/CommonModules/\320\277\320\261\320\277_\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" +++ "b/src/cf/CommonModules/\320\277\320\261\320\277_\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" @@ -411,10 +411,11 @@ // Добавляет выражение отбора в секцию ГДЕ // // Параметры: -// Запрос - Строка, Запрос - текст запроса или запрос. -// ВыражениеУсловия - Строка - выражение условия для секции ГДЕ. -// ИндексЗапросаВПакете - Число - индекс запроса в пакете запросов. Если не задано, то последний запрос в пакете. -// +// Запрос - Строка, Запрос - текст запроса или запрос. +// ВыражениеУсловия - Строка - выражение условия для секции ГДЕ. +// ИндексЗапросаВПакете - Число - индекс запроса в пакете запросов. Если не задано, то последний запрос в пакете. +// ИндексВОператорах - Число - индекс оператора в пакете запросов. Если не задано, то отбор накладывается на все. +// // Возвращаемое значение: // Строка, Запрос - измененный текст запроса или запрос. // From b2bb88895f707656c3cd1f0bbff6112f813ca87f Mon Sep 17 00:00:00 2001 From: Denis Ushakov Date: Mon, 23 Dec 2024 11:12:14 +0300 Subject: [PATCH 3/3] refact some strings with new func --- .../Ext/Module.bsl" | 18 ++++++++---------- .../Ext/Module.bsl" | 11 ++++------- .../Ext/Module.bsl" | 2 +- .../Ext/Module.bsl" | 2 +- 4 files changed, 14 insertions(+), 19 deletions(-) diff --git "a/src/cf/CommonModules/\320\277\320\261\320\277_\320\230\320\275\321\202\320\265\320\263\321\200\320\260\321\206\320\270\320\270\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" "b/src/cf/CommonModules/\320\277\320\261\320\277_\320\230\320\275\321\202\320\265\320\263\321\200\320\260\321\206\320\270\320\270\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" index f2564de..766bea6 100644 --- "a/src/cf/CommonModules/\320\277\320\261\320\277_\320\230\320\275\321\202\320\265\320\263\321\200\320\260\321\206\320\270\320\270\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" +++ "b/src/cf/CommonModules/\320\277\320\261\320\277_\320\230\320\275\321\202\320\265\320\263\321\200\320\260\321\206\320\270\320\270\320\241\320\265\321\200\320\262\320\265\321\200/Ext/Module.bsl" @@ -220,11 +220,7 @@ |ИЗ | ВнешнийИсточникДанных." + РеквизитыОбъекта.НастройкаИнтеграцииИмяОбъекта + ".Таблица." + РеквизитыОбъекта.ТочкаВхода + " КАК Таблица"; - - Если КоличествоПервых <> 0 Тогда - ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "ВЫБРАТЬ", "ВЫБРАТЬ ПЕРВЫЕ " + КоличествоПервых); - КонецЕсли; - + Если Не ПустаяСтрока(ПоляЗапроса) Тогда ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ПоляЗапроса", ПоляЗапроса); Иначе @@ -254,13 +250,15 @@ Запрос.УстановитьПараметр(КлючЗначениеОператор.НаименованиеПоля, КлючЗначениеОператор.Значение); КонецЦикла; - + Если Не ПустаяСтрока(УсловияЗапроса) Тогда - ТекстЗапроса = ТекстЗапроса + " - |ГДЕ - | " + УсловияЗапроса; + ТекстЗапроса = пбп_СхемыЗапросов.ДобавитьОтборВЗапрос(ТекстЗапроса, УсловияЗапроса); КонецЕсли; - + + Если КоличествоПервых <> 0 Тогда + ТекстЗапроса = пбп_СхемыЗапросов.УстановитьКоличествоПолучаемыхЗаписей(ТекстЗапроса, КоличествоПервых); + КонецЕсли; + Запрос.Текст = ТекстЗапроса; Если СтруктураИстории <> Неопределено Тогда diff --git "a/src/cf/CommonModules/\320\277\320\261\320\277_\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\241\320\273\321\203\320\266\320\265\320\261\320\275\321\213\320\271/Ext/Module.bsl" "b/src/cf/CommonModules/\320\277\320\261\320\277_\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\241\320\273\321\203\320\266\320\265\320\261\320\275\321\213\320\271/Ext/Module.bsl" index 9aa4898..7e9d978 100644 --- "a/src/cf/CommonModules/\320\277\320\261\320\277_\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\241\320\273\321\203\320\266\320\265\320\261\320\275\321\213\320\271/Ext/Module.bsl" +++ "b/src/cf/CommonModules/\320\277\320\261\320\277_\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217\320\241\320\273\321\203\320\266\320\265\320\261\320\275\321\213\320\271/Ext/Module.bsl" @@ -131,16 +131,13 @@ |ИТОГИ ПО | Ссылка ИЕРАРХИЯ"; + Запрос.Текст = СтрШаблон(ТекстЗапроса, ПолноеИмяОбъекта); + Если пбп_ОбщегоНазначенияПовтИсп.ПолучитьЗначениеКонстанты("пбп_ИспользоватьПользовательскиеФункции") Тогда - ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "ГДЕ - | НЕ пбп_ПредопределенныеЗначения.ПометкаУдаления", - "ГДЕ - | НЕ пбп_ПредопределенныеЗначения.ПометкаУдаления - | И пбп_ПредопределенныеЗначения.ИдентификаторНастройки <> """""); + Запрос.Текст = пбп_СхемыЗапросов.ДобавитьОтборВЗапрос(Запрос.Текст, + "пбп_ПредопределенныеЗначения.ИдентификаторНастройки <> """""); КонецЕсли; - Запрос.Текст = СтрШаблон(ТекстЗапроса, ПолноеИмяОбъекта); - Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией); ПометитьНаУдалениеВсеВложения(Выборка, ТаблицаПредопределенных); diff --git "a/src/cf/CommonModules/\320\277\320\261\320\277_\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" "b/src/cf/CommonModules/\320\277\320\261\320\277_\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" index c11f334..dc81393 100644 --- "a/src/cf/CommonModules/\320\277\320\261\320\277_\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" +++ "b/src/cf/CommonModules/\320\277\320\261\320\277_\320\241\321\205\320\265\320\274\321\213\320\227\320\260\320\277\321\200\320\276\321\201\320\276\320\262/Ext/Module.bsl" @@ -119,7 +119,7 @@ // Удалим "мусор" схемы запроса УдалитьНенужныеПоля(НовыйТекстЗапроса); - УстановитьНовыйТекстЗапроса(Запрос, ТекстЗапроса); + УстановитьНовыйТекстЗапроса(Запрос, НовыйТекстЗапроса); Возврат Запрос; diff --git "a/src/cfe/YAXUnit/CommonModules/\320\277\320\261\320\277_\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217/Ext/Module.bsl" "b/src/cfe/YAXUnit/CommonModules/\320\277\320\261\320\277_\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217/Ext/Module.bsl" index c157b77..69238cf 100644 --- "a/src/cfe/YAXUnit/CommonModules/\320\277\320\261\320\277_\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217/Ext/Module.bsl" +++ "b/src/cfe/YAXUnit/CommonModules/\320\277\320\261\320\277_\320\237\321\200\320\265\320\264\320\276\320\277\321\200\320\265\320\264\320\265\320\273\320\265\320\275\320\275\321\213\320\265\320\227\320\275\320\260\321\207\320\265\320\275\320\270\321\217/Ext/Module.bsl" @@ -11,7 +11,7 @@ ПрерватьВыполнение); Если НЕ ПрерватьВыполнение Тогда - Возврат ПродолжитьВызов(); + Возврат ПродолжитьВызов(МенеджерОбъекта); Иначе Возврат Результат; КонецЕсли;