Main build (Jenkins)

src/en/OInt/tools/Modules/OPI_SQLQueries.os

@@ -1612,23 +1612,31 @@ Function DefineParameterType(Val CurrentParameter)
 
     CurrentType = TypeOf(CurrentParameter);
 
-    If CurrentType = Type("Number") Then
-
-        CurrentType = ?(Int(CurrentParameter) = CurrentParameter, "Whole", "Float");
-
-    ElsIf CurrentType = Type("BinaryData") Then
-
-        CurrentType = "BinaryData";
-
-    ElsIf CurrentType = Type("UUID") Then
-
-        CurrentType = "UUID";
+    SimpleComparison = New Array;
+    SimpleComparison.Add("BinaryData");
+    SimpleComparison.Add("UUID");
+    SimpleComparison.Add("Structure");
+    SimpleComparison.Add("Map");
+    SimpleComparison.Add("Array");
+    SimpleComparison.Add("Boolean");
+    SimpleComparison.Add("Date");
+    SimpleComparison.Add("String");
 
+    If CurrentType                     = Type("Number") Then
+        Return ?(Int(CurrentParameter) = CurrentParameter, "Whole", "Float");
     Else
-        CurrentType = String(CurrentType);
+
+        For Each TypeName In SimpleComparison Do
+
+            If CurrentType = Type(TypeName) Then
+                Return TypeName;
+            EndIf;
+
+        EndDo;
+
     EndIf;
 
-    Return CurrentType;
+    Raise StrTemplate("Parameter type not supported: %1", String(CurrentType));
 
 EndFunction
 

src/en/OPI/src/CommonModules/OPI_SQLQueries/Module.bsl

@@ -1612,23 +1612,31 @@ Function DefineParameterType(Val CurrentParameter)
 
     CurrentType = TypeOf(CurrentParameter);
 
-    If CurrentType = Type("Number") Then
-
-        CurrentType = ?(Int(CurrentParameter) = CurrentParameter, "Whole", "Float");
-
-    ElsIf CurrentType = Type("BinaryData") Then
-
-        CurrentType = "BinaryData";
-
-    ElsIf CurrentType = Type("UUID") Then
-
-        CurrentType = "UUID";
+    SimpleComparison = New Array;
+    SimpleComparison.Add("BinaryData");
+    SimpleComparison.Add("UUID");
+    SimpleComparison.Add("Structure");
+    SimpleComparison.Add("Map");
+    SimpleComparison.Add("Array");
+    SimpleComparison.Add("Boolean");
+    SimpleComparison.Add("Date");
+    SimpleComparison.Add("String");
 
+    If CurrentType                     = Type("Number") Then
+        Return ?(Int(CurrentParameter) = CurrentParameter, "Whole", "Float");
     Else
-        CurrentType = String(CurrentType);
+
+        For Each TypeName In SimpleComparison Do
+
+            If CurrentType = Type(TypeName) Then
+                Return TypeName;
+            EndIf;
+
+        EndDo;
+
     EndIf;
 
-    Return CurrentType;
+    Raise StrTemplate("Parameter type not supported: %1", String(CurrentType));
 
 EndFunction
 

src/ru/OInt/tools/Modules/OPI_ЗапросыSQL.os

@@ -1612,23 +1612,31 @@
 
     ТекущийТип = ТипЗнч(ТекущийПараметр);
 
+    ОбычноеСопоставление = Новый Массив;
+    ОбычноеСопоставление.Добавить("ДвоичныеДанные");
+    ОбычноеСопоставление.Добавить("УникальныйИдентификатор");
+    ОбычноеСопоставление.Добавить("Структура");
+    ОбычноеСопоставление.Добавить("Соответствие");
+    ОбычноеСопоставление.Добавить("Массив");
+    ОбычноеСопоставление.Добавить("Булево");
+    ОбычноеСопоставление.Добавить("Дата");
+    ОбычноеСопоставление.Добавить("Строка");
+
     Если ТекущийТип = Тип("Число") Тогда
-
-        ТекущийТип = ?(Цел(ТекущийПараметр) = ТекущийПараметр, "Целое", "Дробное");
-
-    ИначеЕсли ТекущийТип = Тип("ДвоичныеДанные") Тогда
-
-        ТекущийТип = "ДвоичныеДанные";
-
-    ИначеЕсли ТекущийТип = Тип("УникальныйИдентификатор") Тогда
-
-        ТекущийТип = "УникальныйИдентификатор";
-
+        Возврат ?(Цел(ТекущийПараметр) = ТекущийПараметр, "Целое", "Дробное");
     Иначе
-        ТекущийТип = Строка(ТекущийТип);
+
+        Для Каждого ИмяТипа Из ОбычноеСопоставление Цикл
+
+            Если ТекущийТип = Тип(ИмяТипа) Тогда
+                Возврат ИмяТипа;
+            КонецЕсли;
+
+        КонецЦикла;
+
     КонецЕсли;
 
-    Возврат ТекущийТип;
+    ВызватьИсключение СтрШаблон("Тип параметра не поддерживается: %1", Строка(ТекущийТип));
 
 КонецФункции
 

src/ru/OPI/src/CommonModules/OPI_ЗапросыSQL/Module.bsl

@@ -1611,7 +1611,7 @@
 Функция ОпределитьТипПараметра(Знач ТекущийПараметр)
 
     ТекущийТип = ТипЗнч(ТекущийПараметр);
-    
+
     ОбычноеСопоставление = Новый Массив;
     ОбычноеСопоставление.Добавить("ДвоичныеДанные");
     ОбычноеСопоставление.Добавить("УникальныйИдентификатор");
@@ -1625,15 +1625,15 @@
     Если ТекущийТип = Тип("Число") Тогда
         Возврат ?(Цел(ТекущийПараметр) = ТекущийПараметр, "Целое", "Дробное");
     Иначе
-        
+
         Для Каждого ИмяТипа Из ОбычноеСопоставление Цикл
-            
+
             Если ТекущийТип = Тип(ИмяТипа) Тогда
                 Возврат ИмяТипа;
             КонецЕсли;
-            
+
         КонецЦикла;
-        
+
     КонецЕсли;
 
     ВызватьИсключение СтрШаблон("Тип параметра не поддерживается: %1", Строка(ТекущийТип));