Привет всем!

Как в Агент+ при обмене в форме выбора агента из списка агентов сделать сортировку списка по алфавиту?

1с 8.2 УТ 10.3

Форма открывается модально

Как тут сделать Чтобы выводимые значения в списке выбора расположились по алфавиту?


Процедура ВыбАгентНачалоВыбора(Элемент, СтандартнаяОбработка)
    
    СтандартнаяОбработка = Ложь;
    
    ТабАгентов = кпкАгентПлюс.ПолучитьТаблицуТорговыхАгентов();    
    
    Если ТабАгентов.Количество() = 0 Тогда
        ОповеститьОСобытии("Не найдено ни одного торгового агента. Необходимо заполнить список агентов в регистре сведений ""Сведения агентов""!");
        Возврат;
    КонецЕсли;
    
    СписокАгентов = Новый СписокЗначений;
    Для Каждого СтрАгент Из ТабАгентов Цикл
        СписокАгентов.Добавить(СтрАгент.Агент, СтрАгент.Агент.Наименование);
    КонецЦикла;
    
    ВыбЭлемент = СписокАгентов.НайтиПоЗначению(ВыбАгент);
    ВыбЭлемент = СписокАгентов.ВыбратьЭлемент("Выберите агента", ВыбЭлемент);
    
    
    Если Не ВыбЭлемент = Неопределено Тогда         
        ВыбАгент = ВыбЭлемент.Значение;
    КонецЕсли;
    
    ПриИзмененииАгента(ВыбАгент);
    
    НастроитьВидимостьДоступностьПриИзмененииСпособаОбмена();
    
    
КонецПроцедуры

неужели сортировать? нет, не может быть так просто

Как сделать чтобы этот список выводился в алфавитном порядке?

Процедура ВыбАгентНачалоВыбора(Элемент, СтандартнаяОбработка)
    
    СтандартнаяОбработка = Ложь;
    
    ТабАгентов = кпкАгентПлюс.ПолучитьТаблицуТорговыхАгентов();    
    
    Если ТабАгентов.Количество() = 0 Тогда
        ОповеститьОСобытии("Не найдено ни одного торгового агента. Необходимо заполнить список агентов в регистре сведений ""Сведения агентов""!");
        Возврат;
    КонецЕсли;
    
    СписокАгентов = Новый СписокЗначений;
    Для Каждого СтрАгент Из ТабАгентов Цикл
        СписокАгентов.Добавить(СтрАгент.Агент, СтрАгент.Агент.Наименование);
    КонецЦикла;
    
    ВыбЭлемент = СписокАгентов.НайтиПоЗначению(ВыбАгент);
    ВыбЭлемент = СписокАгентов.ВыбратьЭлемент("Выберите агента", ВыбЭлемент);
    
    
    Если Не ВыбЭлемент = Неопределено Тогда         
        ВыбАгент = ВыбЭлемент.Значение;
    КонецЕсли;
    
    ПриИзмененииАгента(ВыбАгент);
    
    НастроитьтВидимостьДоступностьПриИзмененииСпособаОбмена();
    
    
КонецПроцедуры

(5) ну так отсортировать не пробовали?

(6) форма списка модальная там нет кнопок настройки, можно  как нибуть туда кнопку хоть добавить?

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

(8) в том порядке, какой удобен СУБД, на самом деле

(7) а ну как если без кнопки сортировать? магия?

(10) как туда кнопку добавить?)

(10) я не умею с модалными формами работать и много чего еще не умею)

(11) зачем? список значений отсортировать по представлению...

(12) а вы там, извините, кто по должности/профессии?

(14) Экономист)

(15) зови программиста, это его работа

(15) "Беда, коль пироги начнет печи сапожник, / А сапоги тачать пирожник." И.Крылов

(13) можно примерный код?

(18) в (14) только знаки препинания поправить

(19) )

не, не догадается. программировать надо

(13) ЭлементыФормы.ВыбАгент.СписокВыбора.СортироватьПоПредставлению();

Так? не работает)(

ЭлементыФормы - это тут откуда появилось?

(22) СписокАгентов.СортироватьПоПредставлению()

(24) Спасибо Огромное!!!!!
Я со вчерашнего дня мучался!!!
Спасибо огромное!!!!

Вдруг кому надо будет, вот кусочек кода с добавлением строки от (24)

СписокАгентов = Новый СписокЗначений;
    Для Каждого СтрАгент Из ТабАгентов Цикл
        СписокАгентов.Добавить(СтрАгент.Агент, СтрАгент.Агент.Наименование);
        СписокАгентов.СортироватьПоПредставлению();
    КонецЦикла;

(26) ну и зачем ты 80 раз сортируешь?

(27) а, можно и по другому?

(28) нужно. 1 раз

(27) "чтобы наверняка!"©

(25) кнопка F1 в пофигураторе

(30) для наверняка нужен ещё один цикл