upd Отправить сообщения сервисов интеграции V2024.07.04

Author: dsdred

README.md

@@ -9,7 +9,7 @@
 
 ![Infostart](/assets/img/svg/infostartlogo.svg)
 
-Исходники выгружены платформой `8.3.24.1368`
+Исходники выгружены платформой `8.3.24.1548`
 
 ### Состав:
 
@@ -65,7 +65,7 @@ _Инструмент повторяет типовой функционал, н
 
 ---
 
-1. **Отправка сообщения сервисов интеграции** `V2024.05.08`
+1. **Отправка сообщения сервисов интеграции** `V2024.07.04`
 
 _Инструмент позволяет создать сообщение сервиса интеграции на выбранном канале._
 
@@ -77,7 +77,9 @@ _Инструмент позволяет создать сообщение се
 - [x] Кнопка запуска фонового задания по работе с 1С:Шиной
 - [x] Кнопка остановки фонового задания по работе с 1С:Шиной
 - [x] Совместимость с 8.3.17
-- [x] Добавлена заготовка для БСП (Дополнительные обработки и отчеты). Функция СведенияОВнешнейОбработке() `new`
+- [x] Добавлена заготовка для БСП (Дополнительные обработки и отчеты). Функция СведенияОВнешнейОбработке()
+- [x] Добавлена проверка на Минимальную версию платформы 8.3.17. Если платформа меньше, функционал будет отсутствовать `new`
+- [x] Добавлена проверка на версию платформы 8.3.21. Если версия больше или равна тогда появится возможность снять галочку создающую параметр "РазмерСообщения" `new`
 - [ ] Заполнение на основании сообщения
 
 | [Исходники](/src/SendingMessageIntegrationServices/) | [Скачать epf файл](https://infostart.ru/1c/tools/2050054/) |

src/SendingMessageIntegrationServices/PAPI_ОтправкаСообщенияСервисовИнтеграции.xml

@@ -19,7 +19,7 @@
 					<v8:content>PAPI: Отправка сообщения сервисов интеграции</v8:content>
 				</v8:item>
 			</Synonym>
-			<Comment>Отправить сообщения сервисов интеграции V2024.05.08</Comment>
+			<Comment>Отправить сообщения сервисов интеграции V2024.07.04</Comment>
 			<DefaultForm>ExternalDataProcessor.PAPI_ОтправкаСообщенияСервисовИнтеграции.Form.Форма</DefaultForm>
 			<AuxiliaryForm/>
 		</Properties>

src/SendingMessageIntegrationServices/PAPI_ОтправкаСообщенияСервисовИнтеграции/Ext/ObjectModule.bsl

@@ -20,3 +20,157 @@
 //КонецФункции
 
 #КонецОбласти
+
+#Область СлужебныеПроцедурыИФункции
+
+// Функция для возврата минимальной версии при которой будет работать история данных
+Функция МинимальнаяВерсияПлатформы()
+	Возврат "8.3.17";	
+КонецФункции
+
+// Функция для возврата версии в которой появилось свойство РазмерТела
+Функция ВерсияСРазмерТела()
+	Возврат "8.3.21";	
+КонецФункции
+
+
+// Определяет используемую версию платформы.
+//
+//	Параметры:
+//		ВерсияПлатформы - Строка - Пример: "8.3.11.2867"
+//
+// Возвращаемое значение:
+//	Структура:
+//   Отработал - Булево - Истина, функция возвращает нормальный результат, 
+//   					Ложь означает, что результат получить не удалось.
+//	 ТекстОшибки - Строка - Описание ошибки
+//   Результат - Строка - Текущая версия конфигуратора или режима совместимости
+//
+Функция ТекущаяВерсияПлатформы(ВидПроверки = "МинимальнаяВерсияПлатформы") Экспорт 
+	
+	Результат = Новый Структура("Отработал, ТекстОшибки, Результат", Истина, "", 0);
+	
+	АктуальнаяСистемнаяИнформация = Новый СистемнаяИнформация;
+		
+	// 8.3.11.2867
+	перВерсияПриложения = АктуальнаяСистемнаяИнформация.ВерсияПриложения;  
+	 
+	Если ВидПроверки = "МинимальнаяВерсияПлатформы" Тогда  
+		МинимальнаяВерсия = МинимальнаяВерсияПлатформы();     
+	Иначе
+		МинимальнаяВерсия = ВерсияСРазмерТела();	
+	КонецЕсли;	  
+	
+	// Основная проверка
+	Если ВерсияСтаршеИлиРавнаВерсии(перВерсияПриложения, МинимальнаяВерсия) Тогда
+		
+		Результат.Результат = перВерсияПриложения;	   
+		
+	Иначе
+		
+		Результат.Отработал = Ложь;
+		текТекстОшибки = НСтр("ru = 'Версия платформы ( %1 ), необходима версия не ниже ( %2 )'");
+		Результат.ТекстОшибки	=  СтрШаблон(текТекстОшибки, перВерсияПриложения, МинимальнаяВерсия); 
+		
+	КонецЕсли;	
+					
+    Возврат Результат;
+	
+КонецФункции
+
+
+// Сравниваем две версии и возвращаем Истина если ПроверяемаяВерсия >= ЭталоннаяВерсия,
+// в противном случае возвращаем Ложь
+Функция ВерсияСтаршеИлиРавнаВерсии(ПроверяемаяВерсия, ЭталоннаяВерсия)
+	
+	СтруктураПроверяемаяВерсия 	= ВернутьСтруктуруПоВерсии(ПроверяемаяВерсия);	
+	СтруктураЭталоннаяВерсия 	= ВернутьСтруктуруПоВерсии(ЭталоннаяВерсия);
+	
+	Результат = Истина;
+	
+	Если Число(СтруктураПроверяемаяВерсия.НомерВерсии) > Число(СтруктураЭталоннаяВерсия.НомерВерсии) Тогда 
+		
+		Возврат Результат;
+		
+	ИначеЕсли Число(СтруктураПроверяемаяВерсия.НомерВерсии) < Число(СтруктураЭталоннаяВерсия.НомерВерсии) Тогда 
+		
+		Результат = Ложь;
+		
+	Иначе // СтруктураПроверяемаяВерсия.НомерВерсии = СтруктураЭталоннаяВерсия
+		
+		Если Число(СтруктураПроверяемаяВерсия.НомерРедакции) > Число(СтруктураЭталоннаяВерсия.НомерРедакции) Тогда
+			
+			Возврат Результат;
+		
+		ИначеЕсли Число(СтруктураПроверяемаяВерсия.НомерРедакции) < Число(СтруктураЭталоннаяВерсия.НомерРедакции) Тогда
+			
+			Результат = Ложь;
+			
+		Иначе // СтруктураПроверяемаяВерсия.НомерРедакции = СтруктураЭталоннаяВерсия.НомерРедакции
+			
+			Если Число(СтруктураПроверяемаяВерсия.НомерРелиза) > Число(СтруктураЭталоннаяВерсия.НомерРелиза) Тогда
+				
+				Возврат Результат;	
+			
+			ИначеЕсли Число(СтруктураПроверяемаяВерсия.НомерРелиза) < Число(СтруктураЭталоннаяВерсия.НомерРелиза) Тогда 
+				
+				Результат = Ложь;
+				
+			Иначе  // СтруктураПроверяемаяВерсия.НомерРелиза = СтруктураЭталоннаяВерсия.НомерРелиза
+				
+				Если СтруктураПроверяемаяВерсия.НомерПодрелиза <> "0" Тогда 
+					
+					Если Число(СтруктураПроверяемаяВерсия.НомерПодрелиза) > Число(СтруктураЭталоннаяВерсия.НомерПодрелиза) Тогда
+				
+						Возврат Результат;	
+					
+					ИначеЕсли Число(СтруктураПроверяемаяВерсия.НомерПодрелиза) < Число(СтруктураЭталоннаяВерсия.НомерПодрелиза) Тогда 
+						
+						Результат = Ложь;
+						
+					Иначе 
+						
+						Возврат Результат;
+						
+				    КонецЕсли; // НомерПодрелиза
+				КонецЕсли; // НомерПодрелиза <> "0"
+			КонецЕсли; // НомерРелиза	
+        КонецЕсли; // НомерРедакции
+	КонецЕсли; // НомерВерсии	
+	
+	Возврат Результат;
+	
+КонецФункции 
+
+// Возвращает структуру по версии 
+//	Параметры:
+//		ВерсияПлатформы - Строка - Пример: "8.3.11.2867" 
+//
+// 	Возвращаемое значение:
+// 	Структура:
+//		НомерВерсии 	- Строка - Пример: "8"
+//		НомерРедакции 	- Строка - Пример: "3"
+//		НомерРелиза		- Строка - Пример: "11"
+//		НомерПодрелиза 	- Строка - Пример: "2867"
+Функция ВернутьСтруктуруПоВерсии(ВерсияПлатформы)
+	
+	массивРазделенныхЭлементов = СтрРазделить(ВерсияПлатформы, ".", Истина);    
+	
+	Если массивРазделенныхЭлементов.Количество() < 4 Тогда 
+		Пока массивРазделенныхЭлементов.Количество() < 4 Цикл 
+			массивРазделенныхЭлементов.Добавить("0");
+		КонецЦикла;	
+	КонецЕсли;
+	
+	СтруктураВерсияПриложения = Новый Структура("НомерВерсии, НомерРедакции, НомерРелиза, НомерПодрелиза"
+						,массивРазделенныхЭлементов[0]
+						,массивРазделенныхЭлементов[1]
+						,массивРазделенныхЭлементов[2]
+						,массивРазделенныхЭлементов[3]);
+
+	Возврат СтруктураВерсияПриложения;
+	
+КонецФункции
+
+#КонецОбласти
+

src/SendingMessageIntegrationServices/PAPI_ОтправкаСообщенияСервисовИнтеграции/Forms/Форма/Ext/Form.xml

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Form xmlns="http://v8.1c.ru/8.3/xcf/logform" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core" xmlns:dcssch="http://v8.1c.ru/8.1/data-composition-system/schema" xmlns:dcsset="http://v8.1c.ru/8.1/data-composition-system/settings" 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: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.17">
+<Form xmlns="http://v8.1c.ru/8.3/xcf/logform" xmlns:app="http://v8.1c.ru/8.2/managed-application/core" xmlns:cfg="http://v8.1c.ru/8.1/data/enterprise/current-config" xmlns:dcscor="http://v8.1c.ru/8.1/data-composition-system/core" xmlns:dcsset="http://v8.1c.ru/8.1/data-composition-system/settings" 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: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.17">
 	<AutoCommandBar name="ФормаКоманднаяПанель" id="-1">
 		<Autofill>false</Autofill>
 	</AutoCommandBar>
@@ -519,7 +519,7 @@
 			<Title>
 				<v8:item>
 					<v8:lang>ru</v8:lang>
-					<v8:content>Создать "РазмерСообщения"</v8:content>
+					<v8:content>Создать параметр "РазмерСообщения" (обязательно если платформа младше 8.3.21)</v8:content>
 				</v8:item>
 			</Title>
 			<Type>
@@ -541,6 +541,32 @@
 				</v8:StringQualifiers>
 			</Type>
 		</Attribute>
+		<Attribute name="ВерсияПлатформы" id="13">
+			<Title>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Версия платформы</v8:content>
+				</v8:item>
+			</Title>
+			<Type>
+				<v8:Type>xs:string</v8:Type>
+				<v8:StringQualifiers>
+					<v8:Length>0</v8:Length>
+					<v8:AllowedLength>Variable</v8:AllowedLength>
+				</v8:StringQualifiers>
+			</Type>
+		</Attribute>
+		<Attribute name="ВерсияСРазмеромТела" id="14">
+			<Title>
+				<v8:item>
+					<v8:lang>ru</v8:lang>
+					<v8:content>Версия с размером тела</v8:content>
+				</v8:item>
+			</Title>
+			<Type>
+				<v8:Type>xs:boolean</v8:Type>
+			</Type>
+		</Attribute>
 	</Attributes>
 	<Commands>
 		<Command name="ОтправитьСообщение" id="1">

src/SendingMessageIntegrationServices/PAPI_ОтправкаСообщенияСервисовИнтеграции/Forms/Форма/Ext/Form/Module.bsl

@@ -27,31 +27,46 @@
 &НаСервере
 Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 
-	Если Метаданные.СервисыИнтеграции.Количество() > 0 Тогда 
-		Для Каждого СервисИнтеграции Из Метаданные.СервисыИнтеграции Цикл 
-			
-			Элементы.Сервис.СписокВыбора.Добавить(СервисИнтеграции.Имя,СервисИнтеграции.Имя);
-			
-		КонецЦикла;	
-		
-		Если Элементы.Сервис.СписокВыбора.Количество() > 0 Тогда 
-			
-			Сервис = Элементы.Сервис.СписокВыбора[0];
+	// Проверка пригодности платформы
+	СтруктураПроверки = ЭтотОбъект().ТекущаяВерсияПлатформы();
+	Если СтруктураПроверки.Отработал Тогда 
+		ЕстьОшибка 		= Ложь;
+		ВерсияПлатформы = СтруктураПроверки.Результат;
+
+		Если Метаданные.СервисыИнтеграции.Количество() > 0 Тогда 
+			Для Каждого СервисИнтеграции Из Метаданные.СервисыИнтеграции Цикл 
+				
+				Элементы.Сервис.СписокВыбора.Добавить(СервисИнтеграции.Имя,СервисИнтеграции.Имя);
+				
+			КонецЦикла;	
 
-	        СервисПриИзмененииНаСервере();
-							
-		КонецЕсли;	
-	КонецЕсли;
+			Если Элементы.Сервис.СписокВыбора.Количество() > 0 Тогда 
+				
+				Сервис = Элементы.Сервис.СписокВыбора[0];
+				
+		        СервисПриИзмененииНаСервере();
+								
+			КонецЕсли;	
+		КонецЕсли;
 
+	Иначе 
+		ЕстьОшибка 	= Истина;
+		ТекстОшибки = СтруктураПроверки.ТекстОшибки;  		
+	КонецЕсли;	
+		
 	// Создаю параметр для описания сообщения
 	новСтрока = ПараметрыСообщения.Добавить();
 	новСтрока.Ключ 		= "ТипСообщения";
 	новСтрока.Значение 	= "ОбменДанными";
 
 	// Для того чтобы в параметрах было сведения о размере тела сообщения:
 	// Сообщение.Параметры.Вставить("РазмерСообщения", Буфер.Размер);
+	СтруктураПроверки = ЭтотОбъект().ТекущаяВерсияПлатформы("ВерсияСРазмеромТела"); 
+	ВерсияСРазмеромТела = СтруктураПроверки.Отработал;
 	ВключитьРазмерСообщения = Истина;
 
+	ВидимостьИДоступностьЭлементов();
+
 КонецПроцедуры
 
 #КонецОбласти
@@ -269,6 +284,31 @@
 
 КонецПроцедуры
 
+&НаСервере
+Функция ЭтотОбъект(ТекущийОбъект = Неопределено)
+	
+	Если ТекущийОбъект = Неопределено Тогда
+		Возврат РеквизитФормыВЗначение("Объект");
+	КонецЕсли; 
+	ЗначениеВРеквизитФормы(ТекущийОбъект, "Объект");
+	
+	Возврат Неопределено;                
+	
+КонецФункции
+
+&НаСервере
+Процедура ВидимостьИДоступностьЭлементов()
+	
+    Элементы.ТекстОшибки.Видимость 				= ЕстьОшибка;    
+	
+    Элементы.ГруппаШапка.Видимость 				= Не ЕстьОшибка;
+	Элементы.Страницы.Видимость 				= Не ЕстьОшибка;
+	Элементы.ИдентификаторЗапроса.Видимость 	= Не ЕстьОшибка;
+	Элементы.ГруппаКоманднаяПанель.Видимость 	= Не ЕстьОшибка;
+	
+	Элементы.ВключитьРазмерСообщения.Видимость	= ВерсияСРазмеромТела
+	
+КонецПроцедуры	
 
 #КонецОбласти