Merge branch 'main' of https://github.com/Bayselonarrend/OpenIntegrat…

…ions

OInt/tools/Modules/OPI_ПреобразованиеТипов.os

@@ -109,46 +109,52 @@
             Значение = ПрочитатьJSON(ЧтениеJSON, Истина, Неопределено, ФорматДатыJSON.ISO);
             ЧтениеJSON.Закрыть();
 
-            Если Не ТипЗнч(Значение) = Тип("Структура") 
+            Если (Не ТипЗнч(Значение) = Тип("Структура") 
                 И Не ТипЗнч(Значение) = Тип("Соответствие")
-                И Не ТипЗнч(Значение) = Тип("Массив") Тогда
-
-                Если ТипЗнч(Значение) = Тип("Число") Тогда
-                    Значение = OPI_Инструменты.ЧислоВСтроку(Значение);    
-                КонецЕсли;
-
-                OPI_Инструменты.ЗначениеВМассив(Значение);
+                И Не ТипЗнч(Значение) = Тип("Массив")) Или Не ЗначениеЗаполнено(Значение) Тогда
+
+                ПолучитьМассив(ИсходноеЗначение)
 
             КонецЕсли;
 
         КонецЕсли;
 
     Исключение
 
-        Значение = ИсходноеЗначение;
-
-        Если ТипЗнч(Значение) = Тип("Строка") 
-            И СтрНачинаетсяС(Значение, "[")
-            И СтрЗаканчиваетсяНа(Значение, "]") Тогда
-
-            Значение = СтрЗаменить(Значение, "['"   , "");
-            Значение = СтрЗаменить(Значение, "']"   , "");
-            Значение = СтрЗаменить(Значение, "', '" , "','");
-            Значение = СтрЗаменить(Значение, "' , '", "','");
-            Значение = СтрЗаменить(Значение, "' ,'" , "','");
+    	ПолучитьМассив(ИсходноеЗначение);	
 
-            Значение = СтрРазделить(Значение, "','", Ложь);
+    КонецПопытки;
 
-            Для Н = 0 По Значение.ВГраница() Цикл
-                Значение[Н] = СокрЛП(Значение[Н]);
-            КонецЦикла;
-
-        Иначе
-            OPI_Инструменты.ЗначениеВМассив(Значение);
+КонецПроцедуры
+
+Процедура ПолучитьМассив(Значение) Экспорт
+
+    Если ТипЗнч(Значение) = Тип("Строка") 
+        И СтрНачинаетсяС(Значение, "[")
+        И СтрЗаканчиваетсяНа(Значение, "]") Тогда
+
+	    Значение = СтрЗаменить(Значение, "['"   , "");
+	    Значение = СтрЗаменить(Значение, "']"   , "");
+	    Значение = СтрЗаменить(Значение, "', '" , "','");
+	    Значение = СтрЗаменить(Значение, "' , '", "','");
+	    Значение = СтрЗаменить(Значение, "' ,'" , "','");
+
+	    Значение = СтрРазделить(Значение, "','", Ложь);
+
+	    Для Н = 0 По Значение.ВГраница() Цикл
+	        Значение[Н] = СокрЛП(Значение[Н]);
+	    КонецЦикла;
+
+    Иначе
+
+        Если ТипЗнч(Значение) = Тип("Число") Тогда
+            Значение = OPI_Инструменты.ЧислоВСтроку(Значение);    
         КонецЕсли;
 
-    КонецПопытки;
-
+	    OPI_Инструменты.ЗначениеВМассив(Значение);
+
+    КонецЕсли;
+
 КонецПроцедуры
 
 Процедура ПолучитьБулево(Значение) Экспорт