Сортировка по нескольким колонкам в менеджере и коннекторах

nixel2007 · Aug 21, 2024 · 44522ed · 44522ed
1 parent 92c75f6
commit 44522ed
Show file tree

Hide file tree

Showing 15 changed files with 739 additions and 373 deletions.
diff --git a/lib.config b/lib.config
@@ -8,6 +8,7 @@
     <class name="МодельДанных" file="src/Классы/МодельДанных.os"/>
     <class name="ОбъектМодели" file="src/Классы/ОбъектМодели.os"/>
     <class name="ЭлементОтбора" file="src/Классы/ЭлементОтбора.os"/>
+    <class name="ЭлементПорядка" file="src/Классы/ЭлементПорядка.os"/>
     <class name="ХранилищеСущностей" file="src/Классы/ХранилищеСущностей.os"/>
     <class name="КоннекторInMemory" file="src/Классы/КоннекторInMemory.os"/>
     <module name="ТипыКолонок" file="src/Модули/ТипыКолонок.os"/>

diff --git a/src/internal/Модули/РаботаСКоннекторами.os b/src/internal/Модули/РаботаСКоннекторами.os
diff --git a/src/Классы/АбстрактныйКоннектор.os b/src/Классы/АбстрактныйКоннектор.os
@@ -91,7 +91,7 @@
 //   Массив - Массив, элементами которого являются "Соответствия". Ключом элемента соответствия является имя колонки,
 //     значением элемента соответствия - значение колонки.
 //
-Функция НайтиСтрокиВТаблице(ОбъектМодели, Отбор = Неопределено) Экспорт
+Функция НайтиСтрокиВТаблице(ОбъектМодели, Отбор = Неопределено, Сортировка = Неопределено) Экспорт
 
 	МассивЗначений = Новый Массив;
 	Возврат МассивЗначений;

diff --git a/src/Классы/АбстрактныйКоннекторSQL.os b/src/Классы/АбстрактныйКоннекторSQL.os
@@ -58,19 +58,8 @@
 		ОбъектМодели.ИмяТаблицы()
 	);
 
-	СтрокаУсловий = "";
-
-	Для сч = 0 По Отбор.ВГраница() Цикл
-		ЭлементОтбора = Отбор[сч];
-		ПредставлениеСчетчика = "п" + Формат(сч + 1, "ЧН=0; ЧГ=");
-		Если ЗначениеЗаполнено(СтрокаУсловий) Тогда
-			СтрокаУсловий = СтрокаУсловий + Символы.ПС + Символы.Таб + "AND ";
-		КонецЕсли;
-		СтрокаУсловий = СтрокаУсловий
-			+ СтрШаблон("%1 %2 @%3", ЭлементОтбора.ПутьКДанным, ЭлементОтбора.ВидСравнения, ПредставлениеСчетчика);
-		Запрос.УстановитьПараметр(ПредставлениеСчетчика, ЭлементОтбора.Значение);
-	КонецЦикла;
-
+	СтрокаУсловий = ПолучитьСтрокуУсловий(Запрос, Отбор);
+
 	Если ЗначениеЗаполнено(СтрокаУсловий) Тогда
 		ТекстЗапроса = ТекстЗапроса + Символы.ПС + "WHERE " + СтрокаУсловий;
 	КонецЕсли;
@@ -93,7 +82,7 @@
 //   Массив - Массив, элементами которого являются "Соответствия". Ключом элемента соответствия является имя колонки,
 //     значением элемента соответствия - значение колонки.
 //
-Функция НайтиСтрокиВТаблице(ОбъектМодели, Знач Отбор) Экспорт
+Функция НайтиСтрокиВТаблице(ОбъектМодели, Знач Отбор = Неопределено, Знач Сортировка = Неопределено) Экспорт
 
 	НайденныеСтроки = Новый Массив;
 	Колонки = ОбъектМодели.Колонки();
@@ -105,26 +94,17 @@
 		ОбъектМодели.ИмяТаблицы()
 	);
 
-	СтрокаУсловий = "";
-
-	Для сч = 0 По Отбор.ВГраница() Цикл
-		ЭлементОтбора = Отбор[сч];
-		ПредставлениеСчетчика = "п" + Формат(сч + 1, "ЧН=0; ЧГ=");
-		Если ЗначениеЗаполнено(СтрокаУсловий) Тогда
-			СтрокаУсловий = СтрокаУсловий + Символы.ПС + Символы.Таб + "AND ";
-		КонецЕсли;
-		СтрокаУсловий = СтрокаУсловий + СтрШаблон(
-			"%1 %2 @%3", 
-			ЭлементОтбора.ПутьКДанным, 
-			ЭлементОтбора.ВидСравнения, 
-			ПредставлениеСчетчика
-		);
-		Запрос.УстановитьПараметр(ПредставлениеСчетчика, ЭлементОтбора.Значение);
-	КонецЦикла;
+	СтрокаУсловий = ПолучитьСтрокуУсловий(Запрос, Отбор);
 
 	Если ЗначениеЗаполнено(СтрокаУсловий) Тогда
 		ТекстЗапроса = ТекстЗапроса + Символы.ПС + "WHERE " + СтрокаУсловий;
 	КонецЕсли;
+
+	СтрокаСортировки = ПолучитьСтрокуСортировки(Сортировка);
+
+	Если ЗначениеЗаполнено(СтрокаСортировки) Тогда
+		ТекстЗапроса = ТекстЗапроса + Символы.ПС + "ORDER BY " + СтрокаСортировки;
+	КонецЕсли;
 
 	Лог.Отладка("Поиск сущности в таблице %1:%2%3", ОбъектМодели.ИмяТаблицы(), Символы.ПС, ТекстЗапроса);
 
@@ -256,4 +236,60 @@
 
 	Запрос.ВыполнитьКоманду();
 
-КонецПроцедуры
+КонецПроцедуры
+
+Функция ПолучитьСтрокуУсловий(Запрос, Отбор) Экспорт
+
+	СтрокаУсловий = "";
+
+	Если Отбор = Неопределено Тогда
+		Возврат СтрокаУсловий;
+	КонецЕсли;
+
+	Для сч = 0 По Отбор.ВГраница() Цикл
+		ЭлементОтбора = Отбор[сч];
+		ПредставлениеСчетчика = "п" + Формат(сч + 1, "ЧН=0; ЧГ=");
+		Если ЗначениеЗаполнено(СтрокаУсловий) Тогда
+			СтрокаУсловий = СтрокаУсловий + Символы.ПС + Символы.Таб + "AND ";
+		КонецЕсли;
+		СтрокаУсловий = СтрокаУсловий + СтрШаблон(
+			"%1 %2 @%3", 
+			ЭлементОтбора.ПутьКДанным, 
+			ЭлементОтбора.ВидСравнения, 
+			ПредставлениеСчетчика
+		);
+		Запрос.УстановитьПараметр(ПредставлениеСчетчика, ЭлементОтбора.Значение);
+	КонецЦикла;
+
+	Возврат СтрокаУсловий;
+
+КонецФункции
+
+Функция ПолучитьСтрокуСортировки(Сортировка)
+
+	СтрокаСортировки = "";
+
+	Если Сортировка = Неопределено Тогда
+		Возврат СтрокаСортировки;
+	КонецЕсли;
+
+	Для сч = 0 По Сортировка.ВГраница() Цикл
+		ЭлементСортировки = Сортировка[сч];
+
+		Если ЗначениеЗаполнено(СтрокаСортировки) Тогда
+			СтрокаСортировки = СтрокаСортировки + ", " + Символы.ПС + Символы.Таб;
+		КонецЕсли;
+
+		ИмяКолонки = ЭлементСортировки.ПутьКДанным;
+		Направление = ?(ЭлементСортировки.НаправлениеСортировки = НаправлениеСортировки.Возр, "ASC", "DESC");
+
+		СтрокаСортировки = СтрокаСортировки + СтрШаблон(
+			"%1 %2", 
+			ИмяКолонки, 
+			Направление
+		);
+	КонецЦикла;
+
+	Возврат СтрокаСортировки;
+
+КонецФункции
diff --git a/src/Классы/КоннекторInMemory.os b/src/Классы/КоннекторInMemory.os
@@ -1,4 +1,5 @@
 #Использовать "../internal"
+#Использовать fluent
 
 // Для хранения статуса соединения
 Перем Открыт;
@@ -187,7 +188,7 @@
 //   Массив - Массив, элементами которого являются "Соответствия". Ключом элемента соответствия является имя колонки,
 //     значением элемента соответствия - значение колонки.
 //
-Функция НайтиСтрокиВТаблице(ОбъектМодели, Отбор = Неопределено) Экспорт
+Функция НайтиСтрокиВТаблице(ОбъектМодели, Отбор = Неопределено, Сортировка = Неопределено) Экспорт
 
 	ИмяТаблицы = ОбъектМодели.ИмяТаблицы();
 
@@ -201,24 +202,60 @@
 
 	Колонки = ОбъектМодели.Колонки();
 
-	Для Каждого ЭлементОтбора Из Отбор Цикл
+	Если Отбор <> Неопределено Тогда
+		Для Каждого ЭлементОтбора Из Отбор Цикл
 
-		НайденныеКолонки = Колонки.НайтиСтроки(Новый Структура("ИмяКолонки", ЭлементОтбора.ПутьКДанным));
+			НайденныеКолонки = Колонки.НайтиСтроки(Новый Структура("ИмяКолонки", ЭлементОтбора.ПутьКДанным));
 
-		Если НайденныеКолонки.Количество() = 0 Тогда
-			ИмяПоля = ЭлементОтбора.ПутьКДанным;
-		Иначе
-			ИмяПоля = НайденныеКолонки[0].ИмяПоля;
-		КонецЕсли;
+			Если НайденныеКолонки.Количество() = 0 Тогда
+				ИмяПоля = ЭлементОтбора.ПутьКДанным;
+			Иначе
+				ИмяПоля = НайденныеКолонки[0].ИмяПоля;
+			КонецЕсли;
 
-		СтрокаУсловие = СтрШаблон(
+			СтрокаУсловие = СтрШаблон(
 				"Элемент -> Элемент._Сущность.%1 %2 Значение",
-			ИмяПоля,
-			ЭлементОтбора.ВидСравнения
-		);
-		ДополнительныеПараметры = Новый Структура("Значение", ЭлементОтбора.Значение);
-		ПроцессорКоллекций = ПроцессорКоллекций.Фильтровать(СтрокаУсловие, ДополнительныеПараметры);
-	КонецЦикла;
+				ИмяПоля,
+				ЭлементОтбора.ВидСравнения
+			);
+			ДополнительныеПараметры = Новый Структура("Значение", ЭлементОтбора.Значение);
+			ПроцессорКоллекций = ПроцессорКоллекций.Фильтровать(СтрокаУсловие, ДополнительныеПараметры);
+		КонецЦикла;
+	КонецЕсли;
+
+	Если Сортировка <> Неопределено Тогда
+		СтрокаСортировка = "";
+		Для Каждого ЭлементПорядка Из Сортировка Цикл
+
+			НайденныеКолонки = Колонки.НайтиСтроки(Новый Структура("ИмяКолонки", ЭлементПорядка.ПутьКДанным));
+
+			Если НайденныеКолонки.Количество() = 0 Тогда
+				ИмяПоля = ЭлементПорядка.ПутьКДанным;
+			Иначе
+				ИмяПоля = НайденныеКолонки[0].ИмяПоля;
+			КонецЕсли;
+			ПорядокСортировки = ?(ЭлементПорядка.НаправлениеСортировки = НаправлениеСортировки.Возр, "ПрямойПорядок", "ОбратныйПорядок");
+
+			// формирование текста лямбды для сравнения элементов по нескольким полям
+			СтрокаСортировка = СтрокаСортировка + СтрШаблон(
+				"Сравнение = ПроцессорыКоллекцийСлужебный.СравнениеЗначений%1(Элемент1._Сущность.%2, Элемент2._Сущность.%2);
+				|Если Сравнение <> 0 Тогда
+				|	Возврат Сравнение;
+				|КонецЕсли;
+				|
+				|",
+				ПорядокСортировки,
+				ИмяПоля
+			);
+
+		КонецЦикла;
+
+		Если СтрокаСортировка <> "" Тогда
+			СтрокаСортировка = "(Элемент1, Элемент2) -> " + Символы.ПС + СтрокаСортировка + "Возврат Сравнение;";
+
+			ПроцессорКоллекций = ПроцессорКоллекций.Сортировать(СтрокаСортировка);
+		КонецЕсли;
+	КонецЕсли;
 
 	ДанныеТаблицы = ПроцессорКоллекций.ВМассив();
 

diff --git a/src/Классы/КоннекторJSON.os b/src/Классы/КоннекторJSON.os
@@ -184,7 +184,7 @@
 //   Массив - Массив, элементами которого являются "Соответствия". Ключом элемента соответствия является имя колонки,
 //     значением элемента соответствия - значение колонки.
 //
-Функция НайтиСтрокиВТаблице(ОбъектМодели, Знач Отбор) Экспорт
+Функция НайтиСтрокиВТаблице(ОбъектМодели, Знач Отбор = Неопределено, Сортировка = Неопределено) Экспорт
 
 	НайденныеСтроки = Новый Массив;
 
@@ -195,15 +195,52 @@
 
 	ПроцессорКоллекций = ПроцессорыКоллекций.ИзКоллекции(Таблица);
 
-	Для Каждого ЭлементОтбора Из Отбор Цикл
-		СтрокаУсловие = СтрШаблон(
+	Если Отбор <> Неопределено Тогда
+		Для Каждого ЭлементОтбора Из Отбор Цикл
+			СтрокаУсловие = СтрШаблон(
 				"Элемент -> Элемент.Значение.Получить(""%1"") %2 Значение",
-			ЭлементОтбора.ПутьКДанным,
-			ЭлементОтбора.ВидСравнения
-		);
-		ДополнительныеПараметры = Новый Структура("Значение", ЭлементОтбора.Значение);
-		ПроцессорКоллекций = ПроцессорКоллекций.Фильтровать(СтрокаУсловие, ДополнительныеПараметры);
-	КонецЦикла;
+				ЭлементОтбора.ПутьКДанным,
+				ЭлементОтбора.ВидСравнения
+			);
+			ДополнительныеПараметры = Новый Структура("Значение", ЭлементОтбора.Значение);
+			ПроцессорКоллекций = ПроцессорКоллекций.Фильтровать(СтрокаУсловие, ДополнительныеПараметры);
+		КонецЦикла;
+	КонецЕсли;
+
+	Если Сортировка <> Неопределено Тогда
+		Колонки = ОбъектМодели.Колонки();
+		СтрокаСортировка = "";
+		Для Каждого ЭлементПорядка Из Сортировка Цикл
+
+			НайденныеКолонки = Колонки.НайтиСтроки(Новый Структура("ИмяКолонки", ЭлементПорядка.ПутьКДанным));
+
+			Если НайденныеКолонки.Количество() = 0 Тогда
+				ИмяПоля = ЭлементПорядка.ПутьКДанным;
+			Иначе
+				ИмяПоля = НайденныеКолонки[0].ИмяПоля;
+			КонецЕсли;
+			ПорядокСортировки = ?(ЭлементПорядка.НаправлениеСортировки = НаправлениеСортировки.Возр, "ПрямойПорядок", "ОбратныйПорядок");
+
+			// формирование текста лямбды для сравнения элементов по нескольким полям
+			СтрокаСортировка = СтрокаСортировка + СтрШаблон(
+				"Сравнение = ПроцессорыКоллекцийСлужебный.СравнениеЗначений%1(Элемент1.Значение.Получить(""%2""), Элемент2.Значение.Получить(""%2""));
+				|Если Сравнение <> 0 Тогда
+				|	Возврат Сравнение;
+				|КонецЕсли;
+				|
+				|",
+				ПорядокСортировки,
+				ИмяПоля
+			);
+
+		КонецЦикла;
+
+		Если СтрокаСортировка <> "" Тогда
+			СтрокаСортировка = "(Элемент1, Элемент2) -> " + Символы.ПС + СтрокаСортировка + "Возврат Сравнение;";
+
+			ПроцессорКоллекций = ПроцессорКоллекций.Сортировать(СтрокаСортировка);
+		КонецЕсли;
+	КонецЕсли;
 
 	ДанныеТаблицы = ПроцессорКоллекций.ВМассив();
 

diff --git a/src/Классы/КоннекторPostgreSQL.os b/src/Классы/КоннекторPostgreSQL.os
@@ -238,9 +238,9 @@
 //   Массив - Массив, элементами которого являются "Соответствия". Ключом элемента соответствия является имя колонки,
 //     значением элемента соответствия - значение колонки.
 //
-Функция НайтиСтрокиВТаблице(ОбъектМодели, Знач Отбор) Экспорт
+Функция НайтиСтрокиВТаблице(ОбъектМодели, Знач Отбор = Неопределено, Знач Сортировка = Неопределено) Экспорт
 
-	Возврат КоннекторSQL.НайтиСтрокиВТаблице(ОбъектМодели, Отбор);
+	Возврат КоннекторSQL.НайтиСтрокиВТаблице(ОбъектМодели, Отбор, Сортировка);
 
 КонецФункции
 

diff --git a/src/Классы/КоннекторSQLite.os b/src/Классы/КоннекторSQLite.os
@@ -187,9 +187,9 @@
 //   Массив - Массив, элементами которого являются "Соответствия". Ключом элемента соответствия является имя колонки,
 //     значением элемента соответствия - значение колонки.
 //
-Функция НайтиСтрокиВТаблице(ОбъектМодели, Знач Отбор) Экспорт
+Функция НайтиСтрокиВТаблице(ОбъектМодели, Знач Отбор = Неопределено, Знач Сортировка = Неопределено) Экспорт
 
-	Возврат КоннекторSQL.НайтиСтрокиВТаблице(ОбъектМодели, Отбор);
+	Возврат КоннекторSQL.НайтиСтрокиВТаблице(ОбъектМодели, Отбор, Сортировка);
 
 КонецФункции