Merge pull request #2451 from Kyrales/issue-2450_ErrorGenSmoke

fix: Исправлена ошибка формирования дымовых тестов по "Регистр расчета" + порядок сортировки

Author: Pr-Mex

VanessaAutomation/Forms/ГенераторДымовыхТестов/Ext/Form.xml

@@ -1279,6 +1279,26 @@ Document3.ListForm</v8:content>
 						</v8:StringQualifiers>
 					</Type>
 				</Column>
+				<Column name="Приоритет" id="10">
+					<Title>
+						<v8:item>
+							<v8:lang>ru</v8:lang>
+							<v8:content>Приоритет</v8:content>
+						</v8:item>
+						<v8:item>
+							<v8:lang>en</v8:lang>
+							<v8:content>Priority</v8:content>
+						</v8:item>
+					</Title>
+					<Type>
+						<v8:Type>xs:decimal</v8:Type>
+						<v8:NumberQualifiers>
+							<v8:Digits>2</v8:Digits>
+							<v8:FractionDigits>0</v8:FractionDigits>
+							<v8:AllowedSign>Nonnegative</v8:AllowedSign>
+						</v8:NumberQualifiers>
+					</Type>
+				</Column>
 			</Columns>
 		</Attribute>
 		<Attribute name="ТолькоВведенныеОбъекты" id="8">
@@ -1667,6 +1687,26 @@ Document3.ListForm</v8:content>
 						<v8:Type>xs:boolean</v8:Type>
 					</Type>
 				</Column>
+				<Column name="Приоритет" id="10">
+					<Title>
+						<v8:item>
+							<v8:lang>ru</v8:lang>
+							<v8:content>Приоритет</v8:content>
+						</v8:item>
+						<v8:item>
+							<v8:lang>en</v8:lang>
+							<v8:content>Priority</v8:content>
+						</v8:item>
+					</Title>
+					<Type>
+						<v8:Type>xs:decimal</v8:Type>
+						<v8:NumberQualifiers>
+							<v8:Digits>4</v8:Digits>
+							<v8:FractionDigits>0</v8:FractionDigits>
+							<v8:AllowedSign>Nonnegative</v8:AllowedSign>
+						</v8:NumberQualifiers>
+					</Type>
+				</Column>
 			</Columns>
 		</Attribute>
 		<Attribute name="КартинкаРеквизит" id="15">

VanessaAutomation/Forms/ГенераторДымовыхТестов/Ext/Form/Module.bsl

@@ -973,11 +973,14 @@
 		НСтрокаНастроек.ОбъектМетаданных = ТипМетаданных.Ключ;
 		НСтрокаНастроек.ПредставлениеОбъектаМетаданных = ТипМетаданных.Значение.ПредставлениеОбъектаМетаданных;
 		НСтрокаНастроек.Картинка = ТипМетаданных.Значение.КартинкаОбъектаМетаданных;
+		НСтрокаНастроек.Приоритет = ТипМетаданных.Значение.Приоритет;
 
 		ЗаполнитьСтрокуНастроекПоУмолчанию(ТипМетаданных.Ключ, НСтрокаНастроек);
-
+    	
 	КонецЦикла;
 
+	ТаблицаНастроек.Сортировать("Приоритет");
+	
 КонецПроцедуры
 
 &НаСервереБезКонтекста
@@ -1207,29 +1210,29 @@
 
 	ТипыМетаданных = Новый Соответствие;
 	ТипыМетаданных.Вставить("Справочники", ДанныеПоМетаданному(ПредставлениеМетаданных.Справочники, 
-		ПредставлениеЕдиницыМетаданных.Справочник, БиблиотекаКартинок.Справочник));
+		ПредставлениеЕдиницыМетаданных.Справочник, БиблиотекаКартинок.Справочник, 1));
 	ТипыМетаданных.Вставить("Документы", ДанныеПоМетаданному(ПредставлениеМетаданных.Документы, 
-		ПредставлениеЕдиницыМетаданных.Документ, БиблиотекаКартинок.Документ));
-	ТипыМетаданных.Вставить("ПланыВидовХарактеристик", ДанныеПоМетаданному(ПредставлениеМетаданных.ПланыВидовХарактеристик, 
-		ПредставлениеЕдиницыМетаданных.ПланВидовХарактеристик, БиблиотекаКартинок.ПланВидовХарактеристик));
-	ТипыМетаданных.Вставить("ПланыСчетов", ДанныеПоМетаданному(ПредставлениеМетаданных.ПланыСчетов, 
-		ПредставлениеЕдиницыМетаданных.ПланСчетов, БиблиотекаКартинок.ПланСчетов));
-	ТипыМетаданных.Вставить("ПланыВидовРасчета", ДанныеПоМетаданному(ПредставлениеМетаданных.ПланыВидовРасчета, 
-		ПредставлениеЕдиницыМетаданных.ПланВидовРасчета, БиблиотекаКартинок.ПланВидовРасчета));
+		ПредставлениеЕдиницыМетаданных.Документ, БиблиотекаКартинок.Документ, 2));
 	ТипыМетаданных.Вставить("ЖурналыДокументов", ДанныеПоМетаданному(ПредставлениеМетаданных.ЖурналыДокументов, 
-		ПредставлениеЕдиницыМетаданных.ЖурналДокументов, БиблиотекаКартинок.ЖурналДокументов));
+		ПредставлениеЕдиницыМетаданных.ЖурналДокументов, БиблиотекаКартинок.ЖурналДокументов, 3));
 	ТипыМетаданных.Вставить("Отчеты", ДанныеПоМетаданному(ПредставлениеМетаданных.Отчеты, 
-		ПредставлениеЕдиницыМетаданных.Отчет, БиблиотекаКартинок.Отчет));
+		ПредставлениеЕдиницыМетаданных.Отчет, БиблиотекаКартинок.Отчет, 4));
 	ТипыМетаданных.Вставить("Обработки", ДанныеПоМетаданному(ПредставлениеМетаданных.Обработки, 
-		ПредставлениеЕдиницыМетаданных.Обработка, БиблиотекаКартинок.Обработка));
+		ПредставлениеЕдиницыМетаданных.Обработка, БиблиотекаКартинок.Обработка, 5));
+	ТипыМетаданных.Вставить("ПланыВидовХарактеристик", ДанныеПоМетаданному(ПредставлениеМетаданных.ПланыВидовХарактеристик, 
+		ПредставлениеЕдиницыМетаданных.ПланВидовХарактеристик, БиблиотекаКартинок.ПланВидовХарактеристик, 6));
+	ТипыМетаданных.Вставить("ПланыСчетов", ДанныеПоМетаданному(ПредставлениеМетаданных.ПланыСчетов, 
+		ПредставлениеЕдиницыМетаданных.ПланСчетов, БиблиотекаКартинок.ПланСчетов, 6));
+	ТипыМетаданных.Вставить("ПланыВидовРасчета", ДанныеПоМетаданному(ПредставлениеМетаданных.ПланыВидовРасчета, 
+		ПредставлениеЕдиницыМетаданных.ПланВидовРасчета, БиблиотекаКартинок.ПланВидовРасчета, 7));
 	ТипыМетаданных.Вставить("РегистрыСведений", ДанныеПоМетаданному(ПредставлениеМетаданных.РегистрыСведений, 
-		ПредставлениеЕдиницыМетаданных.РегистрСведений, БиблиотекаКартинок.РегистрСведений));
+		ПредставлениеЕдиницыМетаданных.РегистрСведений, БиблиотекаКартинок.РегистрСведений, 8));
 	ТипыМетаданных.Вставить("РегистрыНакопления", ДанныеПоМетаданному(ПредставлениеМетаданных.РегистрыНакопления, 
-		ПредставлениеЕдиницыМетаданных.РегистрНакопления, БиблиотекаКартинок.РегистрНакопления));
+		ПредставлениеЕдиницыМетаданных.РегистрНакопления, БиблиотекаКартинок.РегистрНакопления, 9));
 	ТипыМетаданных.Вставить("РегистрыБухгалтерии", ДанныеПоМетаданному(ПредставлениеМетаданных.РегистрыБухгалтерии, 
-		ПредставлениеЕдиницыМетаданных.РегистрБухгалтерии, БиблиотекаКартинок.РегистрБухгалтерии));
+		ПредставлениеЕдиницыМетаданных.РегистрБухгалтерии, БиблиотекаКартинок.РегистрБухгалтерии, 10));
 	ТипыМетаданных.Вставить("РегистрыРасчета", ДанныеПоМетаданному(ПредставлениеМетаданных.РегистрыРасчета, 
-		ПредставлениеЕдиницыМетаданных.РегистрРасчета, БиблиотекаКартинок.РегистрРасчета));
+		ПредставлениеЕдиницыМетаданных.РегистрРасчета, БиблиотекаКартинок.РегистрРасчета, 11));
 
 	Для каждого ТекСтрока Из ТипыМетаданных Цикл
 
@@ -1242,12 +1245,13 @@
 КонецФункции
 
 &НаКлиентеНаСервереБезКонтекста
-Функция ДанныеПоМетаданному(ПредставлениеОбъектаМетаданных, ЕдиницаОбъектаМетаданных, КартинкаОбъектаМетаданных)
+Функция ДанныеПоМетаданному(ПредставлениеОбъектаМетаданных, ЕдиницаОбъектаМетаданных, КартинкаОбъектаМетаданных, Приоритет)
 
 	РезультатДанных = Новый Структура;
 	РезультатДанных.Вставить("ПредставлениеОбъектаМетаданных", ПредставлениеОбъектаМетаданных);
 	РезультатДанных.Вставить("ЕдиницаОбъектаМетаданных", ЕдиницаОбъектаМетаданных);
 	РезультатДанных.Вставить("КартинкаОбъектаМетаданных", КартинкаОбъектаМетаданных);
+	РезультатДанных.Вставить("Приоритет", Приоритет);
 
 	Возврат РезультатДанных;
 
@@ -1357,7 +1361,7 @@
 		ВозвращаемыеДанные.Вставить("РегистрСведений",			"РегистрСведений");
 		ВозвращаемыеДанные.Вставить("РегистрНакопления",		"РегистрНакопления");
 		ВозвращаемыеДанные.Вставить("РегистрБухгалтерии",		"РегистрБухгалтерии");
-		ВозвращаемыеДанные.Вставить("РегистрРасчета",			"РегистрБухгалтерии");
+		ВозвращаемыеДанные.Вставить("РегистрРасчета",			"РегистрРасчета");
 	КонецЕсли;
 
 	Возврат ВозвращаемыеДанные;
@@ -1443,6 +1447,9 @@
 		ДобавлениеМетаданныхГруппы(ТекСтрока.Значение);	
 
 	КонецЦикла;
+		
+	// Сортировка по приоритету типов метаданных.
+    СортироватьДанныеФормыДерево(ДеревоМетаданных, "Приоритет");
 
 КонецПроцедуры
 
@@ -1461,6 +1468,7 @@
 	НоваяГруппа.Картинка		= ТипМетаданных.КартинкаОбъектаМетаданных;
 	НоваяГруппа.ТипОбъектаМетаданных = ТипМетаданных.ТипОбъектаМетаданных;	
 	НоваяГруппа.УровеньДерева = 1;
+	НоваяГруппа.Приоритет 		= ТипМетаданных.Приоритет;
 
 	ЗаполнитьСтрокуНастроекПоУмолчанию(ТипМетаданных.ТипОбъектаМетаданных, НоваяГруппа);	
 
@@ -1707,6 +1715,65 @@
 
 КонецПроцедуры
 
+&НаКлиентеНаСервереБезКонтекста
+Процедура СортироватьДанныеФормыДерево(КоллекцияСортировки, КолонкаСортировки, ВключатьПодчиненные = Ложь)
+	
+	КоллекцияСтрок  = КоллекцияСортировки.ПолучитьЭлементы();
+	
+	СортироватьДанныеФормыКоллекция(КоллекцияСтрок, КолонкаСортировки);
+	
+	Если ВключатьПодчиненные Тогда
+		Для Каждого ТекущаяСтрока Из КоллекцияСтрок Цикл
+			СортироватьДанныеФормыДерево(ТекущаяСтрока, КолонкаСортировки, ВключатьПодчиненные);
+		КонецЦикла;
+	КонецЕсли;
+	
+КонецПроцедуры
+
+&НаКлиентеНаСервереБезКонтекста
+Процедура СортироватьДанныеФормыКоллекция(КоллекцияСтрок, КолонкаСортировки)
+	
+	ПараметрыЗначений     = Новый Соответствие;
+	СортированныеЗначения = Новый СписокЗначений;
+	
+	Для Каждого ТекущаяСтрока Из КоллекцияСтрок Цикл
+		
+		ТекущееЗначение = ТекущаяСтрока[КолонкаСортировки];
+		
+		ПараметрыЗначения = ПараметрыЗначений.Получить(ТекущееЗначение);
+		Если ПараметрыЗначения = Неопределено Тогда
+			ПараметрыЗначения = Новый Массив;
+			ПараметрыЗначений.Вставить(ТекущееЗначение, ПараметрыЗначения);
+			СортированныеЗначения.Добавить(ТекущееЗначение);
+		КонецЕсли;
+		
+		ПараметрыЗначения.Добавить(ТекущаяСтрока);
+		
+	КонецЦикла;
+	
+	СортированныеЗначения.СортироватьПоЗначению(НаправлениеСортировки.Возр);
+	
+	
+	НовыйИндекс = 0;
+	Для Каждого ТекущееЗначение Из СортированныеЗначения Цикл
+		
+		МассивСтрок = ПараметрыЗначений.Получить(ТекущееЗначение.Значение);
+		Для Каждого ТекущаяСтрока Из МассивСтрок Цикл
+			
+			ТекущийИндекс = КоллекцияСтрок.Индекс(ТекущаяСтрока);
+			ШагСдвига     = НовыйИндекс - ТекущийИндекс;
+			Если НЕ ШагСдвига = 0 Тогда
+				КоллекцияСтрок.Сдвинуть(ТекущийИндекс, ШагСдвига);
+			КонецЕсли;
+			
+			НовыйИндекс   = НовыйИндекс + 1;
+			
+		КонецЦикла;
+		
+	КонецЦикла;
+	
+КонецПроцедуры
+
 #КонецОбласти
 
 #Область СформироватьСценарииПоМетаданным