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

Author: Borisskin

src/v8runner.os

@@ -1827,18 +1827,20 @@
 // Формирует отчёт о сравнении основной конфигурации\конфигурации расширения в файл.
 //
 // Параметры:
-//   ПутьКФайлуКонфигурации - Строка - Путь к файлу cf/cfe с которым необходимо произвести сравнение
+//   ПутьКФайлуКонфигурации - Строка - Путь к файлу cf/cfe, с которым необходимо произвести сравнение
 //   ПутьКОтчету - Строка - Путь в который необходимо записать отчёт
 //   ТипОтчета - ТипыОтчетовОСравнении - Тип отчёта о сравнении полный или краткий
 //   ФорматОтчета - Строка - Формат файла отчета. Возмодные значения: txt, mxl
 //   ИмяРасширения - Строка - Имя расширения конфигурации
+//   ПутьКПервомуФайлуКонфигурации - Строка - Путь к файлу cf/cfe, вместо основной конфигурации
 //
 Процедура ПолучитьОтчетОСравненииКонфигурацииСФайлом(
 	Знач ПутьКФайлуКонфигурации,
 	Знач ПутьКОтчету,
 	Знач ТипОтчета = Неопределено,
 	Знач ФорматОтчета = "txt",
-	Знач ИмяРасширения = "") Экспорт
+	Знач ИмяРасширения = "",
+	Знач ПутьКПервомуФайлуКонфигурации = Неопределено) Экспорт
 
 	Если ТипОтчета = Неопределено Тогда
 		ТипОтчета = ТипыОтчетовОСравнении.Полный;
@@ -1851,8 +1853,22 @@
 		Если ИспользуемаяВерсияПлатформыСтаршеИлиРавна("8.3.12") Тогда
 			ПараметрыЗапуска.Добавить(СтрШаблон("-FirstName %1", ИмяРасширения));
 		Иначе
-			ПараметрыЗапуска.Добавить(СтрШаблон("-FirstConfigurationKey %1", ИмяРасширения));			
-		КонецЕсли;					
+			ПараметрыЗапуска.Добавить(СтрШаблон("-FirstConfigurationKey %1", ИмяРасширения));
+		КонецЕсли;
+
+	ИначеЕсли ПутьКПервомуФайлуКонфигурации <> Неопределено Тогда
+		ПараметрыЗапуска.Добавить("-FirstConfigurationType File");
+
+		Если ИспользуемаяВерсияПлатформыСтаршеИлиРавна("8.3.12") Тогда
+			ПараметрыЗапуска.Добавить("-FirstFile ");
+		Иначе
+			ПараметрыЗапуска.Добавить("-FirstConfigurationKey ");
+		КонецЕсли;
+	
+		ПараметрыЗапуска.Добавить(ОбернутьВКавычки(ПутьКФайлуКонфигурации));
+
+		ПараметрыЗапуска.Добавить(ОбернутьВКавычки(ПутьКФайлуКонфигурации));
+
 	Иначе
 		ПараметрыЗапуска.Добавить("-FirstConfigurationType MainConfiguration");
 	КонецЕсли;
@@ -1862,10 +1878,10 @@
 	Если ИспользуемаяВерсияПлатформыСтаршеИлиРавна("8.3.12") Тогда
 		ПараметрыЗапуска.Добавить("-SecondFile ");
 	Иначе
-		ПараметрыЗапуска.Добавить("-SecondConfigurationKey ");		
-	КонецЕсли; 
+		ПараметрыЗапуска.Добавить("-SecondConfigurationKey ");
+	КонецЕсли;
 
-	ПараметрыЗапуска.Добавить(ОбернутьВКавычки(ПутьКФайлуКонфигурации));	
+	ПараметрыЗапуска.Добавить(ОбернутьВКавычки(ПутьКФайлуКонфигурации));
 
 	ПараметрыЗапуска.Добавить("-ReportType ");
 	ПараметрыЗапуска.Добавить(ТипОтчета);
@@ -1874,7 +1890,7 @@
 	ПараметрыЗапуска.Добавить(ФорматОтчета);
 
 	ПараметрыЗапуска.Добавить("-ReportFile ");
-	ПараметрыЗапуска.Добавить(ОбернутьВКавычки(ПутьКОтчету));	
+	ПараметрыЗапуска.Добавить(ОбернутьВКавычки(ПутьКОтчету));
 
 	ВыполнитьКоманду(ПараметрыЗапуска);