Можно ли сделать, чтобы в историю отборов добавлялся отбор по ссылке?

	
СохранитьОтбор("Справочник", "Справочники", "Номенклатура", Массив);


Функция СохранитьОтбор(КлассЕЧ, КлассМЧ, Вид, МассивСсылок, ВидФормы = "ФормаВыбора") Экспорт
	
	Менеджер = Вычислить(КлассМЧ +"." + Вид);
	//Используем гарантированно имеющуюся в конфигурации форму констант
	Если ВидФормы = "ФормаВыбора" Тогда
		Ф = Менеджер.ПолучитьФормуВыбора(,, Новый УникальныйИдентификатор());
	Иначе
		Ф = Менеджер.ПолучитьФормуСписка(,, Новый УникальныйИдентификатор());
	КонецЕсли;
	Для Каждого Эл Из Ф.ЭлементыФормы Цикл
		Попытка
		Эл.Видимость = ложь;
		Исключение КонецПопытки;
	КонецЦикла;
	
	//Ищем табличное поле
	ИскомыйТип = Тип(КлассЕЧ + "Список." + Вид);
	Для Каждого Эл Из Ф.ЭлементыФормы Цикл
		Попытка
			Если  Эл.ТипЗначения.СодержитТип(ИскомыйТип) тогда
				ТабличноеПоле = Эл;
				Прервать;
			КонецЕсли;
		Исключение
		КонецПопытки;
	КонецЦикла;
	
	
	////Добавляем табличное поле
	//ТабличноеПоле = Ф.ЭлементыФормы.Добавить(Тип("ТабличноеПоле"), СтрЗаменить("_" + Новый УникальныйИдентификатор(), "-", ""), истина);
	//ТабличноеПоле.Верх = 0;
	//ТабличноеПоле.Ширина = 200;
	//ТабличноеПоле.Высота = 200;
	
	
	////В табличное поле выводим список объектов - документов или справочников
	//М= Новый Массив();
	//М.Добавить(Тип(КлассЕЧ + "Список." + Вид));
	//ОТ = Новый ОписаниеТипов(М);
	//ТабличноеПоле.ТипЗначения = ОТ;
	//ТабличноеПоле.СоздатьКолонки();
	
	//Устанавливаем отбор, чтобы потом его сохранить
	СписокОтбора = Новый СписокЗначений();
	//СписокСсылок.ЗагрузитьЗначения(МассивСсылок);
	//ТабличноеПоле.Значение.Отбор.Ссылка.ВидСравнения = ВидСравнения.ВСписке;
	//ТабличноеПоле.Значение.Отбор.Ссылка.Использование = истина;
	//ТабличноеПоле.Значение.Отбор.Ссылка.Значение = СписокСсылок;
	//ТабличноеПоле.НастройкаОтбора.Ссылка.Доступность = истина;
	
	
	Для Каждого Эл Из МассивСсылок Цикл
		СписокОтбора.Добавить(Эл.Код);
	КонецЦикла;
	
	ТабличноеПоле.Значение.Отбор.Код.ВидСравнения = ВидСравнения.ВСписке;
	ТабличноеПоле.Значение.Отбор.Код.Использование = истина;
	ТабличноеПоле.Значение.Отбор.Код.Значение = СписокОтбора;
	ТабличноеПоле.НастройкаОтбора.Код.Доступность = истина;

	//Добавляем командную панель
	КоманднаяПанель = Ф.ЭлементыФормы.Добавить(Тип("КоманднаяПанель"),  СтрЗаменить("_" + Новый УникальныйИдентификатор(), "-", ""), истина);
	КоманднаяПанель.ИсточникДействий = ТабличноеПоле;
	КоманднаяПанель.Автозаполнение = истина;
	
	//Находим у командной панели действие "Установить отбор и сортировку списка"
	Действие = Неопределено;
	Для Каждого Кнопка ИЗ КоманднаяПанель.Кнопки Цикл
		Если Найти(Строка(Кнопка.Действие), "Установить отбор и сортировку списка") <> 0 Тогда
			Действие = Кнопка.Действие;
			Прервать;
		КонецЕсли;
	КонецЦикла;
	
	//Добавляем кнопку с вышенайденным действием
	Кнопка = Ф.ЭлементыФормы.Добавить(Тип("Кнопка"),  СтрЗаменить("_" + Новый УникальныйИдентификатор(), "-", ""), истина);
	Кнопка.ИсточникДействий = ТабличноеПоле;
	Кнопка.УстановитьДействие("Нажатие", Действие);
	Кнопка.Верх = 200;
	Кнопка.Ширина = 10;
	Кнопка.Высота = 10;
	
	//Делаем текущим элементом кнопку и открываем форму
	Ф.ТекущийЭлемент = Кнопка;
	Ф.Открыть();
	
	//Посылаем щелчок по кнопке, закрытие отбора и закрытие этой формы
	wsh = Новый COMОбъект("WScript.Shell"); 
	wsh.SendKeys("{ENTER}^{ENTER}^{F4}");
	//wsh.SendKeys("{ENTER}^{ENTER}");

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