diff --git a/src/CopyBase.os b/src/CopyBase.os index ed96568..6477b64 100644 --- a/src/CopyBase.os +++ b/src/CopyBase.os @@ -4,6 +4,8 @@ #Использовать json #Использовать v8runner +#Использовать "." + Перем фЛог; // Получить имя лога продукта @@ -111,7 +113,7 @@ Процедура ВыполнитьКоманду(Знач пАргументы) - замер = ЗагрузитьСценарий(ОбъединитьПути(ТекущийСценарий().Каталог, "Замеры.os")); + замер = Новый Замер; замер.НачатьЗамер(); @@ -123,15 +125,13 @@ замер.НачатьЗамер( "ПодключениеСценария" ); - работаСSQL = ЗагрузитьСценарий(ОбъединитьПути(ТекущийСценарий().Каталог, "ExecQuery_SQLCMD.os")); - замер.СообщитьЗамер( "Подключен сценарий по работе с SQL"); Если параметры["Source_SQL.UseBackup"] = Истина Тогда замер.НачатьЗамер( "Бекап" ); - результат = работаСSQL.ВыполнитьБекап( параметры["Source_SQL.Server"], параметры["Source_SQL.User"], параметры["Source_SQL.Password"], параметры["Source_SQL.Base"], параметры["FileBackup"] ); + результат = РаботаСSQL.ВыполнитьБекап( параметры["Source_SQL.Server"], параметры["Source_SQL.User"], параметры["Source_SQL.Password"], параметры["Source_SQL.Base"], параметры["FileBackup"] ); Если Не результат Тогда ЗавершитьРаботу(1); @@ -145,7 +145,7 @@ замер.НачатьЗамер( "Восстановление" ); - результат = работаСSQL.ВыполнитьСкрипт( параметры["Current_SQL.Server"], параметры["Current_SQL.User"], параметры["Current_SQL.Password"], параметры["Current_SQL.Base"], параметры["Script_Restore"] ); + результат = РаботаСSQL.ВыполнитьСкрипт( параметры["Current_SQL.Server"], параметры["Current_SQL.User"], параметры["Current_SQL.Password"], параметры["Current_SQL.Base"], параметры["Script_Restore"] ); Если Не результат Тогда ЗавершитьРаботу(1); diff --git a/src/Замеры.os b/src/Классы/Замер.os similarity index 98% rename from src/Замеры.os rename to src/Классы/Замер.os index a28f82e..3846e16 100644 --- a/src/Замеры.os +++ b/src/Классы/Замер.os @@ -1,48 +1,48 @@ - -Перем фЗамеры; -Перем фОбщееВремяНачала; -Перем фПоследнийЗамер; - -Процедура НачатьЗамер( Знач пКлючЗамера = "" ) Экспорт - Если Не ТипЗнч( фЗамеры ) = Тип("Структура") Тогда - фЗамеры = Новый Структура; - фОбщееВремяНачала = ТекущаяДата(); - КонецЕсли; - Если Не пКлючЗамера = "" Тогда - фЗамеры.Вставить( пКлючЗамера, ТекущаяУниверсальнаяДатаВМиллисекундах() ); - фПоследнийЗамер = пКлючЗамера; - КонецЕсли; -КонецПроцедуры - -Процедура СообщитьЗамер(Знач пСообщение, Знач пКлючЗамера = "", Знач пВывестиОбщееВремяПрефиксом = Истина ) Экспорт - - Если пКлючЗамера = "" - И Не фПоследнийЗамер = "" Тогда - затрачено = Окр( ТекущаяУниверсальнаяДатаВМиллисекундах() - фЗамеры[фПоследнийЗамер] ); - ИначеЕсли Не пКлючЗамера = "" Тогда - затрачено = Окр( ТекущаяУниверсальнаяДатаВМиллисекундах() - фЗамеры[пКлючЗамера] ); - Иначе - затрачено = 0; - КонецЕсли; - - Если пВывестиОбщееВремяПрефиксом Тогда - - затраченоВсего = Формат(Дата(1,1,1) + (ТекущаяДата() - фОбщееВремяНачала), "ДФ=HH:mm:ss" ); - - Сообщить( СтрШаблон("%1. %2 - %3мс", затраченоВсего, пСообщение, затрачено) ); - - Иначе - - Сообщить( СтрШаблон("%1 - %2мс", пСообщение, затрачено) ); - - КонецЕсли - -КонецПроцедуры - -Процедура СообщитьЗавершение() Экспорт - - затраченоВсего = Формат(Дата(1,1,1) + (ТекущаяДата() - фОбщееВремяНачала), "ДФ=HH:mm:ss" ); - - Сообщить( СтрШаблон("%1. Завершено", затраченоВсего) ); - + +Перем фЗамеры; +Перем фОбщееВремяНачала; +Перем фПоследнийЗамер; + +Процедура НачатьЗамер( Знач пКлючЗамера = "" ) Экспорт + Если Не ТипЗнч( фЗамеры ) = Тип("Структура") Тогда + фЗамеры = Новый Структура; + фОбщееВремяНачала = ТекущаяДата(); + КонецЕсли; + Если Не пКлючЗамера = "" Тогда + фЗамеры.Вставить( пКлючЗамера, ТекущаяУниверсальнаяДатаВМиллисекундах() ); + фПоследнийЗамер = пКлючЗамера; + КонецЕсли; +КонецПроцедуры + +Процедура СообщитьЗамер(Знач пСообщение, Знач пКлючЗамера = "", Знач пВывестиОбщееВремяПрефиксом = Истина ) Экспорт + + Если пКлючЗамера = "" + И Не фПоследнийЗамер = "" Тогда + затрачено = Окр( ТекущаяУниверсальнаяДатаВМиллисекундах() - фЗамеры[фПоследнийЗамер] ); + ИначеЕсли Не пКлючЗамера = "" Тогда + затрачено = Окр( ТекущаяУниверсальнаяДатаВМиллисекундах() - фЗамеры[пКлючЗамера] ); + Иначе + затрачено = 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 diff --git a/src/ExecQuery_SQLCMD.os b/src/Модули/РаботаСSQL.os similarity index 100% rename from src/ExecQuery_SQLCMD.os rename to src/Модули/РаботаСSQL.os