1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2024-12-04 10:34:52 +02:00
Code Issues Releases Activity

Преобразование OPI -> OInt (workflow)

Browse Source
This commit is contained in:
Vitaly the Alpaca 2024-04-01 08:52:17 +00:00 committed by Vitaly the Alpaca (bot)
parent 531ab78bbf
commit 0a435b0bb4
1 changed files with 35 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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