1c/bsl-parser
1
0
Fork 0
mirror of https://github.com/bia-technologies/bsl-parser.git synced 2024-11-24 08:12:17 +02:00
Code Issues Releases Activity

ARCH-1303

Browse Source
This commit is contained in:
Суфьянов Артем Ильдарович 2016-11-28 14:36:19 +03:00
parent 6ad7eabba2
commit a1e78c27ac
1 changed files with 7 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/РазборСтруктурыКонфигурации.os
View File

@ -185,15 +185,10 @@
ИначеЕсли ТипЭтогоМодуля = ТипМодуля.МодульУправляемойФормы
ИЛИ ТипЭтогоМодуля = ТипМодуля.МодульОбычнойФормы Тогда
ФормаОбъекта = ФормыКонфигурации.Найти(ОбъектКонфигурации, "Родитель");
Если ФормаОбъекта = Неопределено Тогда
ФормаОбъекта = ФормыКонфигурации.Добавить();
ФормаОбъекта.Родитель = ОбъектКонфигурации;
ФормаОбъекта.ЭтоУправляемаяФорма = ТипЭтогоМодуля = ТипМодуля.МодульУправляемойФормы;
ФормаОбъекта.Наименование = ПолучитьИмяФормыИзИмениФайлаМодуля(НайденныйФайл.ПолноеИмя);
КонецЕсли;
ФормаОбъекта = ФормыКонфигурации.Добавить();
ФормаОбъекта.Родитель = ОбъектКонфигурации;
ФормаОбъекта.ЭтоУправляемаяФорма = ТипЭтогоМодуля = ТипМодуля.МодульУправляемойФормы;
ФормаОбъекта.Наименование = ПолучитьИмяФормыИзИмениФайлаМодуля(НайденныйФайл.ПолноеИмя);
НовыйМодульКонфигурации = МодулиКонфигурации.Добавить();
ЗаполнитьЗначенияСвойств(НовыйМодульКонфигурации, ПустаяСтрокаМодульКонфигурации);
@ -204,14 +199,9 @@
ИначеЕсли ТипЭтогоМодуля = ТипМодуля.МодульКоманды Тогда
КомандаОбъекта = КомандыКонфигурации.Найти(ОбъектКонфигурации, "Родитель");
Если КомандаОбъекта = Неопределено Тогда
КомандаОбъекта = КомандыКонфигурации.Добавить();
КомандаОбъекта.Родитель = ОбъектКонфигурации;
КомандаОбъекта.Наименование = ПолучитьИмяКомандыИзИмениФайлаМодуля(НайденныйФайл.ПолноеИмя);
КонецЕсли;
КомандаОбъекта = КомандыКонфигурации.Добавить();
КомандаОбъекта.Родитель = ОбъектКонфигурации;
КомандаОбъекта.Наименование = ПолучитьИмяКомандыИзИмениФайлаМодуля(НайденныйФайл.ПолноеИмя);
НовыйМодульКонфигурации = МодулиКонфигурации.Добавить();
ЗаполнитьЗначенияСвойств(НовыйМодульКонфигурации, ПустаяСтрокаМодульКонфигурации);