From 6efdf6899b6541ef54ff1ce2463285a37eb19ca1 Mon Sep 17 00:00:00 2001 From: Stepa86 Date: Mon, 6 Feb 2017 20:42:29 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A0=D0=B5=D1=84=D0=B0=D0=BA=D1=82=D0=BE?= =?UTF-8?q?=D1=80=D0=B8=D0=BD=D0=B3=20=D1=81=D1=82=D1=80=D1=83=D0=BA=D1=82?= =?UTF-8?q?=D1=83=D1=80=D1=8B=20=D0=BC=D0=BE=D0=B4=D1=83=D0=BB=D0=B5=D0=B9?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/CopyBase.os | 10 +- src/{Замеры.os => Классы/Замер.os} | 94 +++++++++---------- .../РаботаСSQL.os} | 0 3 files changed, 52 insertions(+), 52 deletions(-) rename src/{Замеры.os => Классы/Замер.os} (98%) rename src/{ExecQuery_SQLCMD.os => Модули/РаботаСSQL.os} (100%) 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