еще убрал флюент

src/Модули/РаботаСАннотациями.os

@@ -1,25 +1,34 @@
 #Использовать fluent
 
 Функция ПолучитьАннотацию(Свойство, ИмяАннотации) Экспорт
-	Аннотация = ПроцессорыКоллекций.ИзКоллекции(Свойство.Аннотации)
-		.Фильтровать(
-			"Результат = ВРег(Элемент.Имя) = ВРег(ДополнительныеПараметры.ИмяАннотации)", 
-			Новый Структура("ИмяАннотации", ИмяАннотации)
-		).ПолучитьПервый();
-
+	Аннотация = ОтфильтроватьПервуюАннотациюПоИмени(Свойство.Аннотации, ИмяАннотации);
 	Возврат Аннотация;
 КонецФункции
 
 Функция ПолучитьАннотации(Свойство, ИмяАннотации) Экспорт
-	Аннотации = ПроцессорыКоллекций.ИзКоллекции(Свойство.Аннотации)
-		.Фильтровать(
-			"Результат = ВРег(Элемент.Имя) = ВРег(ДополнительныеПараметры.ИмяАннотации)", 
-			Новый Структура("ИмяАннотации", ИмяАннотации)
-		).ВМассив();
-
+	Аннотации = ОтфильтроватьАннотацииПоИмени(Свойство.Аннотации, ИмяАннотации);
 	Возврат Аннотации;
 КонецФункции
 
+Функция ОтфильтроватьАннотацииПоИмени(Аннотации, ИмяАннотации)
+	Массив = Новый Массив();
+	Для каждого Элемент Из Аннотации Цикл
+		Если ВРег(Элемент.Имя) = ВРег(ИмяАннотации) Тогда
+			Массив.Добавить(Элемент);
+		КонецЕсли;
+	КонецЦикла;
+	Возврат Массив; 
+КонецФункции
+
+Функция ОтфильтроватьПервуюАннотациюПоИмени(Аннотации, ИмяАннотации)
+	Для каждого Элемент Из Аннотации Цикл
+		Если ВРег(Элемент.Имя) = ВРег(ИмяАннотации) Тогда
+			Возврат Элемент;
+		КонецЕсли;
+	КонецЦикла;
+	Возврат Неопределено; 
+КонецФункции
+
 Функция ПолучитьЗначениеПараметраАннотации(
 	Аннотация, 
 	ИмяПараметра = "Значение", 
@@ -33,11 +42,7 @@
 		Возврат ЗначениеПоУмолчанию;
 	КонецЕсли;
 
-	ПараметрАннотации = ПроцессорыКоллекций.ИзКоллекции(Аннотация.Параметры)
-		.Фильтровать(
-			"Результат = ВРег(Элемент.Имя) = ВРег(ДополнительныеПараметры.ИмяПараметра)", 
-			Новый Структура("ИмяПараметра", ИмяПараметра)
-		).ПолучитьПервый();
+	ПараметрАннотации = ПолучитьПараметрАннотации(Аннотация.Параметры, ИмяПараметра);
 
 	Если ПараметрАннотации <> Неопределено Тогда
 		Возврат ПараметрАннотации.Значение;
@@ -59,4 +64,13 @@
 		ВызватьИсключение Сообщение; 
 	КонецЕсли;
 
+КонецФункции
+
+Функция ПолучитьПараметрАннотации(ПараметрыАннотации, ИмяПараметра)
+	Для каждого Элемент Из ПараметрыАннотации Цикл
+		Если ВРег(Элемент.Имя) = ВРег(ИмяПараметра) Тогда
+			Возврат Элемент;
+		КонецЕсли;
+	КонецЦикла;
+	Возврат Неопределено;
 КонецФункции