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

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

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

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

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

&НаСервере

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

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

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

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

КонецЦикла;

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

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

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

Пн	Вт	Ср	Чт	Пт	Сб	Вс
	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

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

Добавить комментарий Отменить ответ