44Перем ПриветствиеХранилища ;
55Перем ПустыеДД ;
66
7+ &ЛогОпрокси
8+ Перем Лог ;
9+
710&Желудь
811Процедура ПриСозданииОбъекта ()
912 ПриветствиеХранилища = ПолучитьДвоичныеДанныеИзHexСтроки("53F5C61A7B" );
1013 ПустыеДД = ПолучитьДвоичныеДанныеИзHexСтроки("" );
1114КонецПроцедуры
1215
1316Процедура ОбработатьСоединение (Соединение_Конфигуратор ) Экспорт
17+
1418 Соединение_Хранилище = Неопределено ;
1519 Пока Соединение_Конфигуратор.Активно Цикл
16- Если ИзКонфигуратораВХранилище(Соединение_Конфигуратор, Соединение_Хранилище) Тогда
20+
21+ ПараметрыЗапросаПостОбработка = Неопределено ;
22+ Если ИзКонфигуратораВХранилище(Соединение_Конфигуратор, Соединение_Хранилище, ПараметрыЗапросаПостОбработка) Тогда
1723 ИзХранилищаВКонфигуратор(Соединение_Конфигуратор, Соединение_Хранилище);
18- ПостОбработкаПомещенияВХранилище();
1924 КонецЕсли ;
25+
26+ Если ПараметрыЗапросаПостОбработка <> Неопределено Тогда
27+ ПостОбработкаПомещенияВХранилище(ПараметрыЗапросаПостОбработка);
28+ КонецЕсли ;
29+
2030 КонецЦикла ;
31+
2132 Соединение_Конфигуратор.Закрыть();
2233 Соединение_Хранилище.Закрыть();
34+
2335КонецПроцедуры
2436
25- Функция ИзКонфигуратораВХранилище (Соединение_Конфигуратор , Соединение_Хранилище )
37+ Функция ИзКонфигуратораВХранилище (Соединение_Конфигуратор , Соединение_Хранилище , ПараметрыЗапросаПостОбработка )
2638 ДанныеСоединения = Неопределено ;
2739 ЕстьПодключениеКХранилищу = Соединение_Хранилище <> Неопределено ;
2840 Если НЕ ЕстьПодключениеКХранилищу Тогда
4153 ПараметрыЗапроса = ОбработкаДанных.ПолучитьПараметрыЗапроса(ДанныеСоединения);
4254 Если ПараметрыЗапроса <> Неопределено
4355 И ПараметрыЗапроса.Проверять = Истина Тогда
44- ПродолжитьСоединение = ОбработатьПроверяемыйЗапрос(Соединение_Конфигуратор, Соединение_Хранилище, ДанныеСоединения);
56+ ПродолжитьСоединение = ОбработатьПроверяемыйЗапрос(Соединение_Конфигуратор, Соединение_Хранилище,
57+ ДанныеСоединения, ПараметрыЗапросаПостОбработка);
4558 Возврат ПродолжитьСоединение;
4659 КонецЕсли ;
4760 КонецЕсли ;
5366 ЭтоКонецСообщения = ОбработкаДанных.ЕстьКонецСообщения(ДанныеСоединения);
5467 КонецЕсли ;
5568 КонецЦикла ;
69+
5670 Возврат НЕ ЭтоПинг;
71+
5772КонецФункции
5873
59- Функция ОбработатьПроверяемыйЗапрос (Соединение_Конфигуратор , Соединение_Хранилище , ДанныеСоединения )
74+ Функция ОбработатьПроверяемыйЗапрос (Соединение_Конфигуратор , Соединение_Хранилище ,
75+ ДанныеСоединения , ПараметрыЗапросаПостОбработка )
6076 МассивДДЗапроса = Новый Массив;
6177 МассивДДЗапроса.Добавить(ДанныеСоединения);
6278 Пока НЕ ОбработкаДанных.ЕстьКонецСообщения(ДанныеСоединения) Цикл
6985 Попытка
7086 Если ПараметрыЗапроса.ИмяМетода = "DevDepot_commitObjects" Тогда
7187 ТекстОшибки = ПроверкиПроксиСервера.ОбработкаПомещенияВХранилище(ПараметрыЗапроса);
88+ ПараметрыЗапросаПостОбработка = ПараметрыЗапроса;
7289 ИначеЕсли ПараметрыЗапроса.ИмяМетода = "DevDepot_changeVersion" Тогда
7390 ТекстОшибки = ПроверкиПроксиСервера.ОбработкаИзмененияВерсииХранилища(ПараметрыЗапроса);
91+ ПараметрыЗапросаПостОбработка = ПараметрыЗапроса;
7492 КонецЕсли ;
7593 Исключение
7694 ТекстОшибки = СтрШаблон ("Ошибка вызова функции в файле "" ПроверкиПроксиСервера.os"" : %1" , ОписаниеОшибки ());
95+ Лог.Ошибка(ТекстОшибки);
7796 КонецПопытки ;
7897 ЕстьОшибка = НЕ ПустаяСтрока (ТекстОшибки);
7998 Если ЕстьОшибка Тогда
8099 ДД = ОбработкаДанных.ПолучитьДвоичныеДанныеОтветаОшибки(ТекстОшибки);
81100 Соединение_Конфигуратор.ОтправитьДвоичныеДанные(ДД);
101+ ПараметрыЗапросаПостОбработка = Неопределено ;
82102 Возврат Ложь ;
83103 Иначе
84104 Для Каждого ДанныеСоединения Из МассивДДЗапроса Цикл
85105 Соединение_Хранилище.ОтправитьДвоичныеДанные(ДанныеСоединения);
86106 КонецЦикла ;
87107 КонецЕсли ;
108+
88109 Возврат НЕ ЕстьОшибка;
110+
89111КонецФункции
90112
91113Процедура ИзХранилищаВКонфигуратор (Соединение_Конфигуратор , Соединение_Хранилище )
104126 Соединение_Хранилище.ПрочитатьДвоичныеДанные();
105127КонецПроцедуры
106128
107- Процедура ПостОбработкаПомещенияВХранилище ()
108- РезультатБулево = ПроверкиПроксиСервера.ПостОбработкаПомещенияВХранилище();
109- КонецПроцедуры
129+ Процедура ПостОбработкаПомещенияВХранилище (ПараметрыЗапроса )
130+
131+ Попытка
132+ РезультатБулево = ПроверкиПроксиСервера.ПостОбработкаПомещенияВХранилище(ПараметрыЗапроса);
133+ Исключение
134+ ТекстОшибки = СтрШаблон ("Ошибка вызова функции пост обработки в файле "" ПроверкиПроксиСервера.os"" : %1" , ОписаниеОшибки ());
135+ Лог.Ошибка(ТекстОшибки);
136+ КонецПопытки ;
137+
138+ КонецПроцедуры
0 commit comments