1
0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-08-10 22:41:43 +02:00
This commit is contained in:
Anton Titovets
2025-01-05 15:45:27 +03:00
parent aa7f68a2bd
commit 56e26afc72
8 changed files with 6194 additions and 6131 deletions

File diff suppressed because it is too large Load Diff

View File

@@ -18254,6 +18254,20 @@
OPI_ПолучениеДанныхТестов.ЗаписатьЛогCLI(Результат, "СоздатьТаблицу", "SQLite");
OPI_ПолучениеДанныхТестов.Проверка_SQLiteУспех(Результат);
СоответствиеКолонок = Новый Соответствие;
СоответствиеКолонок.Вставить("id" , "INTEGER PRIMARY KEY");
СоответствиеКолонок.Вставить("[Непонятная колонка]", "TEXT");
Опции = Новый Структура;
Опции.Вставить("table", "test1");
Опции.Вставить("cols" , СоответствиеКолонок);
Опции.Вставить("db" , База);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("sqlite", "СоздатьТаблицу", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьТаблицу (непонятная колонка)", "SQLite");
OPI_ПолучениеДанныхТестов.Проверка_SQLiteУспех(Результат);
КонецПроцедуры

View File

@@ -2131,9 +2131,9 @@
КонецФункции
Функция ПолучитьОбщийМодуль(Знач Имя)
Модуль = Вычислить(Имя);
Возврат Модуль;
КонецФункции

View File

@@ -75,10 +75,13 @@
Возврат;
КонецЕсли;
Файл = Новый Файл(Значение);
ЗначениеУП = Значение;
OPI_Инструменты.ВернутьУправляющиеПоследовательности(ЗначениеУП);
Файл = Новый Файл(ЗначениеУП);
Если Файл.Существует() Тогда
Значение = Новый ФайловыйПоток(Значение, РежимОткрытияФайла.Открыть);
Значение = Новый ФайловыйПоток(ЗначениеУП, РежимОткрытияФайла.Открыть);
Иначе
ПолучитьДвоичныеДанные(Значение);
КонецЕсли;
@@ -105,18 +108,21 @@
Значение = OPI_Инструменты.ЧислоВСтроку(Значение);
КонецЕсли;
Файл = Новый Файл(Значение);
ЗначениеУП = Значение;
OPI_Инструменты.ВернутьУправляющиеПоследовательности(ЗначениеУП);
Файл = Новый Файл(ЗначениеУП);
ЧтениеJSON = Новый ЧтениеJSON;
Если Файл.Существует() Тогда
ЧтениеJSON.ОткрытьФайл(Значение);
ЧтениеJSON.ОткрытьФайл(ЗначениеУП);
ИначеЕсли СтрНачинаетсяС(СокрЛ(Значение), "http://")
Или СтрНачинаетсяС(СокрЛ(Значение), "https://") Тогда
ИначеЕсли СтрНачинаетсяС(СокрЛ(ЗначениеУП), "http://")
Или СтрНачинаетсяС(СокрЛ(ЗначениеУП), "https://") Тогда
ИВФ = ПолучитьИмяВременногоФайла();
КопироватьФайл(Значение, ИВФ);
КопироватьФайл(ЗначениеУП, ИВФ);
ЧтениеJSON.ОткрытьФайл(ИВФ);
ЧтениеJSON.Прочитать();
@@ -211,20 +217,24 @@
Значение = OPI_Инструменты.ЧислоВСтроку(Значение);
Возврат;
КонецЕсли;
Значение = OPI_Инструменты.ЧислоВСтроку(Значение);
Файл = Новый Файл(Значение);
ЗначениеУП = Значение;
OPI_Инструменты.ВернутьУправляющиеПоследовательности(ЗначениеУП);
Файл = Новый Файл(ЗначениеУП);
Если Файл.Существует() Тогда
ЧтениеТекста = Новый ЧтениеТекста(Значение);
ЧтениеТекста = Новый ЧтениеТекста(ЗначениеУП);
Значение = ЧтениеТекста.Прочитать();
ЧтениеТекста.Закрыть();
ИначеЕсли СтрНачинаетсяС(СокрЛ(Значение), "http://")
Или СтрНачинаетсяС(СокрЛ(Значение), "https://") Тогда
ИначеЕсли СтрНачинаетсяС(СокрЛ(ЗначениеУП), "http://")
Или СтрНачинаетсяС(СокрЛ(ЗначениеУП), "https://") Тогда
Значение = OPI_Инструменты.Get(Значение);
Значение = OPI_Инструменты.Get(ЗначениеУП);
ПолучитьСтроку(Значение);
Иначе
@@ -312,16 +322,19 @@
Процедура ПреобразоватьИсточникВЗначение(Значение, ПопыткаB64)
Файл = Новый Файл(Значение);
ЗначениеУП = Значение;
OPI_Инструменты.ВернутьУправляющиеПоследовательности(ЗначениеУП);
Файл = Новый Файл(ЗначениеУП);
Если Файл.Существует() Тогда
Значение = Новый ДвоичныеДанные(Значение);
Значение = Новый ДвоичныеДанные(ЗначениеУП);
ИначеЕсли СтрНачинаетсяС(СокрЛ(Значение), "http://")
Или СтрНачинаетсяС(СокрЛ(Значение), "https://") Тогда
ИначеЕсли СтрНачинаетсяС(СокрЛ(ЗначениеУП), "http://")
Или СтрНачинаетсяС(СокрЛ(ЗначениеУП), "https://") Тогда
Значение = OPI_Инструменты.Get(Значение);
Значение = OPI_Инструменты.Get(ЗначениеУП);
Иначе

View File

@@ -1003,6 +1003,8 @@
Процедура ЗаменитьУправляющиеПоследовательности(Текст) Экспорт
OPI_ПреобразованиеТипов.ПолучитьСтроку(Текст);
СоответствиеСимволов = ПолучитьСоответствиеУправляющихПоследовательностей();
Для Каждого Символ Из СоответствиеСимволов Цикл
@@ -1016,6 +1018,8 @@
Процедура ВернутьУправляющиеПоследовательности(Текст) Экспорт
OPI_ПреобразованиеТипов.ПолучитьСтроку(Текст);
СоответствиеСимволов = ПолучитьСоответствиеУправляющихПоследовательностей();
Для Каждого Символ Из СоответствиеСимволов Цикл

View File

@@ -1003,6 +1003,8 @@
Процедура ЗаменитьУправляющиеПоследовательности(Текст) Экспорт
OPI_ПреобразованиеТипов.ПолучитьСтроку(Текст);
СоответствиеСимволов = ПолучитьСоответствиеУправляющихПоследовательностей();
Для Каждого Символ Из СоответствиеСимволов Цикл
@@ -1016,6 +1018,8 @@
Процедура ВернутьУправляющиеПоследовательности(Текст) Экспорт
OPI_ПреобразованиеТипов.ПолучитьСтроку(Текст);
СоответствиеСимволов = ПолучитьСоответствиеУправляющихПоследовательностей();
Для Каждого Символ Из СоответствиеСимволов Цикл

View File

@@ -75,10 +75,13 @@
Возврат;
КонецЕсли;
Файл = Новый Файл(Значение);
ЗначениеУП = Значение;
OPI_Инструменты.ВернутьУправляющиеПоследовательности(ЗначениеУП);
Файл = Новый Файл(ЗначениеУП);
Если Файл.Существует() Тогда
Значение = Новый ФайловыйПоток(Значение, РежимОткрытияФайла.Открыть);
Значение = Новый ФайловыйПоток(ЗначениеУП, РежимОткрытияФайла.Открыть);
Иначе
ПолучитьДвоичныеДанные(Значение);
КонецЕсли;
@@ -105,18 +108,21 @@
Значение = OPI_Инструменты.ЧислоВСтроку(Значение);
КонецЕсли;
Файл = Новый Файл(Значение);
ЗначениеУП = Значение;
OPI_Инструменты.ВернутьУправляющиеПоследовательности(ЗначениеУП);
Файл = Новый Файл(ЗначениеУП);
ЧтениеJSON = Новый ЧтениеJSON;
Если Файл.Существует() Тогда
ЧтениеJSON.ОткрытьФайл(Значение);
ЧтениеJSON.ОткрытьФайл(ЗначениеУП);
ИначеЕсли СтрНачинаетсяС(СокрЛ(Значение), "http://")
Или СтрНачинаетсяС(СокрЛ(Значение), "https://") Тогда
ИначеЕсли СтрНачинаетсяС(СокрЛ(ЗначениеУП), "http://")
Или СтрНачинаетсяС(СокрЛ(ЗначениеУП), "https://") Тогда
ИВФ = ПолучитьИмяВременногоФайла();
КопироватьФайл(Значение, ИВФ);
КопироватьФайл(ЗначениеУП, ИВФ);
ЧтениеJSON.ОткрытьФайл(ИВФ);
ЧтениеJSON.Прочитать();
@@ -211,20 +217,24 @@
Значение = OPI_Инструменты.ЧислоВСтроку(Значение);
Возврат;
КонецЕсли;
Значение = OPI_Инструменты.ЧислоВСтроку(Значение);
Файл = Новый Файл(Значение);
ЗначениеУП = Значение;
OPI_Инструменты.ВернутьУправляющиеПоследовательности(ЗначениеУП);
Файл = Новый Файл(ЗначениеУП);
Если Файл.Существует() Тогда
ЧтениеТекста = Новый ЧтениеТекста(Значение);
ЧтениеТекста = Новый ЧтениеТекста(ЗначениеУП);
Значение = ЧтениеТекста.Прочитать();
ЧтениеТекста.Закрыть();
ИначеЕсли СтрНачинаетсяС(СокрЛ(Значение), "http://")
Или СтрНачинаетсяС(СокрЛ(Значение), "https://") Тогда
ИначеЕсли СтрНачинаетсяС(СокрЛ(ЗначениеУП), "http://")
Или СтрНачинаетсяС(СокрЛ(ЗначениеУП), "https://") Тогда
Значение = OPI_Инструменты.Get(Значение);
Значение = OPI_Инструменты.Get(ЗначениеУП);
ПолучитьСтроку(Значение);
Иначе
@@ -312,16 +322,19 @@
Процедура ПреобразоватьИсточникВЗначение(Значение, ПопыткаB64)
Файл = Новый Файл(Значение);
ЗначениеУП = Значение;
OPI_Инструменты.ВернутьУправляющиеПоследовательности(ЗначениеУП);
Файл = Новый Файл(ЗначениеУП);
Если Файл.Существует() Тогда
Значение = Новый ДвоичныеДанные(Значение);
Значение = Новый ДвоичныеДанные(ЗначениеУП);
ИначеЕсли СтрНачинаетсяС(СокрЛ(Значение), "http://")
Или СтрНачинаетсяС(СокрЛ(Значение), "https://") Тогда
ИначеЕсли СтрНачинаетсяС(СокрЛ(ЗначениеУП), "http://")
Или СтрНачинаетсяС(СокрЛ(ЗначениеУП), "https://") Тогда
Значение = OPI_Инструменты.Get(Значение);
Значение = OPI_Инструменты.Get(ЗначениеУП);
Иначе

View File

@@ -18254,6 +18254,20 @@
OPI_ПолучениеДанныхТестов.ЗаписатьЛогCLI(Результат, "СоздатьТаблицу", "SQLite");
OPI_ПолучениеДанныхТестов.Проверка_SQLiteУспех(Результат);
СоответствиеКолонок = Новый Соответствие;
СоответствиеКолонок.Вставить("id" , "INTEGER PRIMARY KEY");
СоответствиеКолонок.Вставить("[Непонятная колонка]", "TEXT");
Опции = Новый Структура;
Опции.Вставить("table", "test1");
Опции.Вставить("cols" , СоответствиеКолонок);
Опции.Вставить("db" , База);
Результат = OPI_ПолучениеДанныхТестов.ВыполнитьТестCLI("sqlite", "СоздатьТаблицу", Опции);
OPI_ПолучениеДанныхТестов.ЗаписатьЛог(Результат, "СоздатьТаблицу (непонятная колонка)", "SQLite");
OPI_ПолучениеДанныхТестов.Проверка_SQLiteУспех(Результат);
КонецПроцедуры