- Добавил подсистему работы с обновлениями

- Сделал процедуры http запросов более универсальными
2025-05-21 12:04:34 +03:00
parent 03a0be54d5
commit 91ef839c7f
12 changed files with 896 additions and 1 deletions
--- a/src/cf/CommonModules/РаботаСОбновлениямиВызовСервера.xml
+++ b/src/cf/CommonModules/РаботаСОбновлениямиВызовСервера.xml
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<MetaDataObject xmlns="http://v8.1c.ru/8.3/MDClasses" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:cmi="http://v8.1c.ru/8.2/managed-application/cmi" xmlns:ent="http://v8.1c.ru/8.1/data/enterprise" xmlns:lf="http://v8.1c.ru/8.2/managed-application/logform" xmlns:style="http://v8.1c.ru/8.1/data/ui/style" xmlns:sys="http://v8.1c.ru/8.1/data/ui/fonts/system" xmlns:v8="http://v8.1c.ru/8.1/data/core" xmlns:v8ui="http://v8.1c.ru/8.1/data/ui" xmlns:web="http://v8.1c.ru/8.1/data/ui/colors/web" xmlns:win="http://v8.1c.ru/8.1/data/ui/colors/windows" xmlns:xen="http://v8.1c.ru/8.3/xcf/enums" xmlns:xpr="http://v8.1c.ru/8.3/xcf/predef" xmlns:xr="http://v8.1c.ru/8.3/xcf/readable" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" version="2.19">
+	<CommonModule uuid="69c00569-29bd-456e-ac21-74f8b74451f3">
+		<Properties>
+			<Name>РаботаСОбновлениямиВызовСервера</Name>
+			<Synonym>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Работа с обновлениями вызов сервера</v8:content>
+				</v8:item>
+			</Synonym>
+			<Comment/>
+			<Global>false</Global>
+			<ClientManagedApplication>false</ClientManagedApplication>
+			<Server>true</Server>
+			<ExternalConnection>true</ExternalConnection>
+			<ClientOrdinaryApplication>false</ClientOrdinaryApplication>
+			<ServerCall>true</ServerCall>
+			<Privileged>false</Privileged>
+			<ReturnValuesReuse>DontUse</ReturnValuesReuse>
+		</Properties>
+	</CommonModule>
+</MetaDataObject>
--- a/src/cf/CommonModules/РаботаСОбновлениямиВызовСервера/Ext/Module.bsl
+++ b/src/cf/CommonModules/РаботаСОбновлениямиВызовСервера/Ext/Module.bsl
@@ -0,0 +1,151 @@
+#Область ПрограммныйИнтерфейс
+
+Функция АктуальнаяВерсияКонфигурации(Конфигурация, ВерсияКонфигурации, ВерсияПлатформы = Неопределено) Экспорт
+	
+	АдресРесурса = АдресРесурсаПоИмениМетода("info");
+	ТелоЗапроса = Новый Структура("programName", Конфигурация.Имя);
+	ТелоЗапроса.Вставить("versionNumber", ВерсияКонфигурации);
+	ТелоЗапроса.Вставить("updateType", "NewConfigurationAndOrPlatform");
+	
+	Если ВерсияПлатформы <> Неопределено Тогда
+		ТелоЗапроса.Вставить("platformVersion", ВерсияПлатформы);
+	Иначе
+		ТелоЗапроса.Вставить("platformVersion", "1.1.1.1");
+	КонецЕсли;
+	
+	Соединение = Новый HTTPСоединение("update-api.1c.ru",443,,,,, Новый ЗащищенноеСоединениеOpenSSL);
+	
+	Возврат HttpОбщегоНазначения.ВыполнитьPostЗапрос(Соединение, АдресРесурса, , ТелоЗапроса);
+	
+КонецФункции
+
+Функция КонфигурацииИзПодписки(ИдЧата) Экспорт
+	
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+	"ВЫБРАТЬ
+	|	ОтслеживаниеВерсийКонфигураций.Конфигурация.Наименование КАК КонфигурацияНаименование,
+	|	ОтслеживаниеВерсийКонфигураций.Конфигурация.Имя КАК КонфигурацияИмя,
+	|	ОтслеживаниеВерсийКонфигураций.ТекущаяВерсия КАК ТекущаяВерсия,
+	|	ОтслеживаниеВерсийКонфигураций.АктуальнаяВерсия КАК АктуальнаяВерсия
+	|ИЗ
+	|	РегистрСведений.ОтслеживаниеВерсийКонфигураций КАК ОтслеживаниеВерсийКонфигураций
+	|ГДЕ
+	|	ОтслеживаниеВерсийКонфигураций.ИдЧата = &ИдЧата";
+	
+	Запрос.УстановитьПараметр("ИдЧата", ИдЧата);
+	
+	РезультатЗапроса = Запрос.Выполнить();
+	
+	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
+	
+	МассивКонфигураций = Новый Массив;
+	
+	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
+		Конфигурация = Новый Структура("Наименование, Имя, ТекущаяВерсия, АктуальнаяВерсия",
+		ВыборкаДетальныеЗаписи.КонфигурацияНаименование,ВыборкаДетальныеЗаписи.КонфигурацияИмя,
+		ВыборкаДетальныеЗаписи.ТекущаяВерсия, ВыборкаДетальныеЗаписи.АктуальнаяВерсия);
+		МассивКонфигураций.Добавить(Конфигурация);
+	КонецЦикла;
+	
+	Возврат МассивКонфигураций;
+	
+КонецФункции
+
+
+Функция АктуализироватьВерсииКонфигураций()Экспорт
+	
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+	"ВЫБРАТЬ
+	|	ОтслеживаниеВерсийКонфигураций.Конфигурация КАК Конфигурация,
+	|	ОтслеживаниеВерсийКонфигураций.ИдЧата КАК ИдЧата,
+	|	ОтслеживаниеВерсийКонфигураций.ТекущаяВерсия КАК ТекущаяВерсия,
+	|	ОтслеживаниеВерсийКонфигураций.АктуальнаяВерсия КАК АктуальнаяВерсия
+	|ИЗ
+	|	РегистрСведений.ОтслеживаниеВерсийКонфигураций КАК ОтслеживаниеВерсийКонфигураций";
+	
+	РезультатЗапроса = Запрос.Выполнить();
+	
+	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
+	
+	КэшАктуальныхВерсий = РезультатЗапроса.Выгрузить().СкопироватьКолонки();
+	КэшАктуальныхВерсий.Колонки.Удалить("ИдЧата");
+	ОбработаноЗаписей = 0;
+	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
+		Конфигурация = ВыборкаДетальныеЗаписи.Конфигурация;
+		ТекущаяВерсия = ВыборкаДетальныеЗаписи.ТекущаяВерсия;
+		ИдЧата = ВыборкаДетальныеЗаписи.ИдЧата;
+		
+		АктуальнаяВерсия = ПолучитьИзКэшаАктуальнуюВерсию(КэшАктуальныхВерсий, Конфигурация, ТекущаяВерсия);
+		
+		Если АктуальнаяВерсия = Неопределено Тогда
+			Продолжить;
+		КонецЕсли;
+		
+		Если АктуальнаяВерсия = ВыборкаДетальныеЗаписи.АктуальнаяВерсия Тогда
+			Продолжить;
+		КонецЕсли;
+		
+		МенеджерЗаписи = РегистрыСведений.ОтслеживаниеВерсийКонфигураций.СоздатьМенеджерЗаписи();
+		МенеджерЗаписи.Конфигурация = Конфигурация;
+		МенеджерЗаписи.ИдЧата = ИдЧата;
+		МенеджерЗаписи.ТекущаяВерсия = ТекущаяВерсия;
+		МенеджерЗаписи.АктуальнаяВерсия = АктуальнаяВерсия;
+		
+		МенеджерЗаписи.Записать();
+		ОбработаноЗаписей = ОбработаноЗаписей + 1;
+	КонецЦикла;
+	
+	Возврат ОбработаноЗаписей;
+	
+КонецФункции
+
+#КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+Функция БазовыйАдрес()
+	
+	Возврат "update-platform/programs/update";
+	
+КонецФункции
+
+Функция АдресРесурсаПоИмениМетода(ИмяМетода)
+	
+	Возврат СтрШаблон("%1/%2", БазовыйАдрес(), ИмяМетода);
+	
+КонецФункции
+
+Функция ПолучитьИзКэшаАктуальнуюВерсию(Кэш, Конфигурация, ТекущаяВерсия)
+
+	СтруктураОтбора = Новый Структура("Конфигурация, ТекущаяВерсия", Конфигурация, ТекущаяВерсия);
+	МассивСтрок = Кэш.НайтиСтроки(СтруктураОтбора);
+	Если МассивСтрок.Количество() <> 0 Тогда
+		Возврат МассивСтрок[0].АктуальнаяВерсия;
+	КонецЕсли;
+	
+	Ответ = АктуальнаяВерсияКонфигурации(Конфигурация, ТекущаяВерсия);
+	
+	Если Ответ.Успех Тогда
+		АктуальнаяВерсияССервера = Ответ["Тело"]["configurationUpdateResponse"]["configurationVersion"];
+		Если АктуальнаяВерсияССервера = Неопределено Тогда
+		//Если запрос выполнен без ошибок и в запросе была передана актуальная версия - с сервера обновлений приходит null.
+		// Дополнительно проверим версию платформы, если что-то пришло, значит текущая версия существует
+		// и её назначаем актуальной. Таким образом отличаем некорректную версию текущей конфигурации от совпадения текущей и актуальной.
+			АктуальнаяВерсияПлатформы = Ответ["Тело"]["platformUpdateResponse"]["platformVersion"];
+			Если АктуальнаяВерсияПлатформы <> Неопределено Тогда
+				АктуальнаяВерсияССервера = ТекущаяВерсия;
+			КонецЕсли;
+		КонецЕсли;
+		НоваяСтрока = Кэш.Добавить();
+		ЗаполнитьЗначенияСвойств(НоваяСтрока, СтруктураОтбора);
+		НоваяСтрока.АктуальнаяВерсия = АктуальнаяВерсияССервера;
+		Возврат АктуальнаяВерсияССервера;
+	КонецЕсли;
+	
+	Возврат Неопределено;
+	
+КонецФункции
+
+#КонецОбласти