Сортировка строк формы, с сохранением второго порядка

23.04.12

Разработка - Механизмы платформы 1С

Более удобная чем стандартная сортировка строк табличной части формы обычного приложения 8.х

Идея очень простая: пользователю удобно что если таблицу обработки отсортировать по галочке, сортировка по Номенлатуре / контрагенту внутри одниаковых галочек осталось прежней.

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

Еще одно достоинство преопределения кнопки сортировать можно делать сортировку по галочкам -где заполнено свойство данные флажка. Можно добавить сортировку по артикулу и коду табличной части Товары.

Метод расчитан на то что имя колонки формы и колонки Таблицы/Дерева/ТабЧасти совпадают

Наврено 1С в скоре сделает разные методы сортировки по кнопке формы и метода .Сортировать(..) или добавит параметр -сохранять порядок. У меня сейчас стоит 8.2.14.540 и второй порядок нарушается.

(? -кто-ни-будь пользовался объектом сортировки ? -на что он влияет?)

Пока 1С это не поправила можно из  обработчика кнопки сортировать вызывать процедуру:

СортироватьЭкраннуюТаблицу(..)

//Сортирует Таблицу в соотвествии с порядком строк
//Параметры:
//ЭлементФормы -- Таблица на форме, тип значения данных: Табличная часть, ТаблицаЗначений, ДеревоЗначений
//Направление -- Направление сортировки ={ "Возр"/"Убыв" }
//ВходИмяКолонкиПорядокСтрок -- Если у таблицы есть клонка для скорости можно ее указать, иначе она будет создаваться и удаляться после сортировки
Процедура СортироватьЭкраннуюТаблицу(ЭлементФормы,Направление="Возр",ВходИмяКолонкиПорядокСтрок="") // Сортирует Таблицу в соотвествии с порядком строк //+Илья 130412
   
Перем КолонкаПорядка;

   
ИмяТекКолонки = ЭлементФормы.ТекущаяКолонка.Имя;
   
ТекТаблица = ЭлементФормы.Значение;
   
ЭтоТЗ = (ТипЗНЧ(ТекТаблица)=Тип("ТаблицаЗначений"));
   
ЭтоДерево = ?(ЭтоТЗ,Ложь,ТипЗНЧ(ТекТаблица)=Тип("ДеревоЗначений"));

    Если Не (
ЭтоТЗ или ЭтоДерево) Тогда //Может быть Таб чать?
       
МДТабчасти = Метаданные.НайтиПоТипу(Тип(ТекТаблица));
        Если
МДТабчасти = Неопределено или НЕ МДТабчасти.Родитель().ТабличныеЧасти.Найти(МДТабчасти.Имя)=МДТабчасти Тогда  //Это не табЧасть?
           
ТекТаблица.Сортировать(ИмяТекКолонки+" "+Направление);
            Возврат;
        КонецЕслИ;

        Если
МДТабчасти.Реквизиты.Найти(ИмяТекКолонки)=Неопределено Тогда
            Если Не
МДТабчасти.Реквизиты.Найти(ЭлементФормы.ТекущаяКолонка.Данные)=Неопределено Тогда
               
ИмяТекКолонки = ЭлементФормы.ТекущаяКолонка.Данные;
            ИначеЕсли Не
МДТабчасти.Реквизиты.Найти(ЭлементФормы.ТекущаяКолонка.ДанныеФлажка)=Неопределено Тогда
               
ИмяТекКолонки = ЭлементФормы.ТекущаяКолонка.ДанныеФлажка;
            Иначе
                Возврат;
//Нет реквизита сортировки
           
КонецЕсли;
        Конецесли;
       
ЭтоТабЧасть = Истина;

       
ВходИмяКолонкиПорядокСтрок = "НомерСтроки";
       
ТекТаблица = ТекТаблица.Выгрузить();
    КонецЕсли;

    Если
ТекТаблица.КОлонки.Найти(ИмяТекКолонки)=Неопределено Тогда //нет связи с таблицей
       
Если Не ТекТаблица.КОлонки.Найти(ЭлементФормы.ТекущаяКолонка.Данные)=Неопределено Тогда
           
ИмяТекКолонки = ЭлементФормы.ТекущаяКолонка.Данные;
        ИначеЕсли Не
ТекТаблица.КОлонки.Найти(ЭлементФормы.ТекущаяКолонка.ДанныеФлажка)=Неопределено Тогда
           
ИмяТекКолонки = ЭлементФормы.ТекущаяКолонка.ДанныеФлажка;
        Иначе
            Возврат;
        КонецЕсли;
    КонецЕсли;

   
ИмяКолонкиПорядокСтрок = ВходИмяКолонкиПорядокСтрок//"" => удалять колонку порядок
   
КолонкаПорядка = ВернутьСоздатьКОлонкуСтарогоПорядка(ТекТаблица,ИмяКолонкиПорядокСтрок);

   
ТхтСортировки = ИмяТекКолонки+" "+Направление+","+КолонкаПорядка.Имя;
    Если
ЭтоТЗ Тогда
       
МассивПрежнегоПорядка = ТекТаблица.ВыгрузитьКолонку(КолонкаПорядка);
       
ТекТаблица.Сортировать(ТхтСортировки);
        Если
ВходИмяКолонкиПорядокСтрок="" Тогда
           
ТекТаблица.Колонки.Удалить(КолонкаПорядка);
        Иначе
           
ТекТаблица.ЗагрузитьКолонку(МассивПрежнегоПорядка,КолонкаПорядка); //Количество строк не изменилось!
       
КонецЕслИ;
    ИначеЕсли
ЭтоДерево Тогда //Дерево
       
СтрокиДерева = ТекТаблица.Строки;
       
СтрокиДерева.Сортировать(ТхтСортировки,Истина);
        Если
ВходИмяКолонкиПорядокСтрок="" Тогда
           
ТекТаблица.Колонки.Удалить(КолонкаПорядка);
        Иначе
           
ПронумероватьСТрокиДерева(СтрокиДерева,КолонкаПорядка.Имя);
        КонецЕслИ;
    Иначе
//ТабЧасть
       
ТекТаблица.Сортировать(ТхтСортировки);
       
ЭлементФормы.Значение.Загрузить(ТекТаблица);
    КонецЕсли;
КонецПроцедуры
//----------------------------------------------
Функция ВернутьСоздатьКОлонкуСтарогоПорядка(ТекТаблица,ИмяКолонкиПорядокСтрок)
    Если
ПустаяСтрока(ИмяКолонкиПорядокСтрок) Тогда
       
ИмяКолонкиПорядокСтрок=СтрЗаменить("_"+(Новый УникальныйИдентификатор()),"-","");
    КонецЕслИ;

   
КолонкаПорядка = ТекТаблица.Колонки.Найти(ИмяКолонкиПорядокСтрок);
    Если
КолонкаПорядка = Неопределено Тогда
       
КолонкаПорядка = ТекТаблица.Колонки.Добавить(ИмяКолонкиПорядокСтрок,Новый ОписаниеТипов("Число"));
        Если
ТипЗНч(ТекТаблица)=Тип("ТаблицаЗначений") Тогда;
           
МассивИндексов = Новый Массив;     //Так быстрее: http://forum.infostart.ru/forum24/topic53488/message604616/
           
Для й=1 по ТекТаблица.Количество() Цикл
               
МассивИндексов.Добавить(й);
            КонецЦикла;
           
ТекТаблица.ЗагрузитьКолонку(МассивИндексов,КолонкаПорядка);
        Иначе
//Дерево значений
           
ПронумероватьСТрокиДерева(ТекТаблица.Строки,ИмяКолонкиПорядокСтрок);
        КонецЕсли;
    КонецЕсли;
    Возврат
КолонкаПорядка;
КонецФункции
//----------------------------------------------
Процедура ПронумероватьСТрокиДерева(СтрокиДерева,ИмяКолонкиПорядокСтрок,й=1)
    Для Каждого
СтрокаДерева из СтрокиДерева Цикл
       
СтрокаДерева[ИмяКолонкиПорядокСтрок]=й;
       
й=й+1;
        Если
СтрокаДерева.Строки.Количество()>0 тогда
           
ПронумероватьСТрокиДерева(СтрокаДерева.Строки,ИмяКолонкиПорядокСтрок,й);
        КонецЕсли;
    КонецЦикла;
КонецПроцедуры

Пример реализации: //infostart.ru/public/116645/

Пример неудобной сортировки (для 7.7): //infostart.ru/public/20464/

pls: подскажите как отловить нажатие на заголовок колонки таб части?

См. также

Механизмы платформы 1С Программист Платформа 1С v8.3 Бесплатно (free)

В платформе 8.3.27 появилась возможность использовать WebSocket-клиент. Давайте посмотрим, как это все устроено и чем оно нам полезно.

14.01.2025    5683    dsdred    40    

91

Механизмы платформы 1С Программист Стажер Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Эта небольшая статья - некоторого рода шпаргалка по файловым потокам: как и зачем с ними работать, какие преимущества это дает.

23.06.2024    9976    bayselonarrend    21    

161

Механизмы платформы 1С Программист Стажер Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Пример использования «Сервисов интеграции» без подключения к Шине и без обменов.

13.03.2024    7176    dsdred    18    

81

Механизмы платформы 1С Программист Стажер Платформа 1С v8.3 Бесплатно (free)

Все мы используем массивы в своем коде. Это один из первых объектов, который дают ученикам при прохождении обучения программированию. Но умеем ли мы ими пользоваться? В этой статье я хочу показать все методы массива, а также некоторые фишки в работе с массивами.

24.01.2024    23165    YA_418728146    28    

73

Механизмы платформы 1С Программист Бесплатно (free)

Язык программирования 1С содержит много нюансов и особенностей, которые могут приводить к неожиданным для разработчика результатам. Сталкиваясь с ними, программист начинает лучше понимать логику платформы, а значит, быстрее выявлять ошибки и видеть потенциальные узкие места своего кода там, где позже можно было бы ещё долго медитировать с отладчиком в поисках источника проблемы. Мы рассмотрим разные примеры поведения кода 1С. Разберём результаты выполнения и ответим на вопросы «Почему?», «Как же так?» и «Зачем нам это знать?». 

06.10.2023    25328    SeiOkami    48    

136
Оставьте свое сообщение