Skip to content

Commit

Permalink
Добавил установщик
Browse files Browse the repository at this point in the history
  • Loading branch information
Tavalik committed May 11, 2018
1 parent d8a2038 commit 3f53fd5
Show file tree
Hide file tree
Showing 7 changed files with 80 additions and 23 deletions.
4 changes: 3 additions & 1 deletion .gitignore
Original file line number Diff line number Diff line change
@@ -1,2 +1,4 @@
_Logs
Perezalivator_Params.json
package-build.bat
package-build.os
Perezalivator_Params.json
Binary file added Distr/Perezalivator-2018.05.10.ospx
Binary file not shown.
9 changes: 9 additions & 0 deletions Distr/install.bat
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
@echo off

setlocal

set file="%~dp0\Perezalivator-2018.05.10.ospx"

call opm install -f %file%

pause
68 changes: 46 additions & 22 deletions Perezalivator.os
Original file line number Diff line number Diff line change
Expand Up @@ -6,10 +6,10 @@

#Использовать json
#Использовать gui
#Использовать Tlib\TLog
#Использовать Tlib\TRun1C
#Использовать Tlib\TMSSQL
#Использовать Tlib\TMail
#Использовать TLog
#Использовать TRun1C
#Использовать TMSSQL
#Использовать TMail

Перем Логирование, УправлениеЭП;
Перем УправляемыйИнтерфейс, ФормаВыбораНастроек;
Expand Down Expand Up @@ -101,24 +101,10 @@
КонецЕсли;
КонецЦикла;

// Если файл не бы передан в параметрах, найдем его в каталоге
Если МассивФайловНастроек.Количество() = 0 Тогда
// Попробуем найти файл настроек в текущем каталоге
ПутьКФайлуНастроек = ОбъединитьПути(ТекущийКаталог(),"Perezalivator_Params.json");
Файл = Новый Файл(ПутьКФайлуНастроек);
Если Не файл.Существует() Тогда
Если СоздатьШаблонФайлаНастроек(ПутьКФайлуНастроек) Тогда
МассивФайловНастроек.Добавить(ПутьКФайлуНастроек);
Сообщить("Создан шаблон файла настроек. Заполните файл и перезапустите программу.");
Иначе
ЗавершитьРаботу(1);
КонецЕсли;
КонецЕсли;
МассивФайловНастроек.Добавить(ПутьКФайлуНастроек);
КонецЕсли;

// Обработаем файлы настроек
Для Сч = 0 По МассивФайловНастроек.Количество() - 1 Цикл
Сч = 0;
Пока Истина Цикл

ПутьКФайлуНастроек = МассивФайловНастроек.Получить(Сч);
Файл = Новый Файл(ПутьКФайлуНастроек);
Если файл.Существует() Тогда
Expand All @@ -137,12 +123,36 @@
Сообщить(ОписаниеОшибки());
ЗавершитьРаботу(1);
КонецПопытки;


Сч = Сч + 1;
Иначе
Сообщить("Не найден файл настроек по пути: " + ПутьКФайлуНастроек);
МассивФайловНастроек.Удалить(Сч);
КонецЕсли;

Если Сч = МассивФайловНастроек.Количество() Тогда
Прервать;
КонецЕсли;

КонецЦикла;

// Если файл не бы передан в параметрах, найдем его в каталоге
Если МассивФайловНастроек.Количество() = 0 Тогда
// Попробуем найти файл настроек в текущем каталоге
ПутьКФайлуНастроек = ОбъединитьПути(ТекущийСценарий().Каталог,"Perezalivator_Params.json");
Файл = Новый Файл(ПутьКФайлуНастроек);
Если Не файл.Существует() Тогда
Если СоздатьШаблонФайлаНастроек(ПутьКФайлуНастроек) Тогда
МассивФайловНастроек.Добавить(ПутьКФайлуНастроек);
Сообщить("Создан шаблон файла настроек. Заполните файл и перезапустите программу.");
ЗавершитьРаботуСПаузой();
Иначе
ЗавершитьРаботу(1);
КонецЕсли;
КонецЕсли;
МассивФайловНастроек.Добавить(ПутьКФайлуНастроек);
КонецЕсли;

Если РежимТестирования Тогда
ВыполнитьТестНастроек();
Возврат;
Expand All @@ -157,6 +167,20 @@

КонецПроцедуры

//******************************************************************
Процедура ЗавершитьРаботуСПаузой()

Сообщить("Для продолжения нажмите любую клавишу...");
Консоль = Новый Консоль();
ОбщееОжидание = 0;
Пока Не Консоль.НажатаКлавиша И ОбщееОжидание < 60000 Цикл
Приостановить(100);
ОбщееОжидание = ОбщееОжидание + 100;
КонецЦикла;
ЗавершитьРаботу(1);

КонецПроцедуры

//******************************************************************
Процедура ПрочитатьПараметрыРекурсивно(Параметры, СтруктураЗначений = "")

Expand Down
2 changes: 2 additions & 0 deletions Perezalivator_Run.bat
Original file line number Diff line number Diff line change
@@ -1,3 +1,5 @@
@echo off

set dir=%CD%
set oscriptrun=oscript.exe

Expand Down
2 changes: 2 additions & 0 deletions Perezalivator_Run_Test.bat
Original file line number Diff line number Diff line change
@@ -1,3 +1,5 @@
@echo off

set dir=%CD%

call %dir%\Perezalivator_Run.bat -test
Expand Down
18 changes: 18 additions & 0 deletions packagedef
Original file line number Diff line number Diff line change
@@ -0,0 +1,18 @@
Описание.Имя("Perezalivator")
.Версия("2018.05.10")
.Автор("Onyanov Vitaliy")
.АдресАвтора("[email protected]")
.Описание("Приложение для ""перезаливки"" баз данных 1С:Предприятия")
.ВерсияСреды("1.0.20")
.ЗависитОт("json")
.ЗависитОт("gui")
.ЗависитОт("TLog")
.ЗависитОт("TRun1C")
.ЗависитОт("TMSSQL")
.ЗависитОт("TMail")
.ВключитьФайл("Perezalivator.ico")
.ВключитьФайл("Perezalivator.os")
.ВключитьФайл("Perezalivator_Run.bat")
.ВключитьФайл("Perezalivator_Run_Test.bat")
.ВключитьФайл("README.md")
;

0 comments on commit 3f53fd5

Please sign in to comment.