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

Часто какие-то процедуры требуют какие-то значения полей справочника, при этом используется только для чтения. Однако, в коде часто попадается ПолучитьОбъект, или обращение к полям через точку от ссылки. Это приводит к множественным запросам к СУБД, особенно если в теле процедуры много таких обращений.
Например, может даже в модуле объекта (документа), или какой обработки, фонового... использоваться
Если ЗначениеЗаполнено(Контрагент.ДокументУдостоверяющийЛичность) Тогда
То происходит запрос "ВЫБРАТЬ ПЕРВЫЕ 1 Т.ДокументУдостоверяющийЛичность ИЗ Справочник.Контрагенты КАК Т ГДЕ Т.Ссылка=&Ссылка"
И так на каждое обращение к реквизиту.
В таком случае лучше в модуле менеджера разместить такую функцию и получить все нужные поля заранее
РеквКонтрагента = Справочники.Контрагенты.ПолучитьНужныеПоляЭлемента(Ссылка, "ДокументУдостоверяющийЛичность,ИНН,КПП");
А потом писать
Если ЗначениеЗаполнено(РеквКонтрагента.ДокументУдостоверяющийЛичность) Тогда
В таком случае система отправит один запрос

// Функция - Получить нужные поля элемента (без табличных частей)
//
// Параметры:
//  пСсылка		 - Ссылка - Ссылка на элемент справочника
//  СписокПолей	 - Строка - Список полей разделенных запятой
// 
// Возврат:
//  Структура - Структура с заполненными значениями запрошенных полей
//
Функция ПолучитьНужныеПоляЭлемента(пСсылка, СписокПолей = "") Экспорт

	ТЗ = "ВЫБРАТЬ ПЕРВЫЕ 1
		|	ТекСправочник.Ссылка КАК Ссылка{ТекстПоляЗапроса}
		|ИЗ
		|	Справочник.ТекСправочник AS ТекСправочник
		|ГДЕ
		|	ТекСправочник.Ссылка = &Ссылка";
	ТекстШаблона = ",
		|	ТекСправочник.%1 КАК %1";
	МассивСписокПолей = СтрРазделить(СписокПолей, ",");
	ДобавленныеПоля = Новый Массив;
	ТекстПоляЗапроса = "";
	Для Каждого ТекПоле Из МассивСписокПолей Цикл
		ТекПоле = СокрЛП(ТекПоле);
		Если ТекПоле = "Ссылка" Тогда Продолжить КонецЕсли; // Поле уже есть в запросе
		Если ДобавленныеПоля.Найти(ТекПоле) Тогда Продолжить КонецЕсли;
		ДобавленныеПоля.Добавить(ТекПоле);
		ТекСтр = СтрШаблон(ТекстШаблона, ТекПоле);
		ТекстПоляЗапроса = ТекстПоляЗапроса + ТекСтр
	КонецЦикла;
	ТЗ = СтрЗаменить(ТЗ, "{ТекстПоляЗапроса}", ТекстПоляЗапроса);

	Запрос = Новый Запрос(ТЗ);
	Запрос.УстановитьПараметр("Ссылка", пСсылка);

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

	Возврат Результат

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