Добавлены замеры

src/CopyBase.os

@@ -94,33 +94,63 @@
 
 Процедура ВыполнитьКоманду(Знач пАргументы)
 	
+	замер = ЗагрузитьСценарий(ОбъединитьПути(ТекущийСценарий().Каталог, "Замеры.os"));
+
+	замер.НачатьЗамер();
+	
+	замер.НачатьЗамер( "РазборПараметров" );
+
 	параметры = ПолучитьПараметры( пАргументы );
 	
+	замер.СообщитьЗамер( "Параметры получены" );
+
+	замер.НачатьЗамер( "ПодключениеСценария" );
+
 	работаСSQL = ЗагрузитьСценарий(ОбъединитьПути(ТекущийСценарий().Каталог, "ExecQuery_SQLCMD.os"));
 	
+	замер.СообщитьЗамер( "Подключен сценарий по работе с SQL");
+
 	Если параметры["Source_SQL.UseBackup"] = Истина Тогда
 		
+		замер.НачатьЗамер( "Бекап" );
+
 		результат = работаСSQL.ВыполнитьБекап( параметры["Source_SQL.Server"], параметры["Source_SQL.User"], параметры["Source_SQL.Password"], параметры["Source_SQL.Base"], параметры["FileBackup"] );
-		
+
 		Если Не результат Тогда
 			ЗавершитьРаботу(1);
 		КонецЕсли;
+
+		замер.СообщитьЗамер( "Выполнен бекап");
 		
 	КонецЕсли;
 	
 	Если параметры["Current_SQL.UseRestore"] = Истина Тогда
 		
+		замер.НачатьЗамер( "Восстановление" );
+
 		результат = работаСSQL.ВыполнитьСкрипт( параметры["Current_SQL.Server"], параметры["Current_SQL.User"], параметры["Current_SQL.Password"], параметры["Current_SQL.Base"], параметры["Script_Restore"] );
-		
+
 		Если Не результат Тогда
 			ЗавершитьРаботу(1);
 		КонецЕсли;
+		
+		замер.СообщитьЗамер( "Выполнено восстановление");
+
+	КонецЕсли;
+
+	Если параметры["Current_SQL.DelBackup"] = Истина Тогда
+
+		замер.НачатьЗамер( "УдалениеБекапа" );
+
+		УдалитьФайлы( параметры["FileBackup"] );
+		
+		замер.СообщитьЗамер( "Удален бекап");
 
 	КонецЕсли;
 	
 	Если параметры["Current_Repo.Blind"] = Истина Тогда
 		
-		Сообщить( "Выполняется переподключение к хранилищу" );
+		Сообщить( "Тут типа выполняется переподключение к хранилищу" );
 		
 	КонецЕсли;
 	

src/Замеры.os

@@ -0,0 +1,40 @@
+
+Перем фЗамеры;
+Перем фОбщееВремяНачала;
+Перем фПоследнийЗамер;
+
+Процедура НачатьЗамер( Знач пКлючЗамера = "" ) Экспорт
+	Если Не ТипЗнч( фЗамеры ) = Тип("Структура") Тогда
+		фЗамеры = Новый Структура;
+		фОбщееВремяНачала = ТекущаяДата();
+	КонецЕсли;
+	Если Не пКлючЗамера = "" Тогда
+		фЗамеры.Вставить( пКлючЗамера, ТекущаяУниверсальнаяДатаВМиллисекундах() );
+		фПоследнийЗамер = пКлючЗамера;
+	КонецЕсли;
+КонецПроцедуры
+
+Процедура СообщитьЗамер(Знач пСообщение, Знач пКлючЗамера = "", Знач пВывестиОбщееВремяПрефиксом = Истина ) Экспорт
+	
+	Если пКлючЗамера = ""
+		И Не фПоследнийЗамер = "" Тогда
+		затрачено = Окр( ТекущаяУниверсальнаяДатаВМиллисекундах() - фЗамеры[фПоследнийЗамер] );
+	ИначеЕсли Не пКлючЗамера = "" Тогда
+		затрачено = Окр( ТекущаяУниверсальнаяДатаВМиллисекундах() - фЗамеры[пКлючЗамера] );
+	Иначе
+		затрачено = 0;
+	КонецЕсли;
+
+	Если пВывестиОбщееВремяПрефиксом Тогда
+		
+		затраченоВсего = Формат(Дата(1,1,1) + (ТекущаяДата() - фОбщееВремяНачала), "ДФ=HH:mm:ss" );
+
+		Сообщить( СтрШаблон("%1. %2 - %3мс", затраченоВсего, пСообщение, затрачено)  );
+		
+	Иначе
+		
+		Сообщить( СтрШаблон("%1 - %2мс", пСообщение, затрачено)  );
+
+	КонецЕсли
+	
+КонецПроцедуры