added new func select in object model (#170)

* Доработаны методы доработки запроса через объектную модель
firstBitSportivnaya · Dec 23, 2024 · 31532ec · 31532ec
1 parent 581e23a
commit 31532ec
Show file tree

Hide file tree

Showing 6 changed files with 113 additions and 123 deletions.
diff --git a/src/cf/CommonModules/пбп_ИнтеграцииСервер/Ext/Module.bsl b/src/cf/CommonModules/пбп_ИнтеграцииСервер/Ext/Module.bsl
@@ -220,11 +220,7 @@
 		|ИЗ
 		|	ВнешнийИсточникДанных." + РеквизитыОбъекта.НастройкаИнтеграцииИмяОбъекта
 			+ ".Таблица." + РеквизитыОбъекта.ТочкаВхода + " КАК Таблица";
-
-		Если КоличествоПервых <> 0 Тогда
-			ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "ВЫБРАТЬ", "ВЫБРАТЬ ПЕРВЫЕ " + КоличествоПервых);
-		КонецЕсли;
-
+
 		Если Не ПустаяСтрока(ПоляЗапроса) Тогда
 			ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "&ПоляЗапроса", ПоляЗапроса);
 		Иначе
@@ -254,13 +250,15 @@
 
 			Запрос.УстановитьПараметр(КлючЗначениеОператор.НаименованиеПоля, КлючЗначениеОператор.Значение);
 		КонецЦикла;
-
+		
 		Если Не ПустаяСтрока(УсловияЗапроса) Тогда
-			ТекстЗапроса = ТекстЗапроса + "
-			|ГДЕ
-			|	" + УсловияЗапроса;
+			ТекстЗапроса = пбп_СхемыЗапросов.ДобавитьОтборВЗапрос(ТекстЗапроса, УсловияЗапроса);
 		КонецЕсли;
-
+
+		Если КоличествоПервых <> 0 Тогда
+			ТекстЗапроса = пбп_СхемыЗапросов.УстановитьКоличествоПолучаемыхЗаписей(ТекстЗапроса, КоличествоПервых);
+		КонецЕсли;
+
 		Запрос.Текст = ТекстЗапроса;
 
 		Если СтруктураИстории <> Неопределено Тогда

diff --git a/src/cf/CommonModules/пбп_ОбновлениеИнформационнойБазыПБП/Ext/Module.bsl b/src/cf/CommonModules/пбп_ОбновлениеИнформационнойБазыПБП/Ext/Module.bsl
@@ -74,7 +74,7 @@
 Процедура ПриДобавленииПодсистемы(Описание) Экспорт
 
 	Описание.Имя = "ПроектнаяБиблиотекаПодсистем";
-	Описание.Версия = "1.0.4.16";
+  Описание.Версия = "1.0.4.17";
 
 	// Требуется библиотека стандартных подсистем.
 	Описание.ТребуемыеПодсистемы.Добавить("СтандартныеПодсистемы");

diff --git a/src/cf/CommonModules/пбп_ПредопределенныеЗначенияСлужебный/Ext/Module.bsl b/src/cf/CommonModules/пбп_ПредопределенныеЗначенияСлужебный/Ext/Module.bsl
@@ -131,16 +131,13 @@
 		|ИТОГИ ПО
 		|	Ссылка ИЕРАРХИЯ";
 
+	Запрос.Текст = СтрШаблон(ТекстЗапроса, ПолноеИмяОбъекта);
+
 	Если пбп_ОбщегоНазначенияПовтИсп.ПолучитьЗначениеКонстанты("пбп_ИспользоватьПользовательскиеФункции") Тогда
-		ТекстЗапроса = СтрЗаменить(ТекстЗапроса, "ГДЕ
-		|	НЕ пбп_ПредопределенныеЗначения.ПометкаУдаления",
-		"ГДЕ
-		|	НЕ пбп_ПредопределенныеЗначения.ПометкаУдаления
-		|	И пбп_ПредопределенныеЗначения.ИдентификаторНастройки <> """"");
+		Запрос.Текст = пбп_СхемыЗапросов.ДобавитьОтборВЗапрос(Запрос.Текст,
+			"пбп_ПредопределенныеЗначения.ИдентификаторНастройки <> """"");
 	КонецЕсли;
 
-	Запрос.Текст = СтрШаблон(ТекстЗапроса, ПолноеИмяОбъекта);
-
 	Выборка = Запрос.Выполнить().Выбрать(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);
 
 	ПометитьНаУдалениеВсеВложения(Выборка, ТаблицаПредопределенных);