Возможность выгружать правила в конкретный файл

Author: otymko

src/cmd/Классы/КомандаExport.os

@@ -12,14 +12,19 @@
         .ТСтрока(); // тип опции Строка
 
 	Команда.Аргумент("PATH", "" ,"Путь к каталогу распаковки правил")
-        .ТСтрока(); // тип опции Строка
+		.ТСтрока(); // тип опции Строка
+		
+	Команда.Опция("h here", Ложь, "Выгружать правило в выбранный каталог")
+		.ТБулево()
+		.Обязательный(Ложь);
 
 КонецПроцедуры
 
 Процедура ВыполнитьКоманду(Знач Команда) Экспорт
 
 	ПутьКФайлуПравила = Команда.ЗначениеАргумента("FILE");
 	КаталогРаспаковки = Команда.ЗначениеАргумента("PATH");
+	ВыгружатьВВыбранныйКаталог = Команда.ЗначениеОпции("here");
 
 	ФайлСПравилами = Новый Файл(ПутьКФайлуПравила);
 	Если Не ФайлСПравилами.Существует() Или ФайлСПравилами.ЭтоКаталог() Тогда
@@ -37,6 +42,7 @@
 	ФС.ОбеспечитьКаталог(КаталогРаспаковки);
 
 	МенеджерПравил = Новый ОбработкаПравил();
+	МенеджерПравил.УстановитьЗначениеВыгружатьВВыбранныйКаталог(ВыгружатьВВыбранныйКаталог);
 	МенеджерПравил.РазложитьПравилаКонвертации(ПутьКФайлуПравила, КаталогРаспаковки);
 
 КонецПроцедуры

src/core/Классы/ОбработкаПравил.os

@@ -1,6 +1,7 @@
 #Использовать 1commands
 
 Перем ОсновнойКаталогПравил;
+Перем ВыгружатьВВыбранныйКаталог;
 
 Процедура Инициализация()
 
@@ -34,7 +35,7 @@
 Процедура РазложитьПравилаКонвертации(Знач ПутьКПравилам, Знач КаталогРаспаковки) Экспорт
 
 	Сообщить("START Export");
-	РазобратьПравилаОбмена.ВыполнитьРазбор(КаталогРаспаковки, ПутьКПравилам);
+	РазобратьПравилаОбмена.ВыполнитьРазбор(КаталогРаспаковки, ПутьКПравилам, ВыгружатьВВыбранныйКаталог);
 	Сообщить("END");
 
 КонецПроцедуры
@@ -59,6 +60,10 @@
 
 КонецПроцедуры
 
+Процедура УстановитьЗначениеВыгружатьВВыбранныйКаталог(Знач Значение) Экспорт
+	ВыгружатьВВыбранныйКаталог =  Значение;
+КонецПроцедуры
+
 Процедура УстановитьОсновнойКаталог(Знач Значение) Экспорт
 	ОсновнойКаталогПравил = Значение; 
 КонецПроцедуры
@@ -110,5 +115,6 @@
 КонецФункции
 
 ОсновнойКаталогПравил = "";
+ВыгружатьВВыбранныйКаталог = Ложь;
 
 Инициализация();

src/core/Модули/РазобратьПравилаОбмена.os

@@ -30,11 +30,15 @@
 // 	КонецЦикла;
 // КонецПроцедуры
 
-Процедура ВыполнитьРазбор(Знач ОсновнойКаталогПравил, Знач ПутьКФайлуПравилОбмена) Экспорт
+Процедура ВыполнитьРазбор(Знач ОсновнойКаталогПравил, Знач ПутьКФайлуПравилОбмена, Знач ВыгружатьВВыбранныйКаталог = Ложь) Экспорт
 
 	ФайлПравил = Новый Файл(ПутьКФайлуПравилОбмена);
-	КаталогИсходныхПравил = ОбъединитьПути(ОсновнойКаталогПравил, ФайлПравил.Имя);
-	ОбщийФункционал.СоздатьКаталогРасширенный(КаталогИсходныхПравил);
+	Если ВыгружатьВВыбранныйКаталог Тогда
+		КаталогИсходныхПравил = ОсновнойКаталогПравил;		
+	Иначе
+		КаталогИсходныхПравил = ОбъединитьПути(ОсновнойКаталогПравил, ФайлПравил.Имя);
+		ОбщийФункционал.СоздатьКаталогРасширенный(КаталогИсходныхПравил);
+	КонецЕсли;
 	ИнициализироватьНачальныеПараметры();
 	РазобратьПравила(ПутьКФайлуПравилОбмена);
 
@@ -55,7 +59,7 @@
 		УдалитьФайлы(КаталогИсходныхПравил);
 		Возврат;	
 	КонецЕсли;
-
+	
 	КорневойУзел.Каталог = КаталогИсходныхПравил;	
 	МассивРеквизитовУзла = Новый Массив;	
 	РекурсивноРазобратьДеревоПравил(КорневойУзел, ИмяКорневогоУзла, КаталогИсходныхПравил, МассивРеквизитовУзла);	
@@ -111,7 +115,7 @@
 
 				ИмяКаталогаСобытий = СоздатьКаталогСобытий(ТекущийКаталог);	
 				ЗаписатьСобытиеПравилВФайл(ТекущаяСтрока, ТекущаяСтрока.Имя, ИмяКаталогаСобытий);
-			
+				
 			ИначеЕсли ИмяЭлементаСтроки = "Параметры" И ТекущаяСтрока.Родитель.Имя = "Алгоритм" Тогда
 
 				ИмяКаталогаСобытий = СоздатьКаталогСобытий(ТекущийКаталог);	
@@ -285,7 +289,7 @@
 			Если Не ЭтоПравилаРегистрации И ЧтениеXML.Имя = "ПравилаРегистрации" Тогда
 				ЭтоПравилаРегистрации = Истина;
 			КонецЕсли;
-
+			
 			НоваяСтрока = ТекущаяСтрокаДерева.Добавить();
 			НоваяСтрока.Имя = ЧтениеXML.Имя;
 			НоваяСтрока.ТипСтроки = "Элемент";