1c/yaxunit
1
0
Fork 0
mirror of https://github.com/bia-technologies/yaxunit.git synced 2024-11-27 08:31:11 +02:00
Code Issues Releases Activity

Merge pull request #416 from zerobig/fix#415

Browse Source 
Не удаляются тестовые данные расширений
This commit is contained in:
Koryakin Aleksey 2024-10-24 17:14:04 +03:00 committed by GitHub
commit 2f6deaa3d0
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
2 changed files with 73 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
exts/yaxunit/src/CommonModules/ЮТМетодыСлужебныйВызовСервера/Module.bsl
View File

@ -24,4 +24,68 @@
КонецФункции
Функция СсылочныеТипыДобавляемыеРасширениями() Экспорт
СсылочныеТипы = Новый Массив;
ТипыОбъектовМетаданныхСсылочногоТипа = ТипыОбъектовМетаданныхСсылочногоТипа();
УстановитьПривилегированныйРежим(Истина);
РасширенияСеанса = РасширенияКонфигурации.Получить(, ИсточникРасширенийКонфигурации.СеансАктивные);
Для Каждого Расширение Из РасширенияСеанса Цикл
Если НЕ Расширение.ИзменяетСтруктуруДанных() Тогда
Продолжить;
КонецЕсли;
ОМДРасширения = Новый ОбъектМетаданныхКонфигурация(Расширение.ПолучитьДанные());
Для Каждого ТипОМД Из ТипыОбъектовМетаданныхСсылочногоТипа Цикл
ДополнитьТипы(СсылочныеТипы, ТипОМД, ОМДРасширения);
КонецЦикла;
КонецЦикла;
Возврат СсылочныеТипы;
КонецФункции
#КонецОбласти
#Область СлужебныеПроцедурыИФункции
Процедура ДополнитьТипы(СсылочныеТипы, ТипОМД, ОМДРасширения)
ПринадлежностьОбъекта = Метаданные.СвойстваОбъектов.ПринадлежностьОбъекта.Собственный;
Для Каждого ОМД Из ОМДРасширения[ТипОМД] Цикл
Если ОМД.ПринадлежностьОбъекта <> ПринадлежностьОбъекта Тогда
Продолжить;
КонецЕсли;
ИмяПустойСсылкиТипа = ОМД.ПолноеИмя() + ".ПустаяСсылка";
СсылкаДляОпределенияТипа = ПредопределенноеЗначение(ИмяПустойСсылкиТипа);
СсылочныеТипы.Добавить(ТипЗнч(СсылкаДляОпределенияТипа));
КонецЦикла;
КонецПроцедуры
Функция ТипыОбъектовМетаданныхСсылочногоТипа()
ТипыОбъектовМетаданныхСсылочногоТипа = Новый Массив;
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("Справочники");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("Документы");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("БизнесПроцессы");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("Задачи");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("ПланыСчетов");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("ПланыОбмена");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("ПланыВидовХарактеристик");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("ПланыВидовРасчета");
Возврат ТипыОбъектовМетаданныхСсылочногоТипа;
КонецФункции
#КонецОбласти

10
exts/yaxunit/src/CommonModules/ЮТТипыДанныхСлужебный/Module.bsl
View File

@ -155,7 +155,15 @@
"<TypeDescription xmlns=""http://v8.1c.ru/8.1/data/core"">
| <TypeSet xmlns:cc=""http://v8.1c.ru/8.1/data/enterprise/current-config"">cc:AnyRef</TypeSet>
|</TypeDescription>");
Возврат СериализаторXDTO.ПрочитатьXML(ЧтениеXML);
ОписаниеТипаЛюбаяСсылка = СериализаторXDTO.ПрочитатьXML(ЧтениеXML);
СсылочныеТипыРасширений = ЮТМетодыСлужебныйВызовСервера.СсылочныеТипыДобавляемыеРасширениями();
Если СсылочныеТипыРасширений.Количество() <> 0 Тогда
ОписаниеТипаЛюбаяСсылка = Новый ОписаниеТипов(ОписаниеТипаЛюбаяСсылка, СсылочныеТипыРасширений);
КонецЕсли;
Возврат ОписаниеТипаЛюбаяСсылка;
#КонецЕсли
КонецЕсли;