From bfd8d0a1fc162f9d3563fb6ed4159a21ed7b45ca Mon Sep 17 00:00:00 2001
From: KovAlexey <a.kovalchuk@zoograd.com>
Date: Mon, 23 Dec 2024 10:52:35 +1000
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?=
=?UTF-8?q?=D0=B5=D0=BD=D0=B8=D0=B5=20=D0=BF=D1=80=D0=B8=20=D0=BA=D0=BE?=
=?UTF-8?q?=D0=BF=D0=B8=D1=80=D0=BE=D0=B2=D0=B0=D0=BD=D0=B8=D0=B8=20=D0=BA?=
=?UTF-8?q?=D0=BE=D1=80=D0=BD=D1=8F=20=D1=81=20=D0=BF=D0=BE=D0=B4=D0=BA?=
=?UTF-8?q?=D0=B0=D1=82=D0=B0=D0=BB=D0=BE=D0=B3=D0=B0=D0=BC=D0=B8?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
.../КонвертацияХранилища/Module.bsl | 95 +++++++++++++------
.../src/Configuration/Configuration.mdo | 2 +-
2 files changed, 66 insertions(+), 31 deletions(-)
diff --git a/GitConverter/src/CommonModules/КонвертацияХранилища/Module.bsl b/GitConverter/src/CommonModules/КонвертацияХранилища/Module.bsl
index 03d9fee..ebd4fc1 100644
--- a/GitConverter/src/CommonModules/КонвертацияХранилища/Module.bsl
+++ b/GitConverter/src/CommonModules/КонвертацияХранилища/Module.bsl
@@ -1359,36 +1359,7 @@
НайденныеФайлыКорня = НайтиФайлы(КаталогФайловКонфигурации, "Configuration.xml", Ложь);
Если НайденныеФайлыКорня.Количество() = 0 Тогда
- // Попробуем выгрузить корень отдельно
- ПараметрыВыгрузкиКорня = ОбщегоНазначенияКлиентСервер.СкопироватьРекурсивно(Параметры);
-
- КаталогВыгрузкиКорня = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(
- Параметры.КаталогВременныхФайлов) + "dump_configuration";
- ИмяФайлаОбъектов = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(
- Параметры.КаталогВременныхФайлов) + "export_object_conf.txt";
-
- Файл = Новый Файл(КаталогВыгрузкиКорня);
- Если Файл.Существует() Тогда
- УдалитьФайлы(КаталогВыгрузкиКорня);
- КонецЕсли;
-
- ПараметрыВыгрузкиКорня.КаталогФайловКонфигурации = КаталогВыгрузкиКорня;
- ПараметрыВыгрузкиКорня.Вставить("ВыгружатьПоСписку", Истина);
- ПараметрыВыгрузкиКорня.Вставить("ФайлСпискаВыгрузки", ИмяФайлаОбъектов);
- ПараметрыВыгрузкиКорня.ВыгружатьИзменения = Ложь;
-
- ЗаписьФайла = Новый ЗаписьТекста(ИмяФайлаОбъектов);
- ЗаписьФайла.Записать("Configuration");
- ЗаписьФайла.Закрыть();
- СоздатьКаталог(КаталогВыгрузкиКорня);
-
- ВыгрузитьКонфигурациюВФайлы(ПараметрыВыгрузкиКорня);
-
- ФайлыКорняККопированию = НайтиФайлы(КаталогВыгрузкиКорня, "*.*", Ложь);
- Для Каждого ФайлКорняККопированию Из ФайлыКорняККопированию Цикл
- ИтоговыйПуть = КаталогФайловКонфигурации + ФайлКорняККопированию.Имя;
- КопироватьФайл(ФайлКорняККопированию.ПолноеИмя, ИтоговыйПуть);
- КонецЦикла;
+ ВыгрузитьПоместитьКореньВОсновнойКаталог(Параметры, КаталогФайловКонфигурации);
КонецЕсли;
КонецЕсли;
КонецЕсли;
@@ -1472,6 +1443,70 @@
КонецПроцедуры
+Процедура ВыгрузитьПоместитьКореньВОсновнойКаталог(Параметры, Знач КаталогФайловКонфигурации)
+
+ // Попробуем выгрузить корень отдельно
+ КаталогФайловКонфигурации = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(КаталогФайловКонфигурации);
+ ПараметрыВыгрузкиКорня = ОбщегоНазначенияКлиентСервер.СкопироватьРекурсивно(Параметры);
+
+ КаталогВыгрузкиКорня = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(
+ Параметры.КаталогВременныхФайлов) + "dump_configuration";
+ ИмяФайлаОбъектов = ОбщегоНазначенияКлиентСервер.ДобавитьКонечныйРазделительПути(
+ Параметры.КаталогВременныхФайлов) + "export_object_conf.txt";
+
+ Файл = Новый Файл(КаталогВыгрузкиКорня);
+ Если Файл.Существует() Тогда
+ УдалитьФайлы(КаталогВыгрузкиКорня);
+ КонецЕсли;
+
+ ПараметрыВыгрузкиКорня.КаталогФайловКонфигурации = КаталогВыгрузкиКорня;
+ ПараметрыВыгрузкиКорня.Вставить("ВыгружатьПоСписку", Истина);
+ ПараметрыВыгрузкиКорня.Вставить("ФайлСпискаВыгрузки", ИмяФайлаОбъектов);
+ ПараметрыВыгрузкиКорня.ВыгружатьИзменения = Ложь;
+
+ ЗаписьФайла = Новый ЗаписьТекста(ИмяФайлаОбъектов);
+ ЗаписьФайла.Записать("Configuration");
+ ЗаписьФайла.Закрыть();
+ СоздатьКаталог(КаталогВыгрузкиКорня);
+
+ ВыгрузитьКонфигурациюВФайлы(ПараметрыВыгрузкиКорня);
+
+ ФайлыКорняККопированию = НайтиФайлы(КаталогВыгрузкиКорня, "*.*", Ложь);
+ Для Каждого ФайлКорняККопированию Из ФайлыКорняККопированию Цикл
+
+ Если ФайлКорняККопированию.ЭтоКаталог() Тогда
+ Продолжить;
+ КонецЕсли;
+
+ ИтоговыйПуть = КаталогФайловКонфигурации + ФайлКорняККопированию.Имя;
+ КопироватьФайл(ФайлКорняККопированию.ПолноеИмя, ИтоговыйПуть);
+
+ КонецЦикла;
+
+ КаталогРасширенныхДанныхКорня = КаталогВыгрузкиКорня + "Ext";
+ ФайлКаталогРасширенныхДанныхКорня = Новый Файл(КаталогРасширенныхДанныхКорня);
+ Если ФайлКаталогРасширенныхДанныхКорня.Существует() Тогда
+
+ КаталогВыгруженныхРасширенныхФайловВыгрузки = КаталогВыгрузкиКорня + "Ext\";
+ ПозицияВСтрокеРабочегоКаталога = СтрДлина(КаталогВыгруженныхРасширенныхФайловВыгрузки) + 1;
+ СоздатьКаталог(КаталогВыгруженныхРасширенныхФайловВыгрузки);
+
+ КаталогРасширенныхФайловВыгрузки = КаталогФайловКонфигурации + "Ext\";
+
+ НайденныеРасширенныеФайлыКорня = НайтиФайлы(КаталогВыгруженныхРасширенныхФайловВыгрузки, "*.*", Истина);
+ Для Каждого РасширенныйФайлКорняИсточник Из НайденныеРасширенныеФайлыКорня Цикл
+ ИтоговоеИмя = КаталогФайловКонфигурации + Сред(РасширенныйФайлКорняИсточник.ПолноеИмя,
+ ПозицияВСтрокеРабочегоКаталога);
+
+ Если РасширенныйФайлКорняИсточник.ЭтоКаталог() Тогда
+ СоздатьКаталог(ИтоговоеИмя);
+ Иначе
+ КопироватьФайл(ИтоговоеИмя, РасширенныйФайлКорняИсточник.ПолноеИмя);
+ КонецЕсли;
+ КонецЦикла;
+ КонецЕсли;
+КонецПроцедуры
+
// Загружает файлы конфигурации версии в проект EDT и составляет индекс
//
// Параметры:
diff --git a/GitConverter/src/Configuration/Configuration.mdo b/GitConverter/src/Configuration/Configuration.mdo
index 7ae3f38..701edb2 100644
--- a/GitConverter/src/Configuration/Configuration.mdo
+++ b/GitConverter/src/Configuration/Configuration.mdo
@@ -21,7 +21,7 @@
<defaultRoles>Role.АдминистраторСистемы</defaultRoles>
<defaultRoles>Role.ИнтерактивноеОткрытиеВнешнихОтчетовИОбработок</defaultRoles>
<vendor>Фирма "1С"</vendor>
- <version>1.0.9.0</version>
+ <version>1.0.9.1</version>
<updateCatalogAddress>http://downloads.v8.1c.ru/tmplts/</updateCatalogAddress>
<includeHelpInContents>true</includeHelpInContents>
<help>