diff --git a/3ikekepa.r4c.txt b/3ikekepa.r4c.txt new file mode 100644 index 0000000..b570ba2 --- /dev/null +++ b/3ikekepa.r4c.txt @@ -0,0 +1 @@ + diff --git a/src/CopyBase.os b/src/CopyBase.os index 3372c92..4bd79b1 100644 --- a/src/CopyBase.os +++ b/src/CopyBase.os @@ -2,6 +2,7 @@ #Использовать 1commands #Использовать logos #Использовать json +#Использовать v8runner Перем фЛог; @@ -150,16 +151,31 @@ КонецЕсли; - замер.СообщитьЗамер( "Удален бекап"); + замер.СообщитьЗамер( "Удален бекап" ); КонецЕсли; Если параметры["Current_Repo.Blind"] = Истина Тогда - Сообщить( "Тут типа выполняется переподключение к хранилищу" ); - + замер.НачатьЗамер( "ОтключениеОтХранилища" ); + + Конфигуратор = Новый УправлениеКонфигуратором; + Конфигуратор.УстановитьКонтекст(параметры["Current_Base.Connect"], параметры["Current_Base.User"], параметры["Current_Base.Password"]); + Конфигуратор.ПутьКПлатформе1С( параметры["EXE1CV8"] ); + Конфигуратор.ОтключитьсяОтХранилища(); + + замер.СообщитьЗамер( "Отключено от хранилища" ); + + замер.НачатьЗамер( "ПодключениеКХранилищу" ); + + Конфигуратор.ПодключитьсяКХранилищу(параметры["Current_Repo.Connect"], параметры["Current_Repo.User"], параметры["Current_Repo.Password"], Истина ); + + замер.СообщитьЗамер( "Подключено к хранилищу" ); + КонецЕсли; + замер.СообщитьЗавершение(); + КонецПроцедуры фЛог = Логирование.ПолучитьЛог(ИмяЛога()); diff --git a/src/Замеры.os b/src/Замеры.os index 329f404..a28f82e 100644 --- a/src/Замеры.os +++ b/src/Замеры.os @@ -24,17 +24,25 @@ Иначе затрачено = 0; КонецЕсли; - + Если пВывестиОбщееВремяПрефиксом Тогда затраченоВсего = Формат(Дата(1,1,1) + (ТекущаяДата() - фОбщееВремяНачала), "ДФ=HH:mm:ss" ); - + Сообщить( СтрШаблон("%1. %2 - %3мс", затраченоВсего, пСообщение, затрачено) ); Иначе Сообщить( СтрШаблон("%1 - %2мс", пСообщение, затрачено) ); - + КонецЕсли +КонецПроцедуры + +Процедура СообщитьЗавершение() Экспорт + + затраченоВсего = Формат(Дата(1,1,1) + (ТекущаяДата() - фОбщееВремяНачала), "ДФ=HH:mm:ss" ); + + Сообщить( СтрШаблон("%1. Завершено", затраченоВсего) ); + КонецПроцедуры \ No newline at end of file