Архивы сортировка

1С: Сортировка таблицы значений на управляемой форме

15.12.2025 Павел Грибов 1C

По умолчанию, не понятно почему на платформе не завезено средство сортировки таблицы значений отображаемой на форме. Поэтому выходом может быть например такое решение:

добавляем команды СортироватьПоКолонкеВозр и СортироватьПоКолонкеУбыв
добавляем их в контекстное меню
Код команды может быть такой:

&НаКлиенте
Процедура СортироватьПоКолонке(Команда)
      ТЭ_имя_объект=ТекущийЭлемент.Имя;
      ТЭ_поле=ТекущийЭлемент.ТекущийЭлемент.имя;
      имяКолонки=СтрЗаменить( ТЭ_поле,ТЭ_имя_объект,"");
      если команда.имя="СортироватьПоКолонкеУбыв" тогда
           СортироватьНасервере(ТЭ_имя_объект,имяКолонки,"Убыв");
	  конецесли;		   
      если команда.имя="СортироватьПоКолонкеВозр" тогда
          СортироватьНасервере(ТЭ_имя_объект,имяКолонки,"Возр");
	конецесли;
КонецПроцедуры

&НаСервере
Процедура сортироватьНасервере(имяОбъекта,имяКолонки,ВидСортировки)
    тз= РеквизитФормыВЗначение("БуферТЗ");
    тз.Сортировать(имяКолонки+" "+ВидСортировки);
    ЗначениеВРеквизитФормы(ТЗ,"БуферТЗ");
конецпроцедуры

&НаКлиенте

Процедура СортироватьПоКолонке(Команда)

ТЭ_имя_объект=ТекущийЭлемент.Имя;

ТЭ_поле=ТекущийЭлемент.ТекущийЭлемент.имя;

имяКолонки=СтрЗаменить( ТЭ_поле,ТЭ_имя_объект,"");

если команда.имя="СортироватьПоКолонкеУбыв" тогда

СортироватьНасервере(ТЭ_имя_объект,имяКолонки,"Убыв");

конецесли;

если команда.имя="СортироватьПоКолонкеВозр" тогда

СортироватьНасервере(ТЭ_имя_объект,имяКолонки,"Возр");

конецесли;

КонецПроцедуры

&НаСервере

Процедура сортироватьНасервере(имяОбъекта,имяКолонки,ВидСортировки)

тз= РеквизитФормыВЗначение("БуферТЗ");

тз.Сортировать(имяКолонки+" "+ВидСортировки);

ЗначениеВРеквизитФормы(ТЗ,"БуферТЗ");

конецпроцедуры

В результате получаем что-то подобное:

Оставить комментарий 1с, сортировка, таблица значений, управляемая форма

1С: Шпаргалка по работе с таблицей значений

22.04.2025 Павел Грибов 1C

Ниже приведены наиболее часто используемые применения. Рассматриваются наиболее часто встречающиеся операции.

Определение типа колонок:


// Ссылочные типы
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Сотрудник", Новый ОписаниеТипов("СправочникСсылка.Сотрудники"));  
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("СчетФактура", Новый ОписаниеТипов("ДокументСсылка.СчетФактураВыданный"));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ТипКонтактнойИнформации", Новый ОписаниеТипов("ПеречислениеСсылка.ТипыКонтактнойИнформации"));  
 
// Простые типы
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ДолжностьНаименование", Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(150))); 
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число",, Новый КвалификаторыЧисла(10,2)));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата",, Новый КвалификаторыДаты(ЧастиДаты.Дата)));
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ЕстьОповещение", Новый ОписаниеТипов("Булево"));   
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ИменаПолейСубконто", Новый ОписаниеТипов("Массив"));  

//Составное
МассивТипов = Новый Массив();
МассивТипов.Добавить(Тип("Булево"));
МассивТипов.Добавить(Тип("ПеречислениеСсылка.ВидыПродукцииИС"));	
ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("МаркировкаОстатков", Новый ОписаниеТипов(МассивТипов));

// Ссылочные типы

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Сотрудник", Новый ОписаниеТипов("СправочникСсылка.Сотрудники"));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("СчетФактура", Новый ОписаниеТипов("ДокументСсылка.СчетФактураВыданный"));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ТипКонтактнойИнформации", Новый ОписаниеТипов("ПеречислениеСсылка.ТипыКонтактнойИнформации"));

// Простые типы

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ДолжностьНаименование", Новый ОписаниеТипов("Строка",, Новый КвалификаторыСтроки(150)));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число",, Новый КвалификаторыЧисла(10,2)));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("Дата", Новый ОписаниеТипов("Дата",, Новый КвалификаторыДаты(ЧастиДаты.Дата)));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ЕстьОповещение", Новый ОписаниеТипов("Булево"));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("ИменаПолейСубконто", Новый ОписаниеТипов("Массив"));

//Составное

МассивТипов = Новый Массив();

МассивТипов.Добавить(Тип("Булево"));

МассивТипов.Добавить(Тип("ПеречислениеСсылка.ВидыПродукцииИС"));

ТЗ_ДанныеПоСотрудникам.Колонки.Добавить("МаркировкаОстатков", Новый ОписаниеТипов(МассивТипов));

Удаление строк:

// 1. Обходом строк
МассивКУдалению = Новый Массив;
Для Каждого ТекущаяСтрока Из ТЗ Цикл	
	Если ТекущаяСтрока.Удалить Тогда
		МассивКУдалению.Добавить(ТекущаяСтрока);
	КонецЕсли;	
КонецЦикла;
Для Каждого ТекущаяСтрока Из МассивКУдалению Цикл
	ТЗ.Удалить(ТекущаяСтрока);
КонецЦикла;
 
// 2. Найденные по отбору
НайденныеСтроки = ТЗ.НайтиСтроки(Новый Структура("Удалить", Истина));
Для Каждого ТекущаяСтрока Из НайденныеСтроки Цикл	
	ТЗ.Удалить(ТекущаяСтрока);	
КонецЦикла;
 
// 3. Выгрузка с отбором
НоваяТЗ = ТЗ.Скопировать(Новый Структура("Удалить", Ложь));

// 1. Обходом строк

МассивКУдалению = Новый Массив;

Для Каждого ТекущаяСтрока Из ТЗ Цикл

Если ТекущаяСтрока.Удалить Тогда

МассивКУдалению.Добавить(ТекущаяСтрока);

КонецЕсли;

КонецЦикла;

Для Каждого ТекущаяСтрока Из МассивКУдалению Цикл

ТЗ.Удалить(ТекущаяСтрока);

КонецЦикла;

// 2. Найденные по отбору

НайденныеСтроки = ТЗ.НайтиСтроки(Новый Структура("Удалить", Истина));

Для Каждого ТекущаяСтрока Из НайденныеСтроки Цикл

ТЗ.Удалить(ТекущаяСтрока);

КонецЦикла;

// 3. Выгрузка с отбором

НоваяТЗ = ТЗ.Скопировать(Новый Структура("Удалить", Ложь));

Сортировка:

ТЗДат.Сортировать("Дата Возр");

1	ТЗДат.Сортировать("Дата Возр");

Оставить комментарий 1с, сортировка, таблица значений, тип в колонке

1с: Еще раз о сортировке массива структур

20.01.2025 Павел Грибов 1C

Уже не однократно поднимал в своём блоге вопрос о методе сортировки массива структур по какому то ключу. В конце концов остановился на самом медленном, но зато самом менее трудоёмком методе. Для нескольких тысяч записей пойдет. Для нескольких десятков тысяч записей уже нет, ибо памяти не хватит. Общая методика такова:

Преобразуем массив структур в таблицу значений
Отсортируем штатными средствами таблицу значений по ключевому полю
Далее используем еже не массив структур, а именно таблицу значений, чтобы уменьшить накладные расходы на обратные преобразования

Функция ПреобразованиеМассивВТаблицуЗначений(Массив) экспорт
   ТЗ = Новый ТаблицаЗначений;
   Для Каждого СтрокаМассива Из Массив Цикл
       Если ТЗ.Колонки.Количество() = 0 Тогда
           Для Каждого ЭлементМассива Из СтрокаМассива Цикл
               ТЗ.Колонки.Добавить(ЭлементМассива.Ключ);
           КонецЦикла;
       КонецЕсли;

       НоваяСтрока = ТЗ.Добавить();
       Для Каждого ЭлементМассива Из СтрокаМассива Цикл
           НоваяСтрока[ЭлементМассива.Ключ] = ЭлементМассива.Значение;
       КонецЦикла;
   КонецЦикла;
   Возврат ТЗ;
КонецФункции

Функция ПреобразованиеМассивВТаблицуЗначений(Массив) экспорт

ТЗ = Новый ТаблицаЗначений;

Для Каждого СтрокаМассива Из Массив Цикл

Если ТЗ.Колонки.Количество() = 0 Тогда

Для Каждого ЭлементМассива Из СтрокаМассива Цикл

ТЗ.Колонки.Добавить(ЭлементМассива.Ключ);

КонецЦикла;

КонецЕсли;

НоваяСтрока = ТЗ.Добавить();

Для Каждого ЭлементМассива Из СтрокаМассива Цикл

НоваяСтрока[ЭлементМассива.Ключ] = ЭлементМассива.Значение;

КонецЦикла;

Возврат ТЗ;

КонецФункции

Использование:

ТЗ_ЛС=ПреобразованиеМассивВТаблицуЗначений(список_лс.result.responseObject);
ТЗ_ЛС.Сортировать("room Возр");
...
для каждого стр из ТЗ_ЛС цикл
....
конеццикла

ТЗ_ЛС=ПреобразованиеМассивВТаблицуЗначений(список_лс.result.responseObject);

ТЗ_ЛС.Сортировать("room Возр");

...

для каждого стр из ТЗ_ЛС цикл

....

конеццикла

Оставить комментарий 1с, массив структур, сортировка, таблица значений

1С сортировка структуры

08.02.2019 Павел Грибов 1C

Хотя в синтаксисе обьекта структуры в 1С нет функции сортировки, тем не менее иногда просто необходимо иметь остортированную структуру. Поможет следующая функция:

&НаСервере
Функция сортировкаструктуры(ОтчетСтруктура)
			//сортировка структуры
		ТЗ = Новый ТаблицаЗначений;
	    ТЗ.Колонки.Добавить("Ключ");
	    ТЗ.Колонки.Добавить("Значение");
	    Для каждого элемент из ОтчетСтруктура Цикл
	        новСтрока = ТЗ.Добавить();
	        новСтрока.Ключ = Элемент.Ключ;
	        новСтрока.Значение = Элемент.Значение;
	    КонецЦикла;
	    ТЗ.Сортировать("Значение Убыв");
	    ОтчетСтруктура.Очистить();
	    Для каждого строкаТЗ из ТЗ Цикл
	        ОтчетСтруктура.Вставить(строкаТЗ.Ключ,строкаТЗ.Значение);
	    КонецЦикла;		
		//

Возврат ОтчетСтруктура;
КонецФункции

&НаСервере

Функция сортировкаструктуры(ОтчетСтруктура)

//сортировка структуры

ТЗ = Новый ТаблицаЗначений;

ТЗ.Колонки.Добавить("Ключ");

ТЗ.Колонки.Добавить("Значение");

Для каждого элемент из ОтчетСтруктура Цикл

новСтрока = ТЗ.Добавить();

новСтрока.Ключ = Элемент.Ключ;

новСтрока.Значение = Элемент.Значение;

КонецЦикла;

ТЗ.Сортировать("Значение Убыв");

ОтчетСтруктура.Очистить();

Для каждого строкаТЗ из ТЗ Цикл

ОтчетСтруктура.Вставить(строкаТЗ.Ключ,строкаТЗ.Значение);

КонецЦикла;

Возврат ОтчетСтруктура;

КонецФункции

Оставить комментарий сортировка, структура

Mysql сортировка текстового поля как числа

17.05.2016 Павел Грибов MySQL

Задача: отсортировать некое текстовое поле, чтобы сортировка шла, как будто в нем находится число, а не текст.

Решение:

order by cast(address_flat.name as signed) asc

1	order by cast(address_flat.name as signed) asc

Функция CAST имеет следующий синтаксис:
CAST(expression AS type)
,где аргумент type представляет один из типов:

BINARY
CHAR (Новшество в 4.0.6)
DATE
DATETIME
SIGNED {INTEGER}
TIME
UNSIGNED {INTEGER}

Оставить комментарий mysql, сортировка, строка как число, текст как число

1 2 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30	31