feat: fix post processing

Author: dvb1t

features/ПроверкиПроксиСервера_Пример.os

@@ -45,7 +45,7 @@
 //СИСТЕМНЫЙ КОД ---
 
 //СИСТЕМНЫЙ КОД +++
-Функция ПостОбработкаПомещенияВХранилище() Экспорт
+Функция ПостОбработкаПомещенияВХранилище(ПараметрыЗапроса) Экспорт
 	РезультатБулево = Истина;
 	//СИСТЕМНЫЙ КОД ---
 

src/Классы/ОбработчикСоединений.os

@@ -11,18 +11,26 @@
 КонецПроцедуры
 
 Процедура ОбработатьСоединение(Соединение_Конфигуратор) Экспорт
+	
 	Соединение_Хранилище = Неопределено;
+	ПараметрыЗапроса = Неопределено;
 	Пока Соединение_Конфигуратор.Активно Цикл
-		Если ИзКонфигуратораВХранилище(Соединение_Конфигуратор, Соединение_Хранилище) Тогда
+		ВыполнитьПостОбработку = Ложь;
+		Если ИзКонфигуратораВХранилище(Соединение_Конфигуратор, Соединение_Хранилище, ПараметрыЗапроса, ВыполнитьПостОбработку) Тогда
 			ИзХранилищаВКонфигуратор(Соединение_Конфигуратор, Соединение_Хранилище);
-			ПостОбработкаПомещенияВХранилище();
+		КонецЕсли;
+		Если ВыполнитьПостОбработку Тогда
+			ПостОбработкаПомещенияВХранилище(ПараметрыЗапроса);
 		КонецЕсли;
 	КонецЦикла;
+	
 	Соединение_Конфигуратор.Закрыть();
 	Соединение_Хранилище.Закрыть();
+
 КонецПроцедуры
 
-Функция ИзКонфигуратораВХранилище(Соединение_Конфигуратор, Соединение_Хранилище)
+Функция ИзКонфигуратораВХранилище(Соединение_Конфигуратор, Соединение_Хранилище,
+								  ПараметрыЗапроса, ВыполнитьПостОбработку)
 	ДанныеСоединения = Неопределено;
 	ЕстьПодключениеКХранилищу = Соединение_Хранилище <> Неопределено;
 	Если НЕ ЕстьПодключениеКХранилищу Тогда
@@ -41,7 +49,8 @@
 			ПараметрыЗапроса = ОбработкаДанных.ПолучитьПараметрыЗапроса(ДанныеСоединения);
 			Если ПараметрыЗапроса <> Неопределено
 				И ПараметрыЗапроса.Проверять = Истина Тогда
-				ПродолжитьСоединение = ОбработатьПроверяемыйЗапрос(Соединение_Конфигуратор, Соединение_Хранилище, ДанныеСоединения);
+				ПродолжитьСоединение = ОбработатьПроверяемыйЗапрос(Соединение_Конфигуратор, Соединение_Хранилище, 
+															       ДанныеСоединения, ВыполнитьПостОбработку);
 				Возврат ПродолжитьСоединение;
 			КонецЕсли;
 		КонецЕсли;
@@ -56,7 +65,8 @@
 	Возврат НЕ ЭтоПинг;
 КонецФункции
 
-Функция ОбработатьПроверяемыйЗапрос(Соединение_Конфигуратор, Соединение_Хранилище, ДанныеСоединения)
+Функция ОбработатьПроверяемыйЗапрос(Соединение_Конфигуратор, Соединение_Хранилище, 
+								    ДанныеСоединения, ВыполнитьПостОбработку)
 	МассивДДЗапроса = Новый Массив;
 	МассивДДЗапроса.Добавить(ДанныеСоединения);
 	Пока НЕ ОбработкаДанных.ЕстьКонецСообщения(ДанныеСоединения) Цикл
@@ -73,6 +83,7 @@
 			ТекстОшибки = ПроверкиПроксиСервера.ОбработкаИзмененияВерсииХранилища(ПараметрыЗапроса);
 		КонецЕсли;
 	Исключение
+		ВыполнитьПостОбработку = Ложь;
 		ТекстОшибки = СтрШаблон("Ошибка вызова функции в файле ""ПроверкиПроксиСервера.os"": %1", ОписаниеОшибки());
 	КонецПопытки;
 	ЕстьОшибка = НЕ ПустаяСтрока(ТекстОшибки);
@@ -85,7 +96,11 @@
 			Соединение_Хранилище.ОтправитьДвоичныеДанные(ДанныеСоединения);
 		КонецЦикла;
 	КонецЕсли;
+	
+	ВыполнитьПостОбработку = НЕ ЕстьОшибка;
+	
 	Возврат НЕ ЕстьОшибка;
+	
 КонецФункции
 
 Процедура ИзХранилищаВКонфигуратор(Соединение_Конфигуратор, Соединение_Хранилище)
@@ -104,6 +119,8 @@
 	Соединение_Хранилище.ПрочитатьДвоичныеДанные();
 КонецПроцедуры
 
-Процедура ПостОбработкаПомещенияВХранилище()
-	РезультатБулево = ПроверкиПроксиСервера.ПостОбработкаПомещенияВХранилище();
-КонецПроцедуры
+Процедура ПостОбработкаПомещенияВХранилище(ПараметрыЗапроса)
+	Если ПараметрыЗапроса <> Неопределено Тогда
+		РезультатБулево = ПроверкиПроксиСервера.ПостОбработкаПомещенияВХранилище(ПараметрыЗапроса);
+	КонецЕсли;
+КонецПроцедуры