Получение списка объектов из ЭлементыФормы.СправочникСписок/ДокументСписок с учетом отборов и сортировки

Использование:

СписокДок = ПолучитьТаблицуСписка("Справочник.Номенклатура", ЭлементыФормы.ОбъектСписок);

Функция ПолучитьТаблицуСписка(ОбъектЗапроса, ЭлементыФормыСписок)

ВидыСравнения = Новый Соответствие;
ВидыСравнения.Вставить(ВидСравнения.Равно,   " = ");
ВидыСравнения.Вставить(ВидСравнения.НеРавно,   " <> ");
ВидыСравнения.Вставить(ВидСравнения.Больше,   " > ");
ВидыСравнения.Вставить(ВидСравнения.Меньше,   " < ");
ВидыСравнения.Вставить(ВидСравнения.БольшеИлиРавно,  " >= ");
ВидыСравнения.Вставить(ВидСравнения.МеньшеИлиРавно,  " <= ");
ВидыСравнения.Вставить(ВидСравнения.ВСписке,   " В ");
ВидыСравнения.Вставить(ВидСравнения.НеВСписке,   " В ");
ВидыСравнения.Вставить(ВидСравнения.ВИерархии,   " В ИЕРАРХИИ ");
ВидыСравнения.Вставить(ВидСравнения.НеВИерархии,  " В ИЕРАРХИИ ");
ВидыСравнения.Вставить(ВидСравнения.ВСпискеПоИерархии,  " В ИЕРАРХИИ ");
ВидыСравнения.Вставить(ВидСравнения.НеВСпискеПоИерархии, " В ИЕРАРХИИ ");
ВидыСравнения.Вставить(ВидСравнения.Содержит,   " ПОДОБНО ");
ВидыСравнения.Вставить(ВидСравнения.НеСодержит,   " ПОДОБНО ");
ВидыСравнения.Вставить(ВидСравнения.ИнтервалВключаяГраницы, " МЕЖДУ ");
ВидыСравнения.Вставить(ВидСравнения.Интервал,   " МЕЖДУ ");
ВидыСравнения.Вставить(ВидСравнения.ИнтервалВключаяНачало, " МЕЖДУ ");
ВидыСравнения.Вставить(ВидСравнения.ИнтервалВключаяОкончание, " МЕЖДУ ");

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ОбъектЗапроса.Ссылка
|ИЗ
| "+ОбъектЗапроса+" КАК ОбъектЗапроса ";

пОтбор = ЭлементыФормыСписок.Значение.Отбор;
Если пОтбор.Количество() > 0 Тогда

СтрокаОтбора = "ГДЕ ";
Для Каждого ТекОтбор Из пОтбор Цикл

Если ТекОтбор.Использование = Истина Тогда
Если ТекОтбор.ВидСравнения = ВидСравнения.НеВСписке
ИЛИ ТекОтбор.ВидСравнения = ВидСравнения.НеВИерархии
ИЛИ ТекОтбор.ВидСравнения = ВидСравнения.НеВСпискеПоИерархии
ИЛИ ТекОтбор.ВидСравнения = ВидСравнения.НеСодержит Тогда
сНЕ = "НЕ ";
Иначе
сНЕ = "";
КонецЕсли;

Если ВидыСравнения.Получить(ТекОтбор.ВидСравнения) = " МЕЖДУ " Тогда
СтрокаОтбора = СтрокаОтбора + сНе +"ОбъектЗапроса." + ТекОтбор.Имя + ВидыСравнения.Получить(ТекОтбор.ВидСравнения) +"&" + ТекОтбор.Имя + "С И &" + ТекОтбор.Имя + "По И ";
Запрос.УстановитьПараметр(""+ТекОтбор.Имя+"С", ТекОтбор.ЗначениеС);
Запрос.УстановитьПараметр(""+ТекОтбор.Имя+"По", ТекОтбор.ЗначениеПо);

Если ТекОтбор.ВидСравнения = ВидСравнения.Интервал Тогда
СтрокаОтбора = СтрокаОтбора + "ОбъектЗапроса." + ТекОтбор.Имя +"<> &" + ТекОтбор.Имя + "С И " + "ОбъектЗапроса." + ТекОтбор.Имя +"<> &" + ТекОтбор.Имя + "По И ";
ИначеЕсли ТекОтбор.ВидСравнения = ВидСравнения.ИнтервалВключаяНачало Тогда
СтрокаОтбора = СтрокаОтбора + "ОбъектЗапроса." + ТекОтбор.Имя +"<> &" + ТекОтбор.Имя + "По И ";
ИначеЕсли ТекОтбор.ВидСравнения = ВидСравнения.ИнтервалВключаяОкончание Тогда
СтрокаОтбора = СтрокаОтбора + "ОбъектЗапроса." + ТекОтбор.Имя +"<> &" + ТекОтбор.Имя + "С И ";
КонецЕсли;
Иначе
СтрокаОтбора = СтрокаОтбора + сНе +"ОбъектЗапроса." + ТекОтбор.Имя + ВидыСравнения.Получить(ТекОтбор.ВидСравнения) +" ( &" + ТекОтбор.Имя + ") И ";
Запрос.УстановитьПараметр(ТекОтбор.Имя, ТекОтбор.Значение);
КонецЕсли;

КонецЕсли;
КонецЦикла;
Если СтрДлина(СтрокаОтбора)>4 Тогда
СтрокаОтбора = Лев(СтрокаОтбора, СтрДлина(СтрокаОтбора) - 2);
Запрос.Текст = Запрос.Текст + СтрокаОтбора;
КонецЕсли;
КонецЕсли;

пПорядок = ЭлементыФормыСписок.Значение.Порядок;
Если пПорядок.Количество() > 0 И Не (пПорядок.Количество() = 1 И пПорядок.Получить(0).Имя = "Порядок") Тогда

СтрокаПорядка = "УПОРЯДОЧИТЬ ПО ";
Для Каждого ТекПорядок Из пПорядок Цикл
Если ТекПорядок.Имя = "Порядок" Тогда
Продолжить;
КонецЕсли;
СтрокаПорядка = СтрокаПорядка + ТекПорядок.Имя + ?(ТекПорядок.Направление = НаправлениеСортировки.Убыв, " УБЫВ", "") + ", ";
КонецЦикла;

Если СтрДлина(СтрокаПорядка)>15 Тогда
СтрокаПорядка = Лев(СтрокаПорядка, СтрДлина(СтрокаПорядка) - 2);
Запрос.Текст = Запрос.Текст + СтрокаПорядка;
КонецЕсли;
КонецЕсли;

Возврат Запрос.Выполнить().Выгрузить();

КонецФункции