Отбор элементов справочника по доступу

&НаСервере
Процедура псУстановитьСписокСДДС()
	
	Элементы.СтатьяДвиженияДенежныхСредств.РежимВыбораИзСписка = Истина;	
	МассивОтбора = псПолучитьСписокСтатейДДС("Массив");
	
	Элементы.СтатьяДвиженияДенежныхСредств.СписокВыбора.ЗагрузитьЗначения(МассивОтбора);
	Элементы.РасшифровкаПлатежаСтатьяДвиженияДенежныхСредств.СписокВыбора.ЗагрузитьЗначения(МассивОтбора);

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

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

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