refactor: Выделена функция преобразования объекта кластера в соответс…

…твие.

src/Модули/Служебный.os

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