Merge pull request #64 from 240596448/smartTags-patch

Вызов исключения после всех попыток установки всех тэгов

Author: khorevaa

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

@@ -131,7 +131,6 @@
 	Консоль.Вывести(" " + Текст);
 
 	Консоль.ВывестиСтроку("");
-	Консоль = Неопределено;
 
 КонецПроцедуры
 

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

@@ -133,6 +133,9 @@
 		Возврат;
 	КонецЕсли;
 
+	ТребуетсяВызовИсключения = Ложь;
+	мТекстыОшибок = Новый Массив;
+
 	Если ПоследняяВерсияКонфигурации <> ТекущаяВерсияКонфигурации Тогда
 		Лог.Информация("Определена новая версия конфигурации: %1. Будет установлен новый тег", ТекущаяВерсияКонфигурации);
 
@@ -148,7 +151,8 @@
 				И ЭтоОшибкаТегУжеСуществует(ТекстОшибки, ТекущаяВерсияКонфигурации) Тогда
 				Лог.Ошибка(ТекстОшибки);
 			Иначе
-				ВызватьИсключение ТекстОшибки;
+				ТребуетсяВызовИсключения = Истина;
+				мТекстыОшибок.Добавить(ТекстОшибки);
 			КонецЕсли;
 		КонецПопытки;
 
@@ -173,7 +177,8 @@
 					И ЭтоОшибкаТегУжеСуществует(ТекстОшибки, ТекущаяВерсияХранилища1С) Тогда
 					Лог.Ошибка(ТекстОшибки);
 				Иначе
-					ВызватьИсключение ТекстОшибки;
+					ТребуетсяВызовИсключения = Истина;
+					мТекстыОшибок.Добавить(ТекстОшибки);
 				КонецЕсли;
 			КонецПопытки;
 
@@ -183,6 +188,10 @@
 
 	КонецЕсли;
 
+	Если ТребуетсяВызовИсключения Тогда
+		ВызватьИсключение СтрСоединить(мТекстыОшибок, Символы.ПС);
+	КонецЕсли;
+
 КонецПроцедуры
 
 #КонецОбласти