Общий метод для создания определения желудя

src/internal/Классы/ФабрикаЖелудей.os

@@ -111,14 +111,15 @@
 
  Для Каждого МетодЗавязи Из МетодыЗавязи Цикл
 
+ ИмяЖелудя = ПрочитатьИмяЖелудя(МетодЗавязи.Аннотации, "Завязь", МетодЗавязи.Имя);
  ТипЖелудя = ПрочитатьТипЖелудя(МетодЗавязи, МетодЗавязи.Аннотации);
-
- ОпределениеЗавязи = СоздатьОпределениеЖелудяПоМетоду(
+
+ ОпределениеЗавязи = СоздатьОпределениеЖелудя(
+ ИмяЖелудя,
  ТипЖелудя,
  ТипДуба, 
  МетодЗавязи,
- МетодЗавязи.Аннотации,
- "Завязь"
+ МетодЗавязи.Аннотации
  );
  СохранитьОпределениеЖелудя(ОпределениеЗавязи);
 
@@ -128,50 +129,6 @@
 
 КонецФункции
 
-Функция СоздатьОпределениеЖелудяПоМетоду(ТипЖелудя, ТипВладельцаСвойств, Конструктор, Аннотации, АннотацияНадМетодом, Знач ИмяЖелудя = "")
-
- Если Не ЗначениеЗаполнено(ИмяЖелудя) Тогда
- // TODO: ИмяЖелудяПоУмолчанию отличается
- ИмяЖелудя = ПрочитатьИмяЖелудя(Аннотации, АннотацияНадМетодом, Конструктор.Имя);
- КонецЕсли;
-
- Завязь = СоздатьЗавязь(ТипВладельцаСвойств, Конструктор);
-
- ПрилепляемыеЧастицы = ПрочитатьПрилепляемыеЧастицыВМетоде(Конструктор, ТипВладельцаСвойств);
- ХарактерЖелудя = ПрочитатьХарактерЖелудя(Аннотации);
- Прозвища = ПрочитатьПрозвища(Аннотации, ИмяЖелудя);
- Порядок = ПрочитатьПорядок(Аннотации);
- Верховный = ПрочитатьПризнакВерховногоЖелудя(Аннотации);
- Спецификация = ПрочитатьСпецификацию(Аннотации);
-
- // TODO: Унести в Приемку &Дуб
- // Если Спецификация = СостоянияПриложения.Инициализация() 
- // И НЕ ОпределениеЖелудя.Спецификация() = СостоянияПриложения.Инициализация() Тогда
- // ТекстСообщения = СтрШаблон(
- // "Дуб %1 имеет завязь %2, которая имеет &Спецификацию ""Инициализация"", но сам дуб не имеет этой спецификации.",
- // ОпределениеЖелудя.Имя(),
- // Конструктор.Имя
- // );
- // ВызватьИсключение ТекстСообщения;
- // КонецЕсли;
-
- ОпределениеЗавязи = Новый ОпределениеЖелудя(
- РазворачивательАннотаций,
- ТипЖелудя,
- ИмяЖелудя,
- ХарактерЖелудя,
- ПрилепляемыеЧастицы,
- Завязь,
- Прозвища,
- Порядок,
- Верховный,
- Спецификация
- );
-
- Возврат ОпределениеЗавязи;
-
-КонецФункции
-
 Функция ДобавитьНапильник(ТипНапильника) Экспорт
  ОпределениеНапильника = ДобавитьЖителяЛеса(ТипНапильника, "", "Напильник");
 
@@ -335,13 +292,16 @@
  );
  КонецЕсли;
 
+ Если Не ЗначениеЗаполнено(ИмяЖителяЛеса) Тогда
+ ИмяЖителяЛеса = ПрочитатьИмяЖелудя(Аннотации, АннотацияНадКонструктором, Строка(ТипЖителяЛеса));
+ КонецЕсли;
+
  ОпределениеЖелудя = СоздатьОпределениеЖелудя(
+ ИмяЖителяЛеса,
  ТипЖителяЛеса,
  ТипЖителяЛеса,
  Конструктор,
- Аннотации,
- АннотацияНадКонструктором,
- ИмяЖителяЛеса
+ Аннотации
  );
  СохранитьОпределениеЖелудя(ОпределениеЖелудя);
 
@@ -353,11 +313,7 @@
 
 КонецФункции
 
-Функция СоздатьОпределениеЖелудя(ТипЖелудя, ТипВладельцаСвойств, Конструктор, Аннотации, АннотацияНадКонструктором, Знач ИмяЖелудя = "")
-
- Если Не ЗначениеЗаполнено(ИмяЖелудя) Тогда
- ИмяЖелудя = ПрочитатьИмяЖелудя(Аннотации, АннотацияНадКонструктором, Строка(ТипЖелудя));
- КонецЕсли;
+Функция СоздатьОпределениеЖелудя(ИмяЖелудя, ТипЖелудя, ТипВладельцаСвойств, Конструктор, Аннотации)
 
  Завязь = СоздатьЗавязь(ТипВладельцаСвойств, Конструктор);
 
@@ -368,6 +324,17 @@
  Верховный = ПрочитатьПризнакВерховногоЖелудя(Аннотации);
  Спецификация = ПрочитатьСпецификацию(Аннотации);
 
+ // TODO: Унести в Приемку &Дуб
+ // Если Спецификация = СостоянияПриложения.Инициализация() 
+ // И НЕ ОпределениеЖелудя.Спецификация() = СостоянияПриложения.Инициализация() Тогда
+ // ТекстСообщения = СтрШаблон(
+ // "Дуб %1 имеет завязь %2, которая имеет &Спецификацию ""Инициализация"", но сам дуб не имеет этой спецификации.",
+ // ОпределениеЖелудя.Имя(),
+ // Конструктор.Имя
+ // );
+ // ВызватьИсключение ТекстСообщения;
+ // КонецЕсли;
+
  ОпределениеЖелудя = Новый ОпределениеЖелудя(
  РазворачивательАннотаций,
  ТипЖелудя,