|
22 | 22 |
|
23 | 23 | Перем ВерсияПлатформы; // Строка - маска версии платформы 1С (8.3, 8.3.6 и т.п.) |
24 | 24 | Перем ПутьККонфигурации; // Строка - путь к файлу конфигурации (CF) для выгрузки |
25 | | -Перем ИнструментВыгрузки // Строка - инструмент выгрузки конфигурации в файлы (Конфигуратор или УтилитаIBCMD) |
| 25 | +Перем ИнструментВыгрузки; // Строка - инструмент выгрузки конфигурации в файлы (designer или ibcmd) |
26 | 26 | Перем РепозитарийГит; // Строка - путь к репозитарию git |
27 | 27 | Перем ИмяВеткиГит; // Строка - имя ветки git в которую будет выполняться выгрузка |
28 | 28 | Перем ИмяАвтора; // Строка - имя автора коммита в git |
|
102 | 102 | "Строка", |
103 | 103 | Ложь, |
104 | 104 | Перечисления.ИнструментыВыгрузкиКонфигурацииВФайлы.Конфигуратор, |
105 | | - "инструмент выгрузки конфигурации в файлы (designer или icmd)"); |
| 105 | + "инструмент выгрузки конфигурации в файлы (designer или ibcmd)"); |
106 | 106 |
|
107 | 107 | ДобавитьОписаниеПараметра(Параметры, |
108 | 108 | "РепозитарийГит", |
|
265 | 265 |
|
266 | 266 | УстановитьПараметрОбработкиДанныхИзСтруктуры("ВерсияПлатформы" , ПараметрыОбработки, "8.3"); |
267 | 267 | УстановитьПараметрОбработкиДанныхИзСтруктуры("ПутьККонфигурации" , ПараметрыОбработки); |
268 | | - УстановитьПараметрОбработкиДанныхИзСтруктуры("ИнструментВыгрузки" , ПараметрыОбработки, Перечисления.ИнструментыВыгрузкиКонфигурацииВФайлы.Конфигуратор); |
| 268 | + УстановитьПараметрОбработкиДанныхИзСтруктуры("ИнструментВыгрузки", |
| 269 | + ПараметрыОбработки, |
| 270 | + Перечисления.ИнструментыВыгрузкиКонфигурацииВФайлы.Конфигуратор); |
269 | 271 | УстановитьПараметрОбработкиДанныхИзСтруктуры("РепозитарийГит" , ПараметрыОбработки); |
270 | 272 | УстановитьПараметрОбработкиДанныхИзСтруктуры("ИмяВеткиГит" , ПараметрыОбработки, "base1c"); |
271 | 273 | УстановитьПараметрОбработкиДанныхИзСтруктуры("ИмяАвтора" , ПараметрыОбработки, "1c"); |
|
419 | 421 | ВыгрузитьКонфигурациюВФайлыКонфигуратор(КаталогВыгрузкиИсходников); |
420 | 422 | КонецЕсли; |
421 | 423 |
|
| 424 | + ФайлКонфигурации = Новый Файл(ПутьККонфигурации); |
| 425 | + ФайлОписания = Новый Файл(ОбъединитьПути(ФайлКонфигурации.Путь, "description.json")); |
422 | 426 | Если ФайлОписания.Существует() Тогда |
423 | 427 | НовыйФайлОписания = ОбъединитьПути(РепозитарийГит, "description.json"); |
424 | 428 | КопироватьФайл(ФайлОписания.ПолноеИмя, НовыйФайлОписания); |
|
490 | 494 | ФайлКонфигурации = Новый Файл(ПутьККонфигурации); |
491 | 495 | ОписаниеВерсии = ОписаниеВерсииВКаталоге(ФайлКонфигурации.Путь); |
492 | 496 |
|
| 497 | + Лог.Информация("[%1]: Используется утилита ibcmd"); |
493 | 498 | Лог.Информация("[%1]: Начало загрузки версии %2 (%3) конфигурации ""%4"" из файла ""%5""", |
494 | 499 | ТипЗнч(ЭтотОбъект), |
495 | 500 | ОписаниеВерсии.Версия, |
496 | 501 | Формат(ОписаниеВерсии.Дата, "ДФ=dd.MM.yyyy; ДП=-"), |
497 | 502 | ОписаниеВерсии.Имя, |
498 | 503 | ПутьККонфигурации); |
499 | 504 |
|
500 | | - ПутьКБазе = База_СтрокаСоединения; |
501 | | - Если Лев(ВРег(ПутьКБазе), 2) = "/F" Тогда |
| 505 | + ПутьКБазе = СокрЛП(База_СтрокаСоединения); |
| 506 | + Если ПустаяСтрока(ПутьКБазе) Тогда |
| 507 | + ПутьКБазе = ОбъединитьПути(ТекущийКаталог(), "v8r_TempDB"); |
| 508 | + ИначеЕсли Лев(ВРег(ПутьКБазе), 2) = "/F" Тогда |
502 | 509 | ПутьКБазе = Сред(ПутьКБазе, 3); |
503 | 510 | КонецЕсли; |
504 | 511 |
|
| 512 | + ФС.ОбеспечитьПустойКаталог(ПутьКБазе); |
| 513 | + |
505 | 514 | УтилитаIBCMD = Новый УправлениеИБ(ВерсияПлатформы); |
506 | 515 | УтилитаIBCMD.УстановитьПараметрыФайловойИБ(ПутьКБазе); |
| 516 | + УтилитаIBCMD.СоздатьИБ(); |
507 | 517 | УтилитаIBCMD.ЗагрузитьКонфигурацию(ПутьККонфигурации); |
508 | 518 |
|
509 | 519 | Лог.Информация("[%1]: Начало выгрузки в файлы версии %2 (%3) конфигурации ""%4"" %5 ""%6""", |
|
512 | 522 | Формат(ОписаниеВерсии.Дата, "ДФ=dd.MM.yyyy; ДП=-"), |
513 | 523 | ОписаниеВерсии.Имя, |
514 | 524 | ?(КонвертироватьВФорматЕДТ, "во временный каталог", "в репозитарий"), |
515 | | - КаталогВыгрузкиИсходников); |
516 | | - |
517 | | - УтилитаIBCMD.ВыгрузитьКонфигурациюВФайлы(КаталогВыгрузкиИсходников); |
| 525 | + КаталогВыгрузки); |
| 526 | + |
| 527 | + СписокОбъектов = Новый Массив(); |
| 528 | + ФайлСпискаОбъектов = Новый Файл(ПутьКСпискуОбъектов); |
| 529 | + Если ФайлСпискаОбъектов.Существует() Тогда |
| 530 | + Текст = Новый ТекстовыйДокумент(); |
| 531 | + Текст.Прочитать(ПутьКСпискуОбъектов); |
| 532 | + Для й = 1 По Текст.КоличествоСтрок() Цикл |
| 533 | + СписокОбъектов.Добавить(Текст.ПолучитьСтроку(й)); |
| 534 | + КонецЦикла; |
| 535 | + КонецЕсли; |
| 536 | + |
| 537 | + Если СписокОбъектов.Количество() = 0 Тогда |
| 538 | + УтилитаIBCMD.ВыгрузитьКонфигурациюВФайлы(КаталогВыгрузки, , , Ложь); |
| 539 | + Иначе |
| 540 | + УтилитаIBCMD.ВыгрузитьОбъектыКонфигурацииВФайлы(КаталогВыгрузки, Ложь, СписокОбъектов); |
| 541 | + КонецЕсли; |
518 | 542 |
|
519 | 543 | КонецПроцедуры // ВыгрузитьКонфигурациюВФайлыIBCMD() |
520 | 544 |
|
|
523 | 547 | ФайлКонфигурации = Новый Файл(ПутьККонфигурации); |
524 | 548 | ОписаниеВерсии = ОписаниеВерсииВКаталоге(ФайлКонфигурации.Путь); |
525 | 549 |
|
| 550 | + Лог.Информация("[%1]: Используется Конфигуратор"); |
526 | 551 | Лог.Информация("[%1]: Начало загрузки версии %2 (%3) конфигурации ""%4"" из файла ""%5""", |
527 | 552 | ТипЗнч(ЭтотОбъект), |
528 | 553 | ОписаниеВерсии.Версия, |
|
542 | 567 | Формат(ОписаниеВерсии.Дата, "ДФ=dd.MM.yyyy; ДП=-"), |
543 | 568 | ОписаниеВерсии.Имя, |
544 | 569 | ?(КонвертироватьВФорматЕДТ, "во временный каталог", "в репозитарий"), |
545 | | - КаталогВыгрузкиИсходников); |
| 570 | + КаталогВыгрузки); |
546 | 571 |
|
547 | | - Конфигуратор.ВыгрузитьКонфигурациюВФайлы(КаталогВыгрузкиИсходников); |
| 572 | + Конфигуратор.ВыгрузитьКонфигурациюВФайлы(КаталогВыгрузки |
| 573 | + , // ФорматВыгрузки = "" |
| 574 | + , // ТолькоИзмененные = Ложь |
| 575 | + , // ПутьКФайлуВерсийДляСравнения = "" |
| 576 | + , ПутьКСпискуОбъектов); |
548 | 577 |
|
549 | 578 | КонецПроцедуры // ВыгрузитьКонфигурациюВФайлыКонфигуратор() |
550 | 579 |
|
|
595 | 624 | .ТСтрока() |
596 | 625 | .ВОкружении("YARD_CF_PATH"); |
597 | 626 |
|
| 627 | + Команда.Опция("et export-tool", |
| 628 | + Перечисления.ИнструментыВыгрузкиКонфигурацииВФайлы.Конфигуратор, |
| 629 | + "инструмент выгрузки конфигурации в файлы (designer или ibcmd)") |
| 630 | + .ТСтрока() |
| 631 | + .ВОкружении("YARD_EXPORT_TOOL"); |
| 632 | + |
598 | 633 | Команда.Опция("g git-path", "", "путь к репозитарию git") |
599 | 634 | .ТСтрока() |
600 | 635 | .ВОкружении("YARD_GIT_PATH"); |
|
986 | 1021 | Для каждого ФайлПодавления Из ФайлыПодавленияПроверок Цикл |
987 | 1022 | ОтносительныйПутьФайла = ФС.ОтносительныйПуть(КаталогВыгрузки, ФайлПодавления.Путь); |
988 | 1023 | КаталогКСохранению = ОбъединитьПути(КаталогСНастройками, ОтносительныйПутьФайла); |
989 | | - ФС.ОбеспечитьКаталог(КаталогКСохранению); |
| 1024 | + Распаковщик.ОбеспечитьКаталог(КаталогКСохранению); |
990 | 1025 | НовыйПутьФайла = ОбъединитьПути(КаталогКСохранению, ФайлПодавления.Имя); |
991 | 1026 | КопироватьФайл(ФайлПодавления.ПолноеИмя, НовыйПутьФайла); |
992 | 1027 | КонецЦикла; |
|
0 commit comments