1С 8.3 Сортировка списка справочника по реквизиту
Данные > Примеры кода 1С > 1С 8.3 Справочники
Перейти в раздел примеры кода 1С 8.3:
Пример № 1: Сортировка справочника по реквизиту в 1С 8.3:
&НаКлиенте
Процедура СортировкаСпискаСправочникаПоРеквизиту()
//Программно отсортируем список справочника Товары по убыванию Розничной цены
//Перем СписокТоваров;
НастройкиПользователя = СписокТоваров.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы;
Для Каждого ЭлементНастройки Из НастройкиПользователя Цикл
Если ТипЗнч(ЭлементНастройки) = ТипЗнч(СписокТоваров.КомпоновщикНастроек.Настройки.Порядок) Тогда
ЭлементНастройки.Элементы.Очистить();
УсловиеСортировки = ЭлементНастройки.Элементы.Добавить(Тип("ЭлементПорядкаКомпоновкиДанных"));
УсловиеСортировки.Поле = Новый ПолеКомпоновкиДанных("РозничнаяЦена");
УсловиеСортировки.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Убыв;
УсловиеСортировки.Использование = Истина;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура СортировкаСпискаСправочникаПоРеквизиту()
//Программно отсортируем список справочника Товары по убыванию Розничной цены
//Перем СписокТоваров;
НастройкиПользователя = СписокТоваров.КомпоновщикНастроек.ПользовательскиеНастройки.Элементы;
Для Каждого ЭлементНастройки Из НастройкиПользователя Цикл
Если ТипЗнч(ЭлементНастройки) = ТипЗнч(СписокТоваров.КомпоновщикНастроек.Настройки.Порядок) Тогда
ЭлементНастройки.Элементы.Очистить();
УсловиеСортировки = ЭлементНастройки.Элементы.Добавить(Тип("ЭлементПорядкаКомпоновкиДанных"));
УсловиеСортировки.Поле = Новый ПолеКомпоновкиДанных("РозничнаяЦена");
УсловиеСортировки.ТипУпорядочивания = НаправлениеСортировкиКомпоновкиДанных.Убыв;
УсловиеСортировки.Использование = Истина;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Пример № 2: Сортировка справочника по реквизиту в 1С 8.3:
Процедура ПриОткрытии()
// Вставить содержимое обработчика.
КонецПроцедуры
//ЭлементыФормы.СправочникСписок.НастройкаПорядка.Владелец.Доступность=Истина;
//ЭлементыФормы.СправочникСписок.НастройкаПорядка.ДатаПартии.Доступность=Истина;
Порядок.Установить("Владелец Возр, ДатаПартии Убыв");
// Вставить содержимое обработчика.
КонецПроцедуры
//ЭлементыФормы.СправочникСписок.НастройкаПорядка.Владелец.Доступность=Истина;
//ЭлементыФормы.СправочникСписок.НастройкаПорядка.ДатаПартии.Доступность=Истина;
Порядок.Установить("Владелец Возр, ДатаПартии Убыв");
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник