Убрать видимость групп в СпискеЗначений

[Алексей_1985_06]

Есть справочник "Подразделения" иерархия - групп, подскажите что дописать в коде, чтоб в реквизите "СписокПодразделений" с типом "СписокЗначений" не показывались группы подразделений, а только элементы?

Код Выделить Развернуть

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Выборка = Справочники.Подразделения.Выбрать();
Пока Выборка.Следующий() цикл
СписокПодразделений.Добавить(Выборка.Ссылка,Выборка.Наименование,Ложь);
СписокПодразделений.СортироватьПоПредставлению(НаправлениеСортировки.Возр);
КонецЦикла;
КонецПроцедуры

[bsn-chita]

Код Выделить Развернуть


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Подразделения.Ссылка КАК Ссылка,
| Подразделения.Наименование КАК Наименование
|ИЗ
| Справочник.Подразделения КАК Подразделения
|ГДЕ
| НЕ Подразделения.ЭтоГруппа";
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();

Пока Выборка.Следующий() цикл
СписокПодразделений.Добавить(Выборка.Ссылка,Выборка.Наименование,Ложь);
СписокПодразделений.СортироватьПоПредставлению(НаправлениеСортировки.Возр);
КонецЦикла;
КонецПроцедуры


[Алексей_1985_06]

Код Выделить Развернуть


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Подразделения.Ссылка КАК Ссылка,
| Подразделения.Наименование КАК Наименование
|ИЗ
| Справочник.Подразделения КАК Подразделения
|ГДЕ
| НЕ Подразделения.ЭтоГруппа";
РезультатЗапроса = Запрос.Выполнить();
Выборка = РезультатЗапроса.Выбрать();

Пока Выборка.Следующий() цикл
СписокПодразделений.Добавить(Выборка.Ссылка,Выборка.Наименование,Ложь);
СписокПодразделений.СортироватьПоПредставлению(НаправлениеСортировки.Возр);
КонецЦикла;
КонецПроцедуры


Большое Вам спасибо!!! Все получилось!

[LexaK]

извините, не утерпел, не смог мимо такого Г-ноКода пройти.
попробуйте так

Код Выделить Развернуть


&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
|    Подразделения.Ссылка КАК Ссылка,
|    Подразделения.Наименование КАК Наименование
|ИЗ
|    Справочник.Подразделения КАК Подразделения
|ГДЕ
|    НЕ Подразделения.ЭтоГруппа
|//сразу в запросе сортируем
|Упорядочить по
|    Подразделения.Наименование
|";

//все это Г заменяем ...
//РезультатЗапроса = Запрос.Выполнить();
//Выборка = РезультатЗапроса.Выбрать();
   
//Пока Выборка.Следующий() цикл
//    СписокПодразделений.Добавить(Выборка.Ссылка,Выборка.Наименование,Ложь);
//////особенно порадовало вот это - СОРТИРОВКА ВНУТРИ ЦИКЛА :lol:
//    СписокПодразделений.СортироватьПоПредставлению(НаправлениеСортировки.Возр);
//КонецЦикла;   

//..заменяем на одну команду
СписокПодразделений.Загрузить(Запрос.Выполнить().Выгрузить());

КонецПроцедуры