refactor: Рефакторинг вызова ibcmd;

Дополнены комментарии и вывод сообщений в лог.

Author: arkuznetsov

src/Классы/useIbcmd.os

@@ -96,27 +96,27 @@
 
 	Лог.Отладка("Устанавливаю дополнительные параметры для команды %1", ИмяКоманды);
 
-	КлассРеализации.Опция("d ibcmd-data", "", "рабочий каталог утилиты ibcmd")
+	КлассРеализации.Опция("d ibcmd-data", "", "[*use-ibcmd] рабочий каталог утилиты ibcmd")
 	               .Флаговый()
 	               .ВОкружении("GITSYNC_IBCMD_DATA");
 
-	КлассРеализации.Опция("t ibcmd-dbms", "MSSQLServer", "тип СУБД (при использовании ibcmd)")
+	КлассРеализации.Опция("t ibcmd-dbms", "MSSQLServer", "[*use-ibcmd] тип СУБД (при использовании ibcmd)")
 	               .ТСтрока()
 	               .ВОкружении("GITSYNC_IBCMD_DBMS");
 
-	КлассРеализации.Опция("s ibcmd-db-server", "", "адрес сервера базы данных (при использовании ibcmd)")
+	КлассРеализации.Опция("s ibcmd-db-server", "", "[*use-ibcmd] адрес сервера базы данных (при использовании ibcmd)")
 	               .ТСтрока()
 	               .ВОкружении("GITSYNC_IBCMD_DB_SERVER");
 
-	КлассРеализации.Опция("n ibcmd-db-name", "", "имя базы данных (при использовании ibcmd)")
+	КлассРеализации.Опция("n ibcmd-db-name", "", "[*use-ibcmd] имя базы данных (при использовании ibcmd)")
 	               .ТСтрока()
 	               .ВОкружении("GITSYNC_IBCMD_DB_NAME");
 
-	КлассРеализации.Опция("U ibcmd-db-user", "", "имя пользователя базы данных (при использовании ibcmd)")
+	КлассРеализации.Опция("U ibcmd-db-user", "", "[*use-ibcmd] имя пользователя базы данных (при использовании ibcmd)")
 	               .ТСтрока()
 	               .ВОкружении("GITSYNC_IBCMD_DB_USER");
 
-	КлассРеализации.Опция("P ibcmd-db-pwd", "", "пароль пользователя базы данных (при использовании ibcmd)")
+	КлассРеализации.Опция("P ibcmd-db-pwd", "", "[*use-ibcmd] пароль пользователя базы данных (при использовании ibcmd)")
 	               .ТСтрока()
 	               .ВОкружении("GITSYNC_IBCMD_DB_PWD");
 
@@ -137,8 +137,10 @@
 
 	СтандартнаяОбработка = Ложь;
 
+	Лог.Информация("Используем утилиту ibcmd для выгрузки конфигурации в файлы");
+
 	Попытка
-		ВыгрузитьКонфигурациюВФайлыIBCMD(КаталогВыгрузки);
+		ВыгрузитьКонфигурациюВФайлыIBCMD(Конфигуратор, КаталогВыгрузки);
 	Исключение
 		ТекстОшибки = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
 		Лог.Ошибка("Невозможно выгрузить конфигурацию в файлы. Ошибка:%1%2", Символы.ПС, ТекстОшибки);
@@ -159,36 +161,48 @@
 
 #Область Вспомогательные_процедуры_и_функции
 
-Процедура ВыгрузитьКонфигурациюВФайлыIBCMD(Знач КаталогВыгрузки)
+// Процедура - выполняет выгрузку конфигурации в файлы с использованием утилиты ibcmd
+//
+// Параметры:
+//   Конфигуратор       - УправлениеКонфигуратором    - объект управления конфигуратором (v8runner)
+//   КаталогВыгрузки    - Строка                      - каталог для выгрузки файлов конфигурации
+//
+Процедура ВыгрузитьКонфигурациюВФайлыIBCMD(Знач Конфигуратор, Знач КаталогВыгрузки)
 
-	РабочийКонфигуратор = Обработчик.ПолучитьРабочийКонфигуратор();
-	КонтекстКонфигуратора = РабочийКонфигуратор.ПолучитьКонтекст();
+	КонтекстКонфигуратора = Конфигуратор.ПолучитьКонтекст();
+	
+	СтрокаСоединения = КонтекстКонфигуратора.КлючСоединенияСБазой;
+	Пользователь     = КонтекстКонфигуратора.ИмяПользователя;
+	Пароль           = КонтекстКонфигуратора.Пароль;
+	
 	ИмяРасширения = Обработчик.ПолучитьИмяРасширения();
 
 	ПутьКIBCMD = Платформа1С.ПутьКIBCMD(Обработчик.ТекущаяВерсияПлатформы);
-	
+
 	СервернаяБаза = Ложь;
 	ПутьКБД = "";
 
-	Если Лев(КонтекстКонфигуратора.СтрокаСоединения, 2) = "/F" Тогда
-		ПутьКБД = СокрЛП(Сред(КонтекстКонфигуратора.СтрокаСоединения, 3));
-	ИначеЕсли Лев(КонтекстКонфигуратора.СтрокаСоединения, 2) = "/S" Тогда
+	Если Лев(СтрокаСоединения, 2) = "/F" Тогда
+		ПутьКБД = СокрЛП(Сред(СтрокаСоединения, 3));
+	ИначеЕсли Лев(СтрокаСоединения, 2) = "/S" Тогда
 		СервернаяБаза = Истина;
-		ЧастиПути = СтрРазделить(Сред(КонтекстКонфигуратора.СтрокаСоединения, 3), "\", Ложь);
+		ЧастиПути = СтрРазделить(Сред(СтрокаСоединения, 3), "\", Ложь);
 		Если НЕ ЗначениеЗаполнено(СерверБД) Тогда
 			СерверБД = СокрЛП(ЧастиПути[0]);
 		КонецЕсли;
 		Если НЕ ЗначениеЗаполнено(ИмяБД) И ЧастиПути.Количество() > 1 Тогда
 			ИмяБД = СокрЛП(ЧастиПути[1]);
 		КонецЕсли;
 	Иначе
-		ПутьКБД = РабочийКонфигуратор.ПутьКВременнойБазе();
+		ПутьКБД = Конфигуратор.ПутьКВременнойБазе();
 	КонецЕсли;
 
 	КомандаIBCMD = Новый Команда;
 	КомандаIBCMD.УстановитьКоманду(ПутьКIBCMD);
+	КомандаIBCMD.ПоказыватьВыводНемедленно(Истина);
+	КомандаIBCMD.УстановитьКодировкуВывода("UTF-8");
 	КомандаIBCMD.ДобавитьПараметр("infobase config export");	
-	
+
 	Если ЗначениеЗаполнено(РабочийКаталогIBCMD) Тогда
 		КомандаIBCMD.ДобавитьПараметр(СтрШаблон("--data=%1", РабочийКаталогIBCMD));
 	КонецЕсли;
@@ -201,10 +215,10 @@
 	Иначе
 		КомандаIBCMD.ДобавитьПараметр(СтрШаблон("--db-path=%1", ПутьКБД));
 	КонецЕсли;
-	Если ЗначениеЗаполнено(КонтекстКонфигуратора.Пользователь) Тогда
-		КомандаIBCMD.ДобавитьПараметр(СтрШаблон("--user=%1", КонтекстКонфигуратора.Пользователь));
-		Если ЗначениеЗаполнено(КонтекстКонфигуратора.Пароль) Тогда
-			КомандаIBCMD.ДобавитьПараметр(СтрШаблон("--pwd=%1", КонтекстКонфигуратора.Пароль));
+	Если ЗначениеЗаполнено(Пользователь) Тогда
+		КомандаIBCMD.ДобавитьПараметр(СтрШаблон("--user=%1", Пользователь));
+		Если ЗначениеЗаполнено(Пароль) Тогда
+			КомандаIBCMD.ДобавитьПараметр(СтрШаблон("--pwd=%1", Пароль));
 		КонецЕсли;
 	КонецЕсли;
 	Если ЗначениеЗаполнено(ИмяРасширения) Тогда
@@ -222,9 +236,12 @@
 	КодВозврата = КомандаIBCMD.Исполнить();
 
 	Если КодВозврата <> 0 Тогда
-		Лог.КритичнаяОшибка("Не удалось выгрузить конфигурацию в файлы с использованием IBCMD");
+		ТекстОшибки = КомандаIBCMD.ПолучитьВывод();
+		Лог.КритичнаяОшибка("Не удалось выгрузить конфигурацию в файлы с использованием IBCMD:%1%2",
+		                    Символы.ПС,
+		                    ТекстОшибки);
 	КонецЕсли;
-	
+
 КонецПроцедуры // ВыгрузитьКонфигурациюВФайлыIBCMD()
 
 #КонецОбласти