Merge pull request #16 from pallid/master

WIP: #15 Параметры алгоритмов

Author: otymko

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

@@ -83,7 +83,7 @@
 
 			Идентификатор = ?(Не ПустаяСтрока(ТекущаяСтрока.Идентификатор), ТекущаяСтрока.Идентификатор, ТекущаяСтрока.Имя);
 
-			Если ИмяЭлементаСтроки = "Параметры" 
+			Если (ИмяЭлементаСтроки = "Параметры" И НЕ ТекущаяСтрока.Родитель.Имя = "Алгоритм")
 				Или ИмяЭлементаСтроки = "Обработки" 
 				Или ИмяЭлементаСтроки = "ПравилаКонвертацииОбъектов" 
 				Или ИмяЭлементаСтроки = "ПравилаВыгрузкиДанных"
@@ -111,6 +111,11 @@
 
 				ИмяКаталогаСобытий = СоздатьКаталогСобытий(ТекущийКаталог);	
 				ЗаписатьСобытиеПравилВФайл(ТекущаяСтрока, ТекущаяСтрока.Имя, ИмяКаталогаСобытий);
+			
+			ИначеЕсли ИмяЭлементаСтроки = "Параметры" И ТекущаяСтрока.Родитель.Имя = "Алгоритм" Тогда
+				
+				ИмяКаталогаСобытий = СоздатьКаталогСобытий(ТекущийКаталог);	
+				ЗаписатьСобытиеПравилВФайл(ТекущаяСтрока, ТекущаяСтрока.Имя, ИмяКаталогаСобытий, Неопределено);	
 
 			ИначеЕсли ИмяЭлементаСтроки = "Группа" Или ИмяЭлементаСтроки = "Свойства" Или ИмяЭлементаСтроки = "Значения" Тогда
 

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

@@ -584,6 +584,12 @@
 			Текст = ПрочитатьИзТекстовогоДокумента(СтрокаТекста.Путь);
 			ДобавитьНовуюСтрокуДереваПравил(УзелАлгоритма, "Текст",,Текст);	
 		КонецЕсли;
+
+		СтрокаПараметры = СтрокаДереваСобытий.Строки.Найти("Параметры", "Имя");
+		Если СтрокаПараметры <> Неопределено Тогда
+			Параметры = ПрочитатьИзТекстовогоДокумента(СтрокаПараметры.Путь);
+			ДобавитьНовуюСтрокуДереваПравил(УзелАлгоритма, "Параметры",,Параметры);	
+		КонецЕсли;
 
 	КонецЕсли;
 

tests/fixtures/fake-rules.xml

@@ -19705,6 +19705,16 @@
 
 КонецЦикла;</Текст>
 		</Алгоритм>
+		<Алгоритм Имя="ФейковыйАлгоритмСПараметрами" ИспользуетсяПриЗагрузке="false">
+			<Текст>
+			Если ЗначениеЗаполнено(ОбъектКоллекции)Тогда
+				Значение = ОбъектКоллекции.Данные;
+			Иначе
+				Пусто = Истина;
+			КонецЕсли;	
+			</Текст>
+			<Параметры>Значение, ОбъектКоллекции, Пусто</Параметры>
+		</Алгоритм>
 	</Алгоритмы>
 	<Запросы/>
 </ПравилаОбмена>

tests/РазобратьсяПравилаОбмена_test.os

@@ -4,6 +4,7 @@
 
 Перем юТест;
 Перем Лог;
+Перем КаталогРаспаковки;
 
 Функция ПолучитьСписокТестов(Знач Тестирование) Экспорт
 
@@ -12,11 +13,16 @@
 	ИменаТестов = Новый Массив;
 
 	ИменаТестов.Добавить("ТестДолжен_ПроверитьРазборкуПравилОбмена");
+	ИменаТестов.Добавить("ТестДолжен_ПроверитьРазборкуПравилОбменаССозданиеПараметровДляАлгоритмов");
 
 	Возврат ИменаТестов;
 
 КонецФункции
 
+Процедура ПередОкончаниемСценария() Экспорт
+	ВременныеФайлы.УдалитьФайл(КаталогРаспаковки);
+КонецПроцедуры
+
 Процедура ТестДолжен_ПроверитьРазборкуПравилОбмена() Экспорт
 
 	КаталогРаспаковки = ВременныеФайлы.СоздатьКаталог();
@@ -29,7 +35,21 @@
 
 	Ожидаем.Что(МассивФайлов.Количество(), "Количество файлов должно быть больше 0").Больше(0);
 
-	ВременныеФайлы.УдалитьФайл(КаталогРаспаковки);
+КонецПроцедуры
+
+Процедура ТестДолжен_ПроверитьРазборкуПравилОбменаССозданиеПараметровДляАлгоритмов() Экспорт
+	
+	Результат = Ложь;
+
+	МассивФайлов = НайтиФайлы(КаталогРаспаковки, "Параметры", Истина);
+
+	Для каждого СтрокаМассива Из МассивФайлов Цикл
+		Если СтрокаМассива.ЭтоФайл() Тогда
+			Результат = Истина;
+		КонецЕсли;	
+	КонецЦикла;
+
+	Ожидаем.Что(Результат, "Должен быть файл Параметры").Равно(Истина);
 
 КонецПроцедуры