Skip to content

Commit 725d53b

Browse files
nixel2007nixel2007
committed
Merge branch 'release/v0.4.2'
2 parents 142c61c + 477e7f2 commit 725d53b

36 files changed

+715
-872
lines changed

‎packagedef

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11

22
Описание.Имя("packman")
3-
.Версия("0.4.1")
3+
.Версия("0.4.2")
44
.ЗависитОт("logos")
55
.ЗависитОт("cmdline", "0.5")
66
.ЗависитОт("v8runner")

‎tools/src/tools/ПомощникСозданияМанифестаПоставки/Form/ФормаУправляемая/Форма.bsl renamed to ‎src/tools/ПомощникСозданияМанифестаПоставки/Form/ФормаУправляемая/Форма.bsl

+87-87
Original file line numberDiff line numberDiff line change
@@ -1,87 +1,87 @@
1-
2-
&НаКлиенте
3-
Процедура СгенерироватьМанифест(Команда)
4-
5-
СформироватьФайлМанифеста();
6-
7-
КонецПроцедуры
8-
9-
&НаКлиенте
10-
Функция ИмяМанифеста()
11-
12-
Возврат "package.edf";
13-
14-
КонецФункции // ИмяМанифеста()
15-
16-
17-
&НаКлиенте
18-
Процедура СформироватьФайлМанифеста()
19-
20-
АдресФайлаНаСервере = СформироватьМанифестНаСервере();
21-
Если АдресФайлаНаСервере <> Неопределено Тогда
22-
23-
Интерактивно = ПустаяСтрока(Объект.ВыходнойФайл);
24-
25-
Если Интерактивно Тогда
26-
ИмяФайла = ИмяМанифеста();
27-
Иначе
28-
ИмяФайла = Объект.ВыходнойФайл;
29-
КонецЕсли;
30-
31-
Если ПолучитьФайл(АдресФайлаНаСервере, ИмяФайла, Интерактивно) Тогда
32-
ПоказатьОповещениеПользователя("Информация",,"Файл манифеста сохранен");
33-
КонецЕсли;
34-
35-
КонецЕсли;
36-
37-
КонецПроцедуры
38-
39-
&НаСервере
40-
Функция СформироватьМанифестНаСервере()
41-
42-
ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
43-
44-
Если Не ОбработкаОбъект.ПроверитьЗаполнение() Тогда
45-
Возврат Неопределено;
46-
КонецЕсли;
47-
48-
ИмяФайла = ПолучитьИмяВременногоФайла();
49-
ОбработкаОбъект.СформироватьМанифест(ИмяФайла);
50-
51-
ДанныеФайла = Новый ДвоичныеДанные(ИмяФайла);
52-
53-
Возврат ПоместитьВоВременноеХранилище(ДанныеФайла);
54-
55-
КонецФункции
56-
57-
58-
&НаКлиенте
59-
Функция ДиалогВыбораВыходногоФайла()
60-
61-
Расширение = "edf";
62-
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
63-
Диалог.Расширение = Расширение;
64-
Диалог.Фильтр = СтрЗаменить("Манифест сборки релиза (*.%)|*.%", "%", Расширение);
65-
Если ПустаяСтрока(Объект.ВыходнойФайл) Тогда
66-
Диалог.ПолноеИмяФайла = ИмяМанифеста();
67-
Иначе
68-
Диалог.ПолноеИмяФайла = Объект.ВыходнойФайл;
69-
КонецЕсли;
70-
71-
Возврат Диалог;
72-
73-
КонецФункции
74-
75-
&НаКлиенте
76-
Процедура ВыходнойФайлНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
77-
СтандартнаяОбработка = Ложь;
78-
Диалог = ДиалогВыбораВыходногоФайла();
79-
Если Диалог.Выбрать() Тогда
80-
Объект.ВыходнойФайл = Диалог.ПолноеИмяФайла;
81-
КонецЕсли;
82-
КонецПроцедуры
83-
84-
&НаСервере
85-
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
86-
Объект.КаталогШаблоновПоставщика = "mycompany";
87-
КонецПроцедуры
1+
2+
&НаКлиенте
3+
Процедура СгенерироватьМанифест(Команда)
4+
5+
СформироватьФайлМанифеста();
6+
7+
КонецПроцедуры
8+
9+
&НаКлиенте
10+
Функция ИмяМанифеста()
11+
12+
Возврат "package.edf";
13+
14+
КонецФункции // ИмяМанифеста()
15+
16+
17+
&НаКлиенте
18+
Процедура СформироватьФайлМанифеста()
19+
20+
АдресФайлаНаСервере = СформироватьМанифестНаСервере();
21+
Если АдресФайлаНаСервере <> Неопределено Тогда
22+
23+
Интерактивно = ПустаяСтрока(Объект.ВыходнойФайл);
24+
25+
Если Интерактивно Тогда
26+
ИмяФайла = ИмяМанифеста();
27+
Иначе
28+
ИмяФайла = Объект.ВыходнойФайл;
29+
КонецЕсли;
30+
31+
Если ПолучитьФайл(АдресФайлаНаСервере, ИмяФайла, Интерактивно) Тогда
32+
ПоказатьОповещениеПользователя("Информация",,"Файл манифеста сохранен");
33+
КонецЕсли;
34+
35+
КонецЕсли;
36+
37+
КонецПроцедуры
38+
39+
&НаСервере
40+
Функция СформироватьМанифестНаСервере()
41+
42+
ОбработкаОбъект = РеквизитФормыВЗначение("Объект");
43+
44+
Если Не ОбработкаОбъект.ПроверитьЗаполнение() Тогда
45+
Возврат Неопределено;
46+
КонецЕсли;
47+
48+
ИмяФайла = ПолучитьИмяВременногоФайла();
49+
ОбработкаОбъект.СформироватьМанифест(ИмяФайла);
50+
51+
ДанныеФайла = Новый ДвоичныеДанные(ИмяФайла);
52+
53+
Возврат ПоместитьВоВременноеХранилище(ДанныеФайла);
54+
55+
КонецФункции
56+
57+
58+
&НаКлиенте
59+
Функция ДиалогВыбораВыходногоФайла()
60+
61+
Расширение = "edf";
62+
Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Сохранение);
63+
Диалог.Расширение = Расширение;
64+
Диалог.Фильтр = СтрЗаменить("Манифест сборки релиза (*.%)|*.%", "%", Расширение);
65+
Если ПустаяСтрока(Объект.ВыходнойФайл) Тогда
66+
Диалог.ПолноеИмяФайла = ИмяМанифеста();
67+
Иначе
68+
Диалог.ПолноеИмяФайла = Объект.ВыходнойФайл;
69+
КонецЕсли;
70+
71+
Возврат Диалог;
72+
73+
КонецФункции
74+
75+
&НаКлиенте
76+
Процедура ВыходнойФайлНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
77+
СтандартнаяОбработка = Ложь;
78+
Диалог = ДиалогВыбораВыходногоФайла();
79+
Если Диалог.Выбрать() Тогда
80+
Объект.ВыходнойФайл = Диалог.ПолноеИмяФайла;
81+
КонецЕсли;
82+
КонецПроцедуры
83+
84+
&НаСервере
85+
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
86+
Объект.КаталогШаблоновПоставщика = "mycompany";
87+
КонецПроцедуры

‎tools/src/tools/ПомощникСозданияМанифестаПоставки/ObjectModule.bsl renamed to ‎src/tools/ПомощникСозданияМанифестаПоставки/ObjectModule.bsl

+48-48
Original file line numberDiff line numberDiff line change
@@ -1,48 +1,48 @@
1-
2-
Процедура СформироватьМанифест(Знач ИмяФайла) Экспорт
3-
4-
Если СоздаватьCFU Тогда
5-
//TODO: сделать макет для CFU
6-
ВызватьИсключение "Не реализовано";
7-
Иначе
8-
Документ = ПолучитьМакет("МакетМанифеста");
9-
КонецЕсли;
10-
11-
ЗаполнитьДокумент(Документ);
12-
СохранитьДокумент(Документ, ИмяФайла);
13-
14-
КонецПроцедуры
15-
16-
Процедура ЗаполнитьДокумент(Знач ТекстовыйДокумент)
17-
18-
НужныеСвойства = Новый Структура;
19-
НужныеСвойства.Вставить("Поставщик", Метаданные.Поставщик);
20-
НужныеСвойства.Вставить("ИмяСистемы", Метаданные.Имя);
21-
НужныеСвойства.Вставить("КраткоеИмяСистемы");
22-
НужныеСвойства.Вставить("КаталогШаблоновПоставщика");
23-
24-
ЗаполнитьЗначенияСвойств(НужныеСвойства, ЭтотОбъект);
25-
ТекстДокумента = ТекстовыйДокумент.ПолучитьТекст();
26-
Для Каждого Замена Из НужныеСвойства Цикл
27-
ЗначениеЗамены = СтрЗаменить(Замена.Значение, """", """""");
28-
ТекстДокумента = СтрЗаменить(ТекстДокумента, "["+Замена.Ключ+"]", ЗначениеЗамены);
29-
КонецЦикла;
30-
31-
ТекстовыйДокумент.УстановитьТекст(ТекстДокумента);
32-
33-
КонецПроцедуры
34-
35-
Процедура СохранитьДокумент(Знач Документ, Знач ИмяФайла)
36-
37-
Документ.Записать(ИмяФайла);
38-
39-
КонецПроцедуры
40-
41-
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
42-
43-
Если ПустаяСтрока(Метаданные.Поставщик) Тогда
44-
Сообщить("В метаданных конфигурации не заполнено поле ""Поставщик"". Создание дистрибутива будет невозможно.");
45-
Отказ = Истина;
46-
КонецЕсли;
47-
48-
КонецПроцедуры
1+
2+
Процедура СформироватьМанифест(Знач ИмяФайла) Экспорт
3+
4+
Если СоздаватьCFU Тогда
5+
//TODO: сделать макет для CFU
6+
ВызватьИсключение "Не реализовано";
7+
Иначе
8+
Документ = ПолучитьМакет("МакетМанифеста");
9+
КонецЕсли;
10+
11+
ЗаполнитьДокумент(Документ);
12+
СохранитьДокумент(Документ, ИмяФайла);
13+
14+
КонецПроцедуры
15+
16+
Процедура ЗаполнитьДокумент(Знач ТекстовыйДокумент)
17+
18+
НужныеСвойства = Новый Структура;
19+
НужныеСвойства.Вставить("Поставщик", Метаданные.Поставщик);
20+
НужныеСвойства.Вставить("ИмяСистемы", Метаданные.Имя);
21+
НужныеСвойства.Вставить("КраткоеИмяСистемы");
22+
НужныеСвойства.Вставить("КаталогШаблоновПоставщика");
23+
24+
ЗаполнитьЗначенияСвойств(НужныеСвойства, ЭтотОбъект);
25+
ТекстДокумента = ТекстовыйДокумент.ПолучитьТекст();
26+
Для Каждого Замена Из НужныеСвойства Цикл
27+
ЗначениеЗамены = СтрЗаменить(Замена.Значение, """", """""");
28+
ТекстДокумента = СтрЗаменить(ТекстДокумента, "["+Замена.Ключ+"]", ЗначениеЗамены);
29+
КонецЦикла;
30+
31+
ТекстовыйДокумент.УстановитьТекст(ТекстДокумента);
32+
33+
КонецПроцедуры
34+
35+
Процедура СохранитьДокумент(Знач Документ, Знач ИмяФайла)
36+
37+
Документ.Записать(ИмяФайла);
38+
39+
КонецПроцедуры
40+
41+
Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
42+
43+
Если ПустаяСтрока(Метаданные.Поставщик) Тогда
44+
Сообщить("В метаданных конфигурации не заполнено поле ""Поставщик"". Создание дистрибутива будет невозможно.");
45+
Отказ = Истина;
46+
КонецЕсли;
47+
48+
КонецПроцедуры

‎tools/src/tools/ПомощникСозданияМанифестаПоставки/maps.txt renamed to ‎src/tools/ПомощникСозданияМанифестаПоставки/maps.txt

+2-2
Original file line numberDiff line numberDiff line change
@@ -1,2 +1,2 @@
1-
Form\ФормаУправляемая\Форма.bsl-->e05a5cb6-2ae2-4458-8e1d-4859dcb7105f.0 (383, 470)
2-
Макеты\МакетМанифеста.txt-->8f33190d-ec6b-4a5a-a3e7-63b9547fb058.0
1+
Form\ФормаУправляемая\Форма.bsl-->e05a5cb6-2ae2-4458-8e1d-4859dcb7105f.0 (616, 703)
2+
Макеты\МакетМанифеста.txt-->8f33190d-ec6b-4a5a-a3e7-63b9547fb058.0

‎tools/src/tools/ПомощникСозданияМанифестаПоставки/renames.txt renamed to ‎src/tools/ПомощникСозданияМанифестаПоставки/renames.txt

+12-12
Original file line numberDiff line numberDiff line change
@@ -1,12 +1,12 @@
1-
8f33190d-ec6b-4a5a-a3e7-63b9547fb058-->und\8f33190d-ec6b-4a5a-a3e7-63b9547fb058
2-
8f33190d-ec6b-4a5a-a3e7-63b9547fb058.0-->und\8f33190d-ec6b-4a5a-a3e7-63b9547fb058.0
3-
a82fc659-6a10-407f-a571-b60e1075b6ba-->und\a82fc659-6a10-407f-a571-b60e1075b6ba
4-
copyinfo-->und\copyinfo
5-
d72ae256-3206-4675-8389-8d001a1166c8.0\info-->und\d72ae256-3206-4675-8389-8d001a1166c8.0\info
6-
d72ae256-3206-4675-8389-8d001a1166c8.0\text-->ObjectModule.bsl
7-
d72ae256-3206-4675-8389-8d001a1166c8.1-->und\d72ae256-3206-4675-8389-8d001a1166c8.1
8-
e05a5cb6-2ae2-4458-8e1d-4859dcb7105f-->und\e05a5cb6-2ae2-4458-8e1d-4859dcb7105f
9-
e05a5cb6-2ae2-4458-8e1d-4859dcb7105f.0-->und\e05a5cb6-2ae2-4458-8e1d-4859dcb7105f.0
10-
root-->und\root
11-
version-->und\version
12-
versions-->und\versions
1+
8f33190d-ec6b-4a5a-a3e7-63b9547fb058-->und\8f33190d-ec6b-4a5a-a3e7-63b9547fb058
2+
8f33190d-ec6b-4a5a-a3e7-63b9547fb058.0-->und\8f33190d-ec6b-4a5a-a3e7-63b9547fb058.0
3+
a82fc659-6a10-407f-a571-b60e1075b6ba-->und\a82fc659-6a10-407f-a571-b60e1075b6ba
4+
copyinfo-->und\copyinfo
5+
d72ae256-3206-4675-8389-8d001a1166c8.0\info-->und\d72ae256-3206-4675-8389-8d001a1166c8.0\info
6+
d72ae256-3206-4675-8389-8d001a1166c8.0\text-->ObjectModule.bsl
7+
d72ae256-3206-4675-8389-8d001a1166c8.1-->und\d72ae256-3206-4675-8389-8d001a1166c8.1
8+
e05a5cb6-2ae2-4458-8e1d-4859dcb7105f-->und\e05a5cb6-2ae2-4458-8e1d-4859dcb7105f
9+
e05a5cb6-2ae2-4458-8e1d-4859dcb7105f.0-->und\e05a5cb6-2ae2-4458-8e1d-4859dcb7105f.0
10+
root-->und\root
11+
version-->und\version
12+
versions-->und\versions

‎src/tools/ПомощникСозданияМанифестаПоставки/und/8f33190d-ec6b-4a5a-a3e7-63b9547fb058

+6
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,6 @@
1+
{1,
2+
{2,4,
3+
{1,
4+
{0,0,8f33190d-ec6b-4a5a-a3e7-63b9547fb058},"МакетМанифеста",
5+
{1,"ru","Макет манифеста"},"",0,1,8eb4fad1-1fa6-403e-970f-2c12dbb43e23,3}
6+
},0}

‎tools/src/tools/ПомощникСозданияМанифестаПоставки/und/8f33190d-ec6b-4a5a-a3e7-63b9547fb058.0 renamed to ‎src/tools/ПомощникСозданияМанифестаПоставки/und/8f33190d-ec6b-4a5a-a3e7-63b9547fb058.0

+29-29
Original file line numberDiff line numberDiff line change
@@ -1,30 +1,30 @@
1-
{1,
2-
{
3-
{1,2,
4-
{"en","[Поставщик]"},
5-
{"ru","[Поставщик]"}
6-
},
7-
{1,2,
8-
{"en","[ИмяСистемы]"},
9-
{"ru","[ИмяСистемы]"}
10-
},
11-
{#base64:}
12-
},
13-
{1,
14-
{1,0,"[ИмяСистемы]","[Поставщик]","%ВерсияМетаданных%","[КаталогШаблоновПоставщика]\[КраткоеИмяСистемы]\%НомерСборки%",
15-
{
16-
{"/",
17-
{1,
18-
{a81674e9-32f0-4ea6-aeae-799e6ab4a48b,"1Cv8.cf - Файл конфигурации",1,00000000-0000-0000-0000-000000000000,"[КраткоеИмяСистемы]","",124fa494-1559-4495-b896-3f2415d3474c,"1Cv8.cf",1,0,0,1}
19-
},
20-
{0},
21-
{0}
22-
}
23-
}
24-
}
25-
},
26-
{1,124fa494-1559-4495-b896-3f2415d3474c,"CheckoutDir",0,"V8BuildRoot"},
27-
{1,"Полный",0,
28-
{0},00000000-0000-0000-0000-000000000000,"",00000000-0000-0000-0000-000000000000,""},
29-
{0}
1+
{1,
2+
{
3+
{1,2,
4+
{"en","[Поставщик]"},
5+
{"ru","[Поставщик]"}
6+
},
7+
{1,2,
8+
{"en","[ИмяСистемы]"},
9+
{"ru","[ИмяСистемы]"}
10+
},
11+
{#base64:}
12+
},
13+
{1,
14+
{1,0,"[ИмяСистемы]","[Поставщик]","%ВерсияМетаданных%","[КаталогШаблоновПоставщика]\[КраткоеИмяСистемы]\%НомерСборки%",
15+
{
16+
{"/",
17+
{1,
18+
{a81674e9-32f0-4ea6-aeae-799e6ab4a48b,"1Cv8.cf - Файл конфигурации",1,00000000-0000-0000-0000-000000000000,"[КаталогШаблоновПоставщика]\[КраткоеИмяСистемы]","",124fa494-1559-4495-b896-3f2415d3474c,"1Cv8.cf",1,0,0,1}
19+
},
20+
{0},
21+
{0}
22+
}
23+
}
24+
}
25+
},
26+
{1,124fa494-1559-4495-b896-3f2415d3474c,"CheckoutDir",0,"V8BuildRoot"},
27+
{1,"Полный",0,
28+
{0},00000000-0000-0000-0000-000000000000,"",00000000-0000-0000-0000-000000000000,""},
29+
{0}
3030
}

0 commit comments

Comments
 (0)