Использование:
СписокДок = ПолучитьТаблицуСписка("Справочник.Номенклатура", ЭлементыФормы.ОбъектСписок);
Функция ПолучитьТаблицуСписка(ОбъектЗапроса, ЭлементыФормыСписок)
ВидыСравнения = Новый Соответствие;
ВидыСравнения.Вставить(ВидСравнения.Равно, " = ");
ВидыСравнения.Вставить(ВидСравнения.НеРавно, " <> ");
ВидыСравнения.Вставить(ВидСравнения.Больше, " > ");
ВидыСравнения.Вставить(ВидСравнения.Меньше, " < ");
ВидыСравнения.Вставить(ВидСравнения.БольшеИлиРавно, " >= ");
ВидыСравнения.Вставить(ВидСравнения.МеньшеИлиРавно, " <= ");
ВидыСравнения.Вставить(ВидСравнения.ВСписке, " В ");
ВидыСравнения.Вставить(ВидСравнения.НеВСписке, " В ");
ВидыСравнения.Вставить(ВидСравнения.ВИерархии, " В ИЕРАРХИИ ");
ВидыСравнения.Вставить(ВидСравнения.НеВИерархии, " В ИЕРАРХИИ ");
ВидыСравнения.Вставить(ВидСравнения.ВСпискеПоИерархии, " В ИЕРАРХИИ ");
ВидыСравнения.Вставить(ВидСравнения.НеВСпискеПоИерархии, " В ИЕРАРХИИ ");
ВидыСравнения.Вставить(ВидСравнения.Содержит, " ПОДОБНО ");
ВидыСравнения.Вставить(ВидСравнения.НеСодержит, " ПОДОБНО ");
ВидыСравнения.Вставить(ВидСравнения.ИнтервалВключаяГраницы, " МЕЖДУ ");
ВидыСравнения.Вставить(ВидСравнения.Интервал, " МЕЖДУ ");
ВидыСравнения.Вставить(ВидСравнения.ИнтервалВключаяНачало, " МЕЖДУ ");
ВидыСравнения.Вставить(ВидСравнения.ИнтервалВключаяОкончание, " МЕЖДУ ");
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
| ОбъектЗапроса.Ссылка
|ИЗ
| "+ОбъектЗапроса+" КАК ОбъектЗапроса ";
пОтбор = ЭлементыФормыСписок.Значение.Отбор;
Если пОтбор.Количество() > 0 Тогда
СтрокаОтбора = "ГДЕ ";
Для Каждого ТекОтбор Из пОтбор Цикл
Если ТекОтбор.Использование = Истина Тогда
Если ТекОтбор.ВидСравнения = ВидСравнения.НеВСписке
ИЛИ ТекОтбор.ВидСравнения = ВидСравнения.НеВИерархии
ИЛИ ТекОтбор.ВидСравнения = ВидСравнения.НеВСпискеПоИерархии
ИЛИ ТекОтбор.ВидСравнения = ВидСравнения.НеСодержит Тогда
сНЕ = "НЕ ";
Иначе
сНЕ = "";
КонецЕсли;
Если ВидыСравнения.Получить(ТекОтбор.ВидСравнения) = " МЕЖДУ " Тогда
СтрокаОтбора = СтрокаОтбора + сНе +"ОбъектЗапроса." + ТекОтбор.Имя + ВидыСравнения.Получить(ТекОтбор.ВидСравнения) +"&" + ТекОтбор.Имя + "С И &" + ТекОтбор.Имя + "По И ";
Запрос.УстановитьПараметр(""+ТекОтбор.Имя+"С", ТекОтбор.ЗначениеС);
Запрос.УстановитьПараметр(""+ТекОтбор.Имя+"По", ТекОтбор.ЗначениеПо);
Если ТекОтбор.ВидСравнения = ВидСравнения.Интервал Тогда
СтрокаОтбора = СтрокаОтбора + "ОбъектЗапроса." + ТекОтбор.Имя +"<> &" + ТекОтбор.Имя + "С И " + "ОбъектЗапроса." + ТекОтбор.Имя +"<> &" + ТекОтбор.Имя + "По И ";
ИначеЕсли ТекОтбор.ВидСравнения = ВидСравнения.ИнтервалВключаяНачало Тогда
СтрокаОтбора = СтрокаОтбора + "ОбъектЗапроса." + ТекОтбор.Имя +"<> &" + ТекОтбор.Имя + "По И ";
ИначеЕсли ТекОтбор.ВидСравнения = ВидСравнения.ИнтервалВключаяОкончание Тогда
СтрокаОтбора = СтрокаОтбора + "ОбъектЗапроса." + ТекОтбор.Имя +"<> &" + ТекОтбор.Имя + "С И ";
КонецЕсли;
Иначе
СтрокаОтбора = СтрокаОтбора + сНе +"ОбъектЗапроса." + ТекОтбор.Имя + ВидыСравнения.Получить(ТекОтбор.ВидСравнения) +" ( &" + ТекОтбор.Имя + ") И ";
Запрос.УстановитьПараметр(ТекОтбор.Имя, ТекОтбор.Значение);
КонецЕсли;
КонецЕсли;
КонецЦикла;
Если СтрДлина(СтрокаОтбора)>4 Тогда
СтрокаОтбора = Лев(СтрокаОтбора, СтрДлина(СтрокаОтбора) - 2);
Запрос.Текст = Запрос.Текст + СтрокаОтбора;
КонецЕсли;
КонецЕсли;
пПорядок = ЭлементыФормыСписок.Значение.Порядок;
Если пПорядок.Количество() > 0 И Не (пПорядок.Количество() = 1 И пПорядок.Получить(0).Имя = "Порядок") Тогда
СтрокаПорядка = "УПОРЯДОЧИТЬ ПО ";
Для Каждого ТекПорядок Из пПорядок Цикл
Если ТекПорядок.Имя = "Порядок" Тогда
Продолжить;
КонецЕсли;
СтрокаПорядка = СтрокаПорядка + ТекПорядок.Имя + ?(ТекПорядок.Направление = НаправлениеСортировки.Убыв, " УБЫВ", "") + ", ";
КонецЦикла;
Если СтрДлина(СтрокаПорядка)>15 Тогда
СтрокаПорядка = Лев(СтрокаПорядка, СтрДлина(СтрокаПорядка) - 2);
Запрос.Текст = Запрос.Текст + СтрокаПорядка;
КонецЕсли;
КонецЕсли;
Возврат Запрос.Выполнить().Выгрузить();
КонецФункции
Вступайте в нашу телеграмм-группу Инфостарт
