Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Не удаляются тестовые данные расширений #416

Open
wants to merge 3 commits into
base: develop
Choose a base branch
from
Open
Show file tree
Hide file tree
Changes from 2 commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Original file line number Diff line number Diff line change
Expand Up @@ -24,4 +24,69 @@

КонецФункции

Функция СсылочныеТипыДобавляемыеРасширениями() Экспорт

СсылочныеТипы = Новый Массив;
ТипыОбъектовМетаданныхСсылочногоТипа = ТипыОбъектовМетаданныхСсылочногоТипа();

УстановитьПривилегированныйРежим(Истина);
РасширенияСеанса = РасширенияКонфигурации.Получить(, ИсточникРасширенийКонфигурации.СеансАктивные);

ОбластьДействияРазделение = ОбластьДействияРасширенияКонфигурации.РазделениеДанных;
Для Каждого Расширение Из РасширенияСеанса Цикл

Если НЕ Расширение.ИзменяетСтруктуруДанных() Тогда
Продолжить;
КонецЕсли;

ОМДРасширения = Новый ОбъектМетаданныхКонфигурация(Расширение.ПолучитьДанные());

Для Каждого ТипОМД Из ТипыОбъектовМетаданныхСсылочногоТипа Цикл
ДополнитьТипы(СсылочныеТипы, ТипОМД, ОМДРасширения);
КонецЦикла;

КонецЦикла;

Возврат СсылочныеТипы;

КонецФункции

#КонецОбласти

#Область СлужебныеПроцедурыИФункции

Процедура ДополнитьТипы(СсылочныеТипы, ТипОМД, ОМДРасширения)

ПринадлежностьОбъекта = Метаданные.СвойстваОбъектов.ПринадлежностьОбъекта.Собственный;

Для Каждого ОМД Из ОМДРасширения[ТипОМД] Цикл

Если ОМД.ПринадлежностьОбъекта <> ПринадлежностьОбъекта Тогда
Продолжить;
КонецЕсли;

ИмяПустойСсылкиТипа = ОМД.ПолноеИмя() + ".ПустаяСсылка";
СсылкаДляОпределенияТипа = ПредопределенноеЗначение(ИмяПустойСсылкиТипа);
СсылочныеТипы.Добавить(ТипЗнч(СсылкаДляОпределенияТипа));

КонецЦикла;

КонецПроцедуры

Функция ТипыОбъектовМетаданныхСсылочногоТипа()

ТипыОбъектовМетаданныхСсылочногоТипа = Новый Массив;
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("Справочники");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("Документы");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("БизнесПроцессы");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("Задачи");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("ПланыСчетов");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("ПланыОбмена");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("ПланыВидовХарактеристик");
ТипыОбъектовМетаданныхСсылочногоТипа.Добавить("ПланыВидовРасчета");

Возврат ТипыОбъектовМетаданныхСсылочногоТипа;

КонецФункции

#КонецОбласти
Original file line number Diff line number Diff line change
Expand Up @@ -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 Тогда
ОписаниеТипаЛюбаяСсылка = Новый ОписаниеТипов(ОписаниеТипаЛюбаяСсылка, СсылочныеТипыРасширений);
КонецЕсли;

Возврат ОписаниеТипаЛюбаяСсылка;
#КонецЕсли
КонецЕсли;

Expand Down
Loading