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

30.05.23

Разработка - Работа с интерфейсом

Для табличной части (таблица значений) управляемой формы добавляем в контекстное меню две команды: сортировать по убыванию и возрастанию и две процедуры. И получаем возможность сортировки по любой колонке. Пример "Номенклатура.артикул" , "Номенклатура.артикул.код" и т.д.

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

Для новой формы остаётся перенести команды сортировки, код подпрограмм и включаю команды в контекстное меню   табличной части формы.

И сортировка работает для любого поля.

 


 

Все реализовано достаточно просто, см.код.

// Сортировка

&НаКлиенте
Процедура сортировать(Команда)

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

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


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


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

     ЗначениеВРеквизитФормы(Эф,"Объект");
конецпроцедуры

// Сортировка

 

Сортировка Таблица значений.

См. также

Богатый редактор картинок, хранимых в базе, с возможностью РИСОВАНИЯ. Редактор внешних файлов картинок. Объект, расширяющий возможности работы с картинками из встроенного языка (Три в одном) + Обработка «Стандартизация картинок»

Работа с интерфейсом Рабочее место Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Обработка предназначена для редактирования картинок в режиме «Предприятие», с возможностью РИСОВАТЬ на них. Поддерживается работа как в обычных формах (толстый клиент) так и на управляемых формах (тонкий клиент). Обработка позволяет редактировать как картинки, хранимые в базе, так и графические файлы с диска на файловой системе. Помимо базовых функций (изменение размеров, преобразование формата, обрезание картинки, повороты и т.п.) – редактор имеет богатый набор инструментов для рисования. Доступна функция вставки изображения из буфера обмена. Также обработка может быть использована из встроенного языка как объект для редактирования картинок. Объект может быть использован: на стороне клиента, на стороне сервера, из внешнего соединения. Данная обработка будет особенно полезна тем, кто вносит картинки в базу (изображения номенклатуры, фотографии физических лиц и т.п.). Функционал реализуется с использованием JavaScript и бесплатного ПО ImageMagick (без использования внешних компонент).

6000 руб.

16.01.2015    60872    41    57    

78

Управление дашбордами

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Обработка предназначена для создания и управления дашбордами.

2400 руб.

29.06.2020    15787    19    4    

28

Конструктор HTML, CSS и javascript

Инструментарий разработчика Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Подходит для создания web-страниц для замены управляемых форм 1С, красивых отчетов, интерфейса мобильного приложения на платформе 1С и для простых страниц веб-сайтов.

2 стартмани

10.04.2023    8422    149    acces969    31    

112

Модель состояния для MVC

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

"MVC плохо применима в 1С" - познакомьтесь с моделью состояния и, возможно, ваше мнение поменяется! Представленное решение является эволюционным развитием идеи реализации MVC для 1С. В новой версии добавлены DSL для описания модели состояния, а также параметризация свойств параметров и элементов формы.

1 стартмани

05.07.2022    2704    kalyaka    2    

22

Табло очереди заказов на экран телевизора

WEB-интеграция Работа с интерфейсом Платформа 1С v8.3 1С:Розница 2 Платные (руб)

Связка из веб-приложения и расширения для 1С: Розница 2.3.

3600 руб.

29.04.2022    11310    1    5    

10

Условное оформление элементов форм в пользовательском режиме 1С (управление видимостью и доступностью элементов форм)

Работа с интерфейсом Платформа 1С v8.3 Платные (руб)

Подсистема условного оформления элементов форм (далее подсистема) предназначена для настройки оформления элементов форм (видимость, доступность, цвет фона, цвет текста и прочее) в пользовательском режиме 1С. Также подсистему возможно использовать для ограничения доступа к реквизитам формы для определенных пользователей (или групп пользователей).

6000 руб.

18.01.2022    8341    1    2    

6

Программный интерфейс для доработки форм

Работа с интерфейсом Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Реализовал простой способ программного создания новых элементов, команд и реквизитов на форме.

25.11.2021    8682    AtamanovYS    19    

135
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. ixijixi 1696 30.05.23 16:03 Сейчас в теме
У Вас опечатка, нужно Возр
Прикрепленные файлы:
2. sandr13 30 01.06.23 12:58 Сейчас в теме
Вообще-то для возрастания - "Возр" можно не указывать.
3. Niks27 29.06.23 04:25 Сейчас в теме
В УНФ сделал так:

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

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

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

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


Или вообще без кода:
в редакторе формы Команды - СтандартныеКоманды - Ищем нужную таблицу - Перетягиваем нужные стандартные команды в контекстное меню.
Прикрепленные файлы:
5. kembrik 9 04.10.23 13:55 Сейчас в теме
(4) Вариант отличный, но стандартные команды не будут работать если мы притащили в таблицу реквизиты "через точку", например дату и номер документа который рядом есть по ссылке
Оставьте свое сообщение