Сортировка в табличной части (таблица значений) формы управляемого приложения

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

&НаСервере
Процедура СортироватьНаСервере(имяОбъекта,имяКолонки,ВидСортировки)
 
	ТЗ_объекта = ЭтаФорма.Объект.Запасы;
	тз = ТЗ_объекта.Выгрузить();
	колонкасортировки = тз.Колонки.Найти(ИмяКолонки);
	Если Колонкасортировки <> Неопределено Тогда
		ТЗ_объекта.Сортировать(имяКолонки+" "+ВидСортировки);
	Иначе
		//запомним текущую строку
		Ткэлемент = элементы[имяОбъекта];
		Позиция_стр = Тз_объекта.НайтиПоИдентификатору(ткэлемент.ТекущаяСтрока);
		Идекс_позиции = Тз_объекта.индекс(позиция_стр);
		СтрокаВтаблице = тз.Получить(Идекс_позиции);
		
		ПД = имяКолонки;
		// получим основную и дополнительную колонку
		основннаяКолонка=лев(пд,найти(пд,"_")-1);
		допколонка=СтрЗаменить(пд,основннаяКолонка+"_","");
		тз.Колонки.Добавить( имяКолонки);
		//заполним поля для сортировки
		Для Каждого элементаТЗ из тз Цикл
			тзобъекта = элементаТз[основннаяКолонка] ;
			элементаТз[ИмяКолонки] = вычислить("тзобъекта." + допколонка);
		КонецЦикла;
		тз.Сортировать(имяКолонки + " " + ВидСортировки);
		индексТЗпослеСортировки = ТЗ.Индекс(строкаВтаблице);
		ТЗ_объекта.Загрузить(тз);
		//восстановим курсор на нужную строку
		позиция_стр = ТЗ_объекта.Получить( индексТЗпослеСортировки);
		ткэлемент.ТекущаяСтрока=позиция_стр.ПолучитьИдентификатор();
	КонецЕсли;  
	
КонецПроцедуры

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

&НаСервере
Процедура СортироватьНаСервере(КоллекцияИмя, КолонкаИмя, НаправлениеСортировки) 
	
	КоллекцияПутьКДанным = Элементы[КоллекцияИмя].ПутьКДанным;
	КолонкаПутьКДанным = СтрРазделить(Элементы[КолонкаИмя].ПутьКДанным, ".", Ложь)[1];
	
	ЭтотОбъект[КоллекцияПутьКДанным].Сортировать(КолонкаПутьКДанным + " " + НаправлениеСортировки);
	
КонецПроцедуры

&AtClient
Procedure SortBL(Command)
	  CurrRow = CurrentItem.CurrentRow;
      if Command.Name="SortDESC" then
          SortBLAtServer(CurrentItem.Name,CurrentItem.CurrentItem.Name,"DESC", CurrRow);
      else
          SortBLAtServer(CurrentItem.Name,CurrentItem.CurrentItem.Name,"ASC",  CurrRow);
      endif;
      CurrentItem.CurrentRow = CurrRow;
EndProcedure

&AtServer
Procedure SortBLAtServer(ItemName,ColumnName,val DirSorting, CurrRow)
	ItemForm = FormAttributeToValue("Object");
	TableObject = ItemForm[ItemName];
	VT = TableObject.Unload();
	ColumnSort = VT.Columns.Find(ColumnName);
	CurrRowID = VT[CurrRow];
	if ColumnSort<>Undefined then
		TableObject.Sort(ColumnName+" "+DirSorting);
	else
		AttibuteNameArray = StrSplit(Items[ItemName].ChildItems.Find(ColumnName).DataPath,".");
		AttibuteNameArray.Delete(0);
		AttibuteNameArray.Delete(0);
		MainValueName = AttibuteNameArray[0];
		ValuesArray = VT.UnloadColumn(MainValueName);
		AttibuteName = StrConcat(AttibuteNameArray,"_");
		AttibuteNameArray.Delete(0);
		VT.Columns.Add(AttibuteName);
		MapValues = ObjectsAttributeValues(ValuesArray, StrConcat(AttibuteNameArray,"."));
		AttibuteNameInMap = StrConcat(AttibuteNameArray,"");
		for each str in VT do
			str[AttibuteName] = MapValues[str[MainValueName]][AttibuteNameInMap];
		enddo;
		VT.Sort(AttibuteName+" "+DirSorting);
		TableObject.Load(VT);
	endif;
	CurrRow = VT.IndexOf(CurrRowID);
	ValueToFormAttribute(ItemForm,"Object");
EndProcedure

&AtServerNoContext
Function ObjectsAttributeValues(RefArray, AttributeNames) Export
	
	AttributeValues = New Map;
	If RefArray.Count() = 0 Then
		Return AttributeValues;
	EndIf;
	
	Query = New Query;
	Query.Text =
		"SEL ECT
		|	Ref AS Ref, " + AttributeNames + " FR OM " + RefArray[0].Metadata().FullName() + " AS Table
		| WHERE Table.Ref IN (&RefArray)";
	Query.SetParameter("RefArray", RefArray);
	
	Selection = Query.Execute().Select();
	While Selection.Next() Do
		Result = New Structure(StrReplace(AttributeNames,".",""));
		FillPropertyValues(Result, Selection);
		AttributeValues[Selection.Ref] = Result;
	EndDo;
	
	Return AttributeValues;
	
EndFunction