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

Author: 240596448

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

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