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>