Основная функциоанльность работы через 1С Предприятие.

Author: khorevaa

src/core/Классы/КомандаExport.os

@@ -34,6 +34,9 @@
 	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-auto-set-tags", "Автоматическая установка тэгов по версия конфиграции");
 	Парсер.ДобавитьПараметрФлагКоманды(ОписаниеКоманды, "-increment", "Частичная выгрузка конфигурации");
 
+	Парсер.ДобавитьПараметрФлагКоманды		 (ОписаниеКоманды, "-dontUseTool1cd", "Получение версии хранилища средствами tool1cd или типовыми средствами платформы>");
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-userRep", "<пользователь хранилища конфигурации>");
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-passRep", "<пароль пользователя хранилища конфигурации>");	
 
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
@@ -51,7 +54,8 @@
 	ПрерватьВыполнениеБезКомментарияКВерсии = ПараметрыКоманды["-stop-if-empty-comment"];
 	АвтоматическаяУстановкаТэговПоВерсиям = ПараметрыКоманды["-auto-set-tags"];
 	ВыгружатьТолькоИзменения = ПараметрыКоманды["-increment"];
-
+	НеИспользоватьTool1CD = ПараметрыКоманды["-dontUseTool1cd"];
+	
 	Если ЛокальныйКаталогГит = Неопределено Тогда
 
 		ЛокальныйКаталогГит = ТекущийКаталог();
@@ -110,11 +114,25 @@
 	МинВерсия = Число(МинВерсия);
 	Лимит = Число(Лимит);
 
+	Если НеИспользоватьTool1CD = Неопределено Тогда
+		
+		НеИспользоватьTool1CD = Ложь; // по умолчанию используем tool1cd
+			
+	КонецЕсли;
+
 	Распаковщик = РаспаковщикКонфигурации.ПолучитьИНастроитьРаспаковщик(ПараметрыКоманды, ДополнительныеПараметры);
 	Распаковщик.ВерсияПлатформы				= ПараметрыКоманды["-v8version"];
 	Распаковщик.ДоменПочтыДляGitПоУмолчанию	= ПараметрыКоманды["-email"];
 	Распаковщик.ПереименовыватьФайлМодуляОбычнойФормы = ПереименовыватьФайлМодуляОбычнойФормы;
-	Распаковщик.ТолькоИзменения 			= ВыгружатьТолькоИзменения;
+	
+	Если НеИспользоватьTool1CD Тогда
+		
+			ПараметрыДоступаКХранилищу = Новый Структура("ПользовательХранилища, ПарольХранилища", ПараметрыКоманды["-userRep"], ПараметрыКоманды["-passRep"]);
+			Распаковщик.ПроверитьПараметрыДоступаКХранилищу(ПараметрыДоступаКХранилищу);
+			Распаковщик.ИспользоватьTool1CD = Не НеИспользоватьTool1CD;
+			
+	КонецЕсли;
+	
 	ДополнительныеПараметры.Лог.Информация("Начинаю выгрузку исходников");
 	РаспаковщикКонфигурации.ВыполнитьЭкспортИсходников(Распаковщик, 
                                                         ПараметрыКоманды["ПутьКХранилищу"], 
@@ -128,7 +146,8 @@
 														ПрерватьВыполнениеБезКомментарияКВерсии,
 														,
 														АвтоматическаяУстановкаТэговПоВерсиям,
-														ПроверитьАвторовХранилища);
+														ПроверитьАвторовХранилища,
+														ПараметрыДоступаКХранилищу);
 	ДополнительныеПараметры.Лог.Информация("Выгрузка завершена");
 
 	Возврат МенеджерКомандПриложения.РезультатыКоманд().Успех;

src/core/Классы/КомандаSync.os

@@ -33,6 +33,10 @@
 	Парсер.ДобавитьПараметрФлагКоманды       (ОписаниеКоманды, "-check-authors", "Проверка файла AUTHORS, на наличие всех авторов коммитов ");
 	Парсер.ДобавитьПараметрФлагКоманды       (ОписаниеКоманды, "-stop-if-empty-comment", "Остановить, если Комментарий к версии пустой");
 	Парсер.ДобавитьПараметрФлагКоманды		 (ОписаниеКоманды, "-auto-set-tags", "Автоматическая установка тэгов по версия конфиграции");
+	Парсер.ДобавитьПараметрФлагКоманды		 (ОписаниеКоманды, "-increment", "Частичная выгрузка конфигурации");
+	Парсер.ДобавитьПараметрФлагКоманды		 (ОписаниеКоманды, "-dontUseTool1cd", "Получение версии хранилища средствами tool1cd или типовыми средствами платформы>");
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-userRep", "<пользователь хранилища конфигурации>");
+	Парсер.ДобавитьИменованныйПараметрКоманды(ОписаниеКоманды, "-passRep", "<пароль пользователя хранилища конфигурации>");	
 
 	Парсер.ДобавитьКоманду(ОписаниеКоманды);
 
@@ -54,6 +58,11 @@
 
 	Парсер.ДобавитьПараметрФлаг("-stop-if-empty-comment", "Остановить, если Комментарий к версии пустой");
 	Парсер.ДобавитьПараметрФлаг("-auto-set-tags", "Автоматическая установка тэгов по версия конфиграции");
+	
+	Парсер.ДобавитьПараметрФлаг		 ("-increment", "Частичная выгрузка конфигурации");
+	Парсер.ДобавитьПараметрФлаг		 ("-dontUseTool1cd", "Получение версии хранилища средствами tool1cd или типовыми средствами платформы>");
+	Парсер.ДобавитьИменованныйПараметр("-userRep", "<пользователь хранилища конфигурации>");
+	Парсер.ДобавитьИменованныйПараметр("-passRep", "<пароль пользователя хранилища конфигурации>");	
 
 КонецПроцедуры // ЗарегистрироватьКоманду
 
@@ -77,6 +86,8 @@
 	ПроверитьАвторовХранилища = ПараметрыКоманды["-check-authors"];
 	ПрерватьВыполнениеБезКомментарияКВерсии = ПараметрыКоманды["-stop-if-empty-comment"];
 	АвтоматическаяУстановкаТэговПоВерсиям = ПараметрыКоманды["-auto-set-tags"];
+	ВыгружатьТолькоИзменения = ПараметрыКоманды["-increment"];
+	НеИспользоватьTool1CD = ПараметрыКоманды["-dontUseTool1cd"];
 
 	Если НачальнаяВерсия = Неопределено Тогда
 
@@ -150,6 +161,12 @@
 
 	КонецЕсли;
 
+	Если НеИспользоватьTool1CD = Неопределено Тогда
+		
+		НеИспользоватьTool1CD = Ложь; // по умолчанию используем tool1cd
+			
+	КонецЕсли;
+
 	Лог.Отладка("ПутьКХранилищу = " + ПутьКХранилищу);
 	Лог.Отладка("URLРепозитория = " + URLРепозитория);
 	Лог.Отладка("ЛокальныйКаталогГит = " + ЛокальныйКаталогГит);
@@ -167,6 +184,16 @@
 	Распаковщик.ВерсияПлатформы = ВерсияПлатформы;
 	Распаковщик.ДоменПочтыДляGitПоУмолчанию = ДоменПочты;
 	Распаковщик.ПереименовыватьФайлМодуляОбычнойФормы = ПереименовыватьФайлМодуляОбычнойФормы;
+	Распаковщик.ТолькоИзменения 			= ВыгружатьТолькоИзменения;
+	
+	Если НеИспользоватьTool1CD Тогда
+		
+			ПараметрыДоступаКХранилищу = Новый Структура("ПользовательХранилища, ПарольХранилища", ПараметрыКоманды["-userRep"], ПараметрыКоманды["-passRep"]);
+			Распаковщик.ПроверитьПараметрыДоступаКХранилищу(ПараметрыДоступаКХранилищу);
+			Распаковщик.ИспользоватьTool1CD = Не НеИспользоватьTool1CD;
+
+	КонецЕсли;
+
 
 	Лог.Информация("Получение изменений с удаленного узла (pull)");
 	КодВозврата = Распаковщик.ВыполнитьGitPull(ЛокальныйКаталогГит, URLРепозитория, ИмяВетки);
@@ -189,7 +216,8 @@
 							ПрерватьВыполнениеБезКомментарияКВерсии,
 							ИмяВетки,
 							АвтоматическаяУстановкаТэговПоВерсиям,
-							ПроверитьАвторовХранилища);
+							ПроверитьАвторовХранилища,
+							ПараметрыДоступаКХранилищу);
 
 	Лог.Информация("Отправка изменений на удаленный узел");
 	КодВозврата = Распаковщик.ВыполнитьGitPush(ЛокальныйКаталогГит, URLРепозитория, ИмяВетки, АвтоматическаяУстановкаТэговПоВерсиям);