Отчет сравнения конфигураций по двум файлам

Author: Borisskin

src/v8runner.os

@@ -1838,55 +1838,69 @@
 // Формирует отчёт о сравнении основной конфигурации\конфигурации расширения в файл.
 //
 // Параметры:
-//   ПутьКФайлуКонфигурации - Строка - Путь к файлу cf/cfe с которым необходимо произвести сравнение
+//   ПутьКФайлуКонфигурации - Строка - Путь к файлу cf/cfe, с которым необходимо произвести сравнение
 //   ПутьКОтчету - Строка - Путь в который необходимо записать отчёт
 //   ТипОтчета - ТипыОтчетовОСравнении - Тип отчёта о сравнении полный или краткий
 //   ФорматОтчета - Строка - Формат файла отчета. Возмодные значения: txt, mxl
 //   ИмяРасширения - Строка - Имя расширения конфигурации
+//   ПутьКПервомуФайлуКонфигурации - Строка - Путь к файлу cf/cfe вместо использования основной конфигурации
 //
 Процедура ПолучитьОтчетОСравненииКонфигурацииСФайлом(
 	Знач ПутьКФайлуКонфигурации,
 	Знач ПутьКОтчету,
 	Знач ТипОтчета = Неопределено,
 	Знач ФорматОтчета = "txt",
-	Знач ИмяРасширения = "") Экспорт
+	Знач ИмяРасширения = "",
+	Знач ПутьКПервомуФайлуКонфигурации = Неопределено) Экспорт
 
 	Если ТипОтчета = Неопределено Тогда
 		ТипОтчета = ТипыОтчетовОСравнении.Полный;
 	КонецЕсли;
 
 	ПараметрыЗапуска = СтандартныеПараметрыЗапускаКонфигуратора();
 	ПараметрыЗапуска.Добавить("/CompareCfg");
+
 	Если ЗначениеЗаполнено(ИмяРасширения) Тогда
 		ПараметрыЗапуска.Добавить("-FirstConfigurationType ExtensionConfiguration");
 		Если ИспользуемаяВерсияПлатформыСтаршеИлиРавна("8.3.12") Тогда
-			ПараметрыЗапуска.Добавить(СтрШаблон("-FirstName %1", ИмяРасширения));
+			КлючИмяРасширения = "-FirstName";
+		Иначе
+			КлючИмяРасширения = "-FirstConfigurationKey";
+		КонецЕсли;
+		ПараметрыЗапуска.Добавить(СтрШаблон("%1 %2", КлючИмяРасширения, ИмяРасширения));
+
+	ИначеЕсли ПутьКПервомуФайлуКонфигурации <> Неопределено Тогда
+		ПараметрыЗапуска.Добавить("-FirstConfigurationType File");
+
+		Если ИспользуемаяВерсияПлатформыСтаршеИлиРавна("8.3.12") Тогда
+			КлючПутьКПервомуФайлу = "-FirstFile";
 		Иначе
-			ПараметрыЗапуска.Добавить(СтрШаблон("-FirstConfigurationKey %1", ИмяРасширения));			
-		КонецЕсли;					
+			КлючПутьКПервомуФайлу = "-FirstConfigurationKey";
+		КонецЕсли;
+		ПараметрыЗапуска.Добавить(СтрШаблон("%1 %2",
+			КлючПутьКПервомуФайлу, ОбернутьВКавычки(ПутьКПервомуФайлуКонфигурации)));
+
 	Иначе
 		ПараметрыЗапуска.Добавить("-FirstConfigurationType MainConfiguration");
 	КонецЕсли;
 
 	ПараметрыЗапуска.Добавить("-SecondConfigurationType File");
 
 	Если ИспользуемаяВерсияПлатформыСтаршеИлиРавна("8.3.12") Тогда
-		ПараметрыЗапуска.Добавить("-SecondFile ");
+		КлючПутьКФайлуСравнения = "-SecondFile";
 	Иначе
-		ПараметрыЗапуска.Добавить("-SecondConfigurationKey ");		
-	КонецЕсли; 
+		КлючПутьКФайлуСравнения = "-SecondConfigurationKey";
+	КонецЕсли;
 
-	ПараметрыЗапуска.Добавить(ОбернутьВКавычки(ПутьКФайлуКонфигурации));	
+	ПараметрыЗапуска.Добавить(СтрШаблон("%1 %2",
+		КлючПутьКФайлуСравнения, ОбернутьВКавычки(ПутьКФайлуКонфигурации)));
 
-	ПараметрыЗапуска.Добавить("-ReportType ");
-	ПараметрыЗапуска.Добавить(ТипОтчета);
+	ПараметрыЗапуска.Добавить(СтрШаблон("-ReportType %1", ТипОтчета));
+
+	ПараметрыЗапуска.Добавить(СтрШаблон("-ReportFormat %1", ФорматОтчета));
+
+	ПараметрыЗапуска.Добавить(СтрШаблон("-ReportFile %1", ОбернутьВКавычки(ПутьКОтчету)));
 
-	ПараметрыЗапуска.Добавить("-ReportFormat ");
-	ПараметрыЗапуска.Добавить(ФорматОтчета);
-	
-	ПараметрыЗапуска.Добавить("-ReportFile ");
-	ПараметрыЗапуска.Добавить(ОбернутьВКавычки(ПутьКОтчету));	
-	
 	ВыполнитьКоманду(ПараметрыЗапуска);
 
 КонецПроцедуры