Получить выделенные строки списка (с сохранением выделения)

&НаКлиенте
Функция ПолучитьЭлементыПоВыделеннымСтрокам(ВыбЭлемент, ПолеСсылка) Экспорт
	МассивЭлементов = Новый Массив();
	ВыдСтроки = Новый Массив();
	
	Для Каждого текСтр Из ВыбЭлемент.ВыделенныеСтроки Цикл
		ВыдСтроки.Добавить(ТекСтр);
	КонецЦикла;
	
	Для Каждого ТекВыд Из ВыдСтроки Цикл
		ВыбЭлемент.ТекущаяСтрока = ТекВыд;
		СсылкаНаЭлемент = ВыбЭлемент.ТекущиеДанные[ПолеСсылка];			
		МассивЭлементов.Добавить(СсылкаНаЭлемент);
	КонецЦикла;
	
	Для Каждого ТекВыд Из ВыдСтроки Цикл
		ВыбЭлемент.ВыделенныеСтроки.Добавить(ТекВыд);
	КонецЦикла;
	
	Возврат МассивЭлементов;
КонецФункции