Сортировка дерева характеристик

В одной из конфигураций на базе Розница 2.3 встретил дерево, куда в каждой строчке выводился товар и его характеристика:

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

&НаСервере
&После("ОбновитьДеревоИнформации")
Процедура дор_ОбновитьДеревоИнформации(ПолучатьЦены, ТекущаяСтрока)
	ДЗ = РеквизитФормыВЗначение("ДеревоИнформации");
	Для Каждого СтрокаМагазина ИЗ ДЗ.Строки Цикл
		Для Каждого СтрокаСклада ИЗ СтрокаМагазина.Строки Цикл
			СтрокаСклада.Строки.Сортировать("МагазинСклад");
		КонецЦикла;
	КонецЦикла;
	ЗначениеВРеквизитФормы(ДЗ, "ДеревоИнформации");
КонецПроцедуры

Теперь список был отсортирован минимальными затратами кода. И код будет легок в сопровождении при изменениях основного кода.

Объем: 0.5 час. Среда: Розница 2.3 отраслевая.