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