vanessa-opensource · monwig · Oct 18, 2023
diff --git a/tests/smoke/smoke.bsp.json b/tests/smoke/smoke.bsp.json
@@ -333,10 +333,12 @@
         ]
     },
 
-    "ЗаписьЭлементовСправочников":{
+    "Тесты_ЗаписьЭлементовСправочников":{
         "Используется" : true,
+        "ОтборПоПрефиксу" : false,
         "КоличествоПервыхЭлементов" : 3,
         "КоличествоПоследнихЭлементов" : 3,
+        "ВыводитьИсключения" : false,
         "Исключения" : [
             "*ПрисоединенныеФайлы"
             , "ИдентификаторыОбъектовМетаданных"

diff --git a/tests/smoke/smoke.example.json b/tests/smoke/smoke.example.json
@@ -197,10 +197,12 @@
 	  }
     },
 
-    "ЗаписьЭлементовСправочников":{
+    "Тесты_ЗаписьЭлементовСправочников":{
         "Используется" : true,
+        "ОтборПоПрефиксу" : false,
         "КоличествоПервыхЭлементов" : 3,
         "КоличествоПоследнихЭлементов" : 3,
+        "ВыводитьИсключения" : false,
         "Исключения" : [
             "*ПрисоединенныеФайлы"
             , "ИдентификаторыОбъектовМетаданных"

diff --git a/tests/smoke/тесты_ЗаписьЭлементовСправочников/тесты_ЗаписьЭлементовСправочников.xml b/tests/smoke/тесты_ЗаписьЭлементовСправочников/тесты_ЗаписьЭлементовСправочников.xml
@@ -1,26 +1,26 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.4">
+<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.15">
 	<ExternalDataProcessor uuid="337e12f2-aa9f-4014-a498-8a933b546286">
 		<InternalInfo>
 			<xr:ContainedObject>
 				<xr:ClassId>c3831ec8-d8d5-4f93-8a22-f9bfae07327f</xr:ClassId>
 				<xr:ObjectId>779efd25-8f08-4570-9985-54d34c524784</xr:ObjectId>
 			</xr:ContainedObject>
-			<xr:GeneratedType name="ExternalDataProcessorObject.тесты_ЗаписьЭлементовСправочников" category="Object">
+			<xr:GeneratedType name="ExternalDataProcessorObject.Тесты_ЗаписьЭлементовСправочников" category="Object">
 				<xr:TypeId>55a6d1d9-c608-4d54-b4ab-fd30cfd055dc</xr:TypeId>
 				<xr:ValueId>973684fd-8334-4f26-a08e-747ff9e5a09f</xr:ValueId>
 			</xr:GeneratedType>
 		</InternalInfo>
 		<Properties>
-			<Name>тесты_ЗаписьЭлементовСправочников</Name>
+			<Name>Тесты_ЗаписьЭлементовСправочников</Name>
 			<Synonym>
 				<v8:item>
 					<v8:lang>ru</v8:lang>
-					<v8:content>Проверка программной записи элементов справочников</v8:content>
+					<v8:content>smoke # Проверка программной записи элементов справочников</v8:content>
 				</v8:item>
 			</Synonym>
 			<Comment/>
-			<DefaultForm/>
+			<DefaultForm>ExternalDataProcessor.Тесты_ЗаписьЭлементовСправочников.Form.Форма</DefaultForm>
 			<AuxiliaryForm/>
 		</Properties>
 		<ChildObjects>
@@ -94,6 +94,7 @@
 					<ChoiceHistoryOnInput>Auto</ChoiceHistoryOnInput>
 				</Properties>
 			</Attribute>
+			<Form>Форма</Form>
 		</ChildObjects>
 	</ExternalDataProcessor>
 </MetaDataObject>
diff --git a/.../тесты_ЗаписьЭлементовСправочников/тесты_ЗаписьЭлементовСправочников/Ext/ObjectModule.bsl b/.../тесты_ЗаписьЭлементовСправочников/тесты_ЗаписьЭлементовСправочников/Ext/ObjectModule.bsl
@@ -1,262 +1 @@
-#Область ОписаниеПеременных
-
-Перем КонтекстЯдра;
-Перем Утверждения;
-Перем УтвержденияПроверкаТаблиц;
-
-#КонецОбласти
-
-#Область ПрограммныйИнтерфейс
-
-#Область ИнтерфейсТестирования
-
-Функция КлючНастройкиУстаревший()
-	Возврат "ЗаписьЭлементовСправочников";
-КонецФункции
-
-Функция КлючНастройки()
-	Если Не ЗначениеЗаполнено(ИмяТеста) Тогда
-		ИмяТеста = Метаданные().Имя;
-	КонецЕсли;
-
-	Возврат ИмяТеста;
-КонецФункции
-
-Процедура Инициализация(КонтекстЯдраПараметр) Экспорт
-
-	КонтекстЯдра = КонтекстЯдраПараметр;
-	Утверждения = КонтекстЯдра.Плагин("БазовыеУтверждения");
-
-	ЗагрузитьНастройки();
-
-КонецПроцедуры
-
-Процедура ЗаполнитьНаборТестов(НаборТестов, КонтекстЯдраПараметр) Экспорт
-
-	КонтекстЯдра = КонтекстЯдраПараметр;
-	ЗапросыИзБД = КонтекстЯдра.Плагин("ЗапросыИзБД");
-	ЗапросыИзБД.Инициализация(КонтекстЯдра);
-
-
-	ЗагрузитьНастройки();
-
-	Если Не НужноВыполнятьТест() Тогда
-		Возврат;
-	КонецЕсли;
-
-	Для Каждого МетаОбъект Из Метаданные.Справочники Цикл
-		МожноМенять = ЗапросыИзБД.РазрешеноИзменятьОбъектВМоделиСервиса(МетаОбъект);
-
-		Если МожноМенять И ПравоДоступа("Изменение", МетаОбъект) 
-			И (Не Настройки.ОтборПоПрефиксу ИЛИ СтрНачинаетсяС(ВРег(МетаОбъект.Имя), ВРег(Настройки.Префикс))) Тогда
-
-			ДобавитьТестыДляСправочника(НаборТестов, МетаОбъект);
-		КонецЕсли;
-	КонецЦикла;
-
-КонецПроцедуры
-
-#КонецОбласти
-
-#Область Тесты
-
-Процедура ПередЗапускомТеста() Экспорт
-
-	НачатьТранзакцию();
-
-КонецПроцедуры
-
-Процедура ПослеЗапускаТеста() Экспорт
-
-	Если ТранзакцияАктивна() Тогда
-		ОтменитьТранзакцию();
-	КонецЕсли;
-
-КонецПроцедуры
-
-Процедура Тест_ЗаписатьЭлементСправочника(СправочникСсылка) Экспорт
-
-	ЭлементОбъект = СправочникСсылка.ПолучитьОбъект();
-	ЭлементОбъект.Записать();
-
-КонецПроцедуры
-
-Процедура Тест_ПропуститьЗаписьЭлементаСправочника(Знач Сообщение) Экспорт
-
-	КонтекстЯдра.ПропуститьТест(Сообщение);
-
-КонецПроцедуры
-
-#КонецОбласти
-
-#КонецОбласти
-
-#Область СлужебныеПроцедурыИФункции
-
-#Область Настройки
-
-Процедура ЗагрузитьНастройки()
-
-	Если ЗначениеЗаполнено(Настройки) Тогда
-		Возврат;
-	КонецЕсли;
-
-	ПлагинНастройки = КонтекстЯдра.Плагин("Настройки");
-	ПлагинНастройки.Инициализация(КонтекстЯдра);
-
-	НастройкиПоУмолчанию = НастройкиПоУмолчанию();
-	Настройки = ПлагинНастройки.ПолучитьНастройку(КлючНастройки());
-	Если Не ЗначениеЗаполнено(Настройки) Тогда
-		Настройки = ПлагинНастройки.ПолучитьНастройку(КлючНастройкиУстаревший()); // обратная совместимость
-	КонецЕсли;
-	Если Не ЗначениеЗаполнено(Настройки) ИЛИ ТипЗнч(Настройки) <> Тип("Структура") Тогда
-		Настройки = НастройкиПоУмолчанию;
-	КонецЕсли;
-
-	ЗаполнитьЗначенияСвойств(НастройкиПоУмолчанию, Настройки);
-	Настройки = НастройкиПоУмолчанию;
-КонецПроцедуры
-
-Функция НастройкиПоУмолчанию()
-
-	Результат = Новый Структура;
-
-	Результат.Вставить("Используется", Истина);
-	Результат.Вставить("КоличествоПервыхЭлементов", 2);
-	Результат.Вставить("КоличествоПоследнихЭлементов", 2);
-	Результат.Вставить("Исключения", Новый Массив);
-	Результат.Вставить("ВыводитьИсключения", Ложь);
-	Результат.Вставить("Префикс", "");
-	Результат.Вставить("ОтборПоПрефиксу", Ложь);
-
-	Возврат Результат;
-КонецФункции
-
-Функция НужноВыполнятьТест()
-
-	ЗагрузитьНастройки();
-
-	Если Не ЗначениеЗаполнено(Настройки) Тогда
-		Возврат Истина;
-	КонецЕсли;
-
-	КлючНастройки = КлючНастройки();
-
-	ВыполнятьТест = Истина;
-	Если ТипЗнч(Настройки) = Тип("Структура")
-		И Настройки.Свойство("Используется", ВыполнятьТест) Тогда
-
-		Возврат ВыполнятьТест = Истина;
-	КонецЕсли;
-
-	Возврат Истина;
-
-КонецФункции
-
-#КонецОбласти
-
-Процедура ДобавитьТестыДляСправочника(НаборТестов, МетаОбъект)
-
-	Запрос = Новый Запрос;
-	Запрос.Текст = 
-	"ВЫБРАТЬ ПЕРВЫЕ &КоличествоПервыхЭлементов
-	|	Ссылка
-	|ПОМЕСТИТЬ вт_Первые
-	|ИЗ
-	|	Справочник." + МетаОбъект.Имя + "
-	|ГДЕ
-	|	НЕ ЭтоГруппа И Не Предопределенный И Не ПометкаУдаления
-	|
-	|УПОРЯДОЧИТЬ ПО
-	|	Ссылка
-	|;
-	|
-	|////////////////////////////////////////////////////////////////////////////////
-	|ВЫБРАТЬ ПЕРВЫЕ &КоличествоПоследнихЭлементов
-	|	Ссылка
-	|ПОМЕСТИТЬ вт_Последние
-	|ИЗ
-	|	Справочник." + МетаОбъект.Имя + "
-	|ГДЕ
-	|	НЕ ЭтоГруппа И Не Предопределенный И Не ПометкаУдаления
-	|
-	|УПОРЯДОЧИТЬ ПО
-	|	Ссылка УБЫВ
-	|;
-	|
-	|////////////////////////////////////////////////////////////////////////////////
-	|ВЫБРАТЬ
-	|	вт_Первые.Ссылка КАК Ссылка
-	|ПОМЕСТИТЬ вт_Все
-	|ИЗ
-	|	вт_Первые КАК вт_Первые
-	|
-	|ОБЪЕДИНИТЬ
-	|
-	|ВЫБРАТЬ
-	|	вт_Последние.Ссылка
-	|ИЗ
-	|	вт_Последние КАК вт_Последние;
-	|
-	|ВЫБРАТЬ
-	|	вт_Все.Ссылка,
-	|   ПРЕДСТАВЛЕНИЕ(вт_Все.Ссылка) КАК Представление
-	|ИЗ
-	|	вт_Все КАК вт_Все";
-
-	Запрос.Текст = СтрЗаменить(Запрос.Текст, 
-								"ВЫБРАТЬ ПЕРВЫЕ &КоличествоПервыхЭлементов", 
-								"ВЫБРАТЬ ПЕРВЫЕ " + Формат(Настройки.КоличествоПервыхЭлементов, "ЧГ=")
-								);	
-	Запрос.Текст = СтрЗаменить(Запрос.Текст, 
-								"ВЫБРАТЬ ПЕРВЫЕ &КоличествоПоследнихЭлементов", 
-								"ВЫБРАТЬ ПЕРВЫЕ " + Формат(Настройки.КоличествоПоследнихЭлементов, "ЧГ=")
-								);
-	Если НЕ МетаОбъект.Иерархический 
-		ИЛИ МетаОбъект.ВидИерархии <> Метаданные.СвойстваОбъектов.ВидИерархии.ИерархияГруппИЭлементов Тогда
-			Запрос.Текст = СтрЗаменить(Запрос.Текст, "НЕ ЭтоГруппа", "ИСТИНА");
-	КонецЕсли;
-
-	РезультатЗапроса = Запрос.Выполнить();
-	Если РезультатЗапроса.Пустой() Тогда
-		Возврат;	
-	КонецЕсли; 
-
-	ПредставлениеТеста = "Проверка записи элемента справочника - " + МетаОбъект.Имя;
-	Сообщение = "Пропускаем из-за исключения по имени справочника - " + ПредставлениеТеста; 
-	ЭтоИсключение = Ложь;
-
-	Если КонтекстЯдра.ЕстьВИсключаемойКоллекции(МетаОбъект.Имя, Настройки.Исключения) Тогда
-		КонтекстЯдра.Отладка(Сообщение); 
-
-		Если Не Настройки.ВыводитьИсключения Тогда
-		    Возврат;
-		КонецЕсли;	
-
-		ЭтоИсключение = Истина;
-	КонецЕсли;
-
-	НаборТестов.НачатьГруппу(МетаОбъект.Синоним + " - Справочник."  + МетаОбъект.Имя);
-
-	Если ЭтоИсключение Тогда
-		ПараметрыТеста = НаборТестов.ПараметрыТеста(Сообщение);
-		НаборТестов.Добавить("Тест_ПропуститьЗаписьЭлементаСправочника", ПараметрыТеста, Сообщение);
-	Иначе
-		Выборка = РезультатЗапроса.Выбрать();
-		Пока Выборка.Следующий() Цикл
-			ПараметрыТеста = НаборТестов.ПараметрыТеста(Выборка.Ссылка);
-			ПредставлениеТеста = СтрШаблон("Проверка записи элемента справочника - %1", Выборка.Представление);
-
-			НаборТестов.Добавить("Тест_ЗаписатьЭлементСправочника", ПараметрыТеста, ПредставлениеТеста);			
-		КонецЦикла; 
-	КонецЕсли;	
-
-КонецПроцедуры
-
-Функция ИмяТеста()
-
-	Возврат Метаданные().Имя;
-
-КонецФункции
-
-#КонецОбласти
+
diff --git a/...smoke/тесты_ЗаписьЭлементовСправочников/тесты_ЗаписьЭлементовСправочников/Forms/Форма.xml b/...smoke/тесты_ЗаписьЭлементовСправочников/тесты_ЗаписьЭлементовСправочников/Forms/Форма.xml
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.15">
+	<Form uuid="2e3942f8-47c4-48e4-aa67-de7c669f9129">
+		<Properties>
+			<Name>Форма</Name>
+			<Synonym>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Форма</v8:content>
+				</v8:item>
+			</Synonym>
+			<Comment/>
+			<FormType>Managed</FormType>
+			<IncludeHelpInContents>false</IncludeHelpInContents>
+			<UsePurposes>
+				<v8:Value xsi:type="app:ApplicationUsePurpose">PlatformApplication</v8:Value>
+				<v8:Value xsi:type="app:ApplicationUsePurpose">MobilePlatformApplication</v8:Value>
+			</UsePurposes>
+			<ExtendedPresentation/>
+		</Properties>
+	</Form>
+</MetaDataObject>
diff --git a/...ты_ЗаписьЭлементовСправочников/тесты_ЗаписьЭлементовСправочников/Forms/Форма/Ext/Form.xml b/...ты_ЗаписьЭлементовСправочников/тесты_ЗаписьЭлементовСправочников/Forms/Форма/Ext/Form.xml
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Form xmlns="http://v8.1c.ru/8.3/xcf/logform" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core" xmlns:dcssch="http://v8.1c.ru/8.1/data-composition-system/schema" xmlns:dcsset="http://v8.1c.ru/8.1/data-composition-system/settings" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.15">
+	<AutoCommandBar name="ФормаКоманднаяПанель" id="-1"/>
+	<Attributes>
+		<Attribute name="Объект" id="1">
+			<Type>
+				<v8:Type>cfg:ExternalDataProcessorObject.Тесты_ЗаписьЭлементовСправочников</v8:Type>
+			</Type>
+			<MainAttribute>true</MainAttribute>
+		</Attribute>
+	</Attributes>
+</Form>