Упорядочен код выгрузки дополнительных объектов

Author: yukon39

src/Классы/edtExport.os

@@ -257,14 +257,35 @@
 		Возврат ПолноеИмяОбъекта;
 	КонецЕсли;
 
-	Если СтрНайти("Configuration,Language", ТипОбъектаМетаданных) > 0 Тогда
+	Если ЭтоРодительВерхнегоУровня(ТипОбъектаМетаданных) Тогда
 		Возврат ТипОбъектаМетаданных;
 	Иначе
 		Возврат СтрШаблон("%1.%2", ТипОбъектаМетаданных, ИмяОбъектаМетаданных);
 	КонецЕсли;
 
 КонецФункции
 
+Функция ЭтоВложенныйОбъект(ПолноеИмяОбъекта)
+	
+	ИндексВложенногоТипа = 2;
+
+	ЧастиИмени = СтрРазделить(ПолноеИмяОбъекта, ".");
+	Если ЧастиИмени.Количество() > ИндексВложенногоТипа Тогда
+		ТипВложенногоОбъекта = ЧастиИмени[ИндексВложенногоТипа];
+	Иначе
+		Возврат Ложь;
+	КонецЕсли;
+
+	Возврат (СтрНайти("Form,Template,Recalculation,Subsystem", ТипВложенногоОбъекта) > 0);
+
+КонецФункции
+
+Функция ЭтоРодительВерхнегоУровня(Родитель)
+	
+	Возврат (СтрНайти("Configuration,Language", Родитель) > 0);
+
+КонецФункции
+
 Функция ИзмененныеОбъектыМетаданных(ПутьКФайлуИзменений)
 
 	РегулярноеВыражение = Новый РегулярноеВыражение("^(?>New|Modified):(\S+)\s*$");
@@ -296,16 +317,10 @@
 
 КонецФункции
 
-Функция ДополнительныеОбъектыКВыгрузке(ВыгруженныеИзменения, ИмяФайлаДампа)
+Функция ДополнительныеОбъектыКВыгрузке(ИзмененныеОбъекты, ИмяФайлаДампа)
 
 	СписокОбъектов = Новый Массив;
 
-	ДочерниеОбъекты = Новый Массив;
-	ДочерниеОбъекты.Добавить("Form");
-	ДочерниеОбъекты.Добавить("Template");
-	ДочерниеОбъекты.Добавить("Recalculation");
-	ДочерниеОбъекты.Добавить("Subsystem");
-	
 	ЧтениеXML = Новый ЧтениеXML;
 	ЧтениеXML.ОткрытьФайл(ИмяФайлаДампа);
 
@@ -316,21 +331,15 @@
 	Пока ЧтениеXML.Имя = "Metadata" Цикл
 
 		ИмяОбъекта = ЧтениеXML.ЗначениеАтрибута("name");
-
 		Родитель = РодительОбъекта(ИмяОбъекта);
 
-		Сегменты = СтрРазделить(ИмяОбъекта, ".");
+		Если ЭтоВложенныйОбъект(ИмяОбъекта) ИЛИ ЭтоРодительВерхнегоУровня(Родитель) Тогда
 
-		Если Сегменты.Количество() > 2 И ДочерниеОбъекты.Найти(Сегменты[2]) = Неопределено Тогда
-			Продолжить;
-		КонецЕсли;
-		Изменения = ВыгруженныеИзменения.Получить(Родитель);
-		Если Изменения <> Неопределено Тогда
-			
-			Если Изменения.Найти(ИмяОбъекта) = Неопределено Или Родитель = "Configuration" Тогда
+			Изменения = ИзмененныеОбъекты.Получить(Родитель);
+			Если Изменения <> Неопределено И Изменения.Найти(ИмяОбъекта) = Неопределено	Тогда
 				СписокОбъектов.Добавить(ИмяОбъекта);
 			КонецЕсли;
-			
+
 		КонецЕсли;
 
 		Если ЧтениеXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда