1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2024-11-21 17:56:56 +02:00
Code Issues Releases Activity

Main build (Jenkins)

Browse Source
This commit is contained in:
Vitaly the Alpaca (bot) 2024-11-19 16:38:20 +03:00
parent 8f76a74001
commit 716dee887d
13 changed files with 5842 additions and 5762 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
docs/en/md/S3/Objects-managment/Get-object.mdx
View File

@ -61,4 +61,6 @@ Method at AWS documentation: [GetObjectAttributes](https://docs.aws.amazon.com/A
```json title="Result"
NOT JSON: FF D8 FF E1 54 C1 45 78 69 66 00 00 49 49 2A 00 08 00 00 00 0B 00 0E 01 02 00 20 00 00 00 92 00 00 00 0F 01 02 00 05 00 00 00 B2 00 00 00 10 01 02 00 07 00 00 00 B8 00 00 00 12 01 03 00 01 00…
```

43
docs/en/md/S3/Objects-managment/List-object-versions.mdx
View File

@ -47,4 +47,45 @@ Method at AWS documentation: [ListObjectVersions](https://docs.aws.amazon.com/Am
```json title="Result"
{
"status": 200,
"response": {
"ListVersionsResult": {
"Name": "opi-gpbucket3",
"Prefix": "pic",
"KeyMarker": {},
"NextVersionIdMarker": {},
"VersionIdMarker": {},
"MaxKeys": "250",
"IsTruncated": "false",
"Version": {
"Key": "picture.jpg",
"LastModified": "2024-11-19T13:16:43.870Z",
"ETag": "\"9e0176f87f6565a22f78e0f9b39a4d78\"",
"Size": "2114023",
"Owner": {
"ID": "02d6176db174dc93cb1b899f7c6078f08654445fe8cf1b6ce98d8855f66bdbf4",
"DisplayName": "minio"
},
"StorageClass": "STANDARD",
"IsLatest": "true",
"VersionId": "null"
}
}
},
"headers": {
"Accept-Ranges": "bytes",
"Content-Length": "707",
"Content-Type": "application/xml",
"Date": "Tue, 19 Nov 2024 13:16:47 GMT",
"Server": "MinIO",
"Strict-Transport-Security": "max-age=31536000; includeSubDomains",
"Vary": "Origin,Accept-Encoding",
"X-Amz-Id-2": "057275ee0636b36a8256f409a6ff665de46bfaa1f0d5faf2d1b4f312e55c34fa",
"X-Amz-Request-Id": "180961057A336175",
"X-Content-Type-Options": "nosniff",
"X-Xss-Protection": "1; mode=block"
}
}
```

35
docs/en/md/S3/Objects-managment/List-objects.mdx
View File

@ -46,4 +46,37 @@ Method at AWS documentation: [ListObjectsV2](https://docs.aws.amazon.com/AmazonS
```json title="Result"
{
"status": 200,
"response": {
"ListBucketResult": {
"Name": "opi-gpbucket3",
"Prefix": {},
"KeyCount": "1",
"MaxKeys": "250",
"IsTruncated": "false",
"Contents": {
"Key": "picture.jpg",
"LastModified": "2024-11-19T13:16:43.870Z",
"ETag": "\"9e0176f87f6565a22f78e0f9b39a4d78\"",
"Size": "2114023",
"StorageClass": "STANDARD"
}
}
},
"headers": {
"Accept-Ranges": "bytes",
"Content-Length": "451",
"Content-Type": "application/xml",
"Date": "Tue, 19 Nov 2024 13:16:47 GMT",
"Server": "MinIO",
"Strict-Transport-Security": "max-age=31536000; includeSubDomains",
"Vary": "Origin,Accept-Encoding",
"X-Amz-Id-2": "93c576aa54c960b355da9e2934476635fe3243f5df9dbb4db8b7c0d94bec7cd1",
"X-Amz-Request-Id": "18096105796DE4F2",
"X-Content-Type-Options": "nosniff",
"X-Xss-Protection": "1; mode=block"
}
}
```

11334
service/dictionaries/en.json
View File

File diff suppressed because it is too large Load Diff

12
src/en/OInt/core/Modules/OPI_S3.os
View File

@ -1271,7 +1271,7 @@ Function GetObjectInChunks(Val BasicData
EndStr = OPI_Tools.NumberToString(ChunkEnd); EndStr = OPI_Tools.NumberToString(ChunkEnd);
Title = StrTemplate(HeaderTemplate, StartStr, EndStr); Title = StrTemplate(HeaderTemplate, StartStr, EndStr);
HeadersArray.Add(New Structure("Header,Position", Title, EndStr)); HeadersArray.Add(New Structure("Title,Item", Title, EndStr));
ChunkStart = ChunkEnd + 1; ChunkStart = ChunkEnd + 1;
@ -1281,7 +1281,7 @@ Function GetObjectInChunks(Val BasicData
Title = "bytes=" + OPI_Tools.NumberToString(ChunkStart) + "-"; Title = "bytes=" + OPI_Tools.NumberToString(ChunkStart) + "-";
DataStructure = New Structure("Header,Position", Title, TotalSize); DataStructure = New Structure("Title,Item", Title, TotalSize);
HeadersArray.Add(DataStructure); HeadersArray.Add(DataStructure);
EndIf; EndIf;
@ -1310,8 +1310,8 @@ Function GetObjectInChunks(Val BasicData
InterimResult = GetFullObject(BasicData, SourceHeader); InterimResult = GetFullObject(BasicData, SourceHeader);
FileWriter.Write(InterimResult); FileWriter.Write(InterimResult);
KBytes = 1024; KBytes = 1024;
MByte = KBytes * KBytes; MByte = KBytes * KBytes;
Message(OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte)); Message(OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte));
RunGarbageCollection(); RunGarbageCollection();
@ -1322,8 +1322,10 @@ Function GetObjectInChunks(Val BasicData
Except Except
If N = 3 Then If N = 3 Then
Message(ErrorDescription()); Message(ErrorDescription());
Break; Raise "Failed to retrieve the file!";
Else Else
Message("Chunk upload error " + String(N) + "/3"); Message("Chunk upload error " + String(N) + "/3");
Continue; Continue;

50
src/en/OInt/tools/Modules/internal/Modules/OPI_Tools.os
View File

@ -127,12 +127,12 @@ Procedure ProcessResponse(Response, Val FullResponse = False) Export
BodyFile = Response.GetBodyFileName(); BodyFile = Response.GetBodyFileName();
If Not BodyFile = Undefined Then If Not BodyFile = Undefined Then
Response = BodyFile; Response = BodyFile;
Return; Return;
EndIf; EndIf;
GZip = "gzip"; GZip = "gzip";
NeedsUnpacking = Response.Headers.Get("Content-Encoding") = GZip Or Response.Headers.Get( NeedsUnpacking = Response.Headers.Get("Content-Encoding") = GZip Or Response.Headers.Get(
"content-encoding") = GZip; "content-encoding") = GZip;
If NeedsUnpacking Then If NeedsUnpacking Then
@ -144,7 +144,7 @@ Procedure ProcessResponse(Response, Val FullResponse = False) Export
If TypeOf(Response) = Type("BinaryData") Then If TypeOf(Response) = Type("BinaryData") Then
If Response.Size() = 0 Then If Response.Size() = 0 Then
Response = ПолучитьДвоичныеДанныеИзСтроки("{}"); Response = ПолучитьДвоичныеДанныеИзСтроки("{}");
EndIf; EndIf;
Try Try
@ -340,11 +340,11 @@ Function SplitURL(Val URL) Export
URL = StrReplace(URL, ":443" , ""); URL = StrReplace(URL, ":443" , "");
If StrFind(URL, "/") = 0 Then If StrFind(URL, "/") = 0 Then
Address = ""; Address = "";
Host = URL; Host = URL;
Else Else
Address = Right(URL, StrLen(URL) - StrFind(URL, "/", SearchDirection.FromBegin) + 1); Address = Right(URL, StrLen(URL) - StrFind(URL, "/", SearchDirection.FromBegin) + 1);
Host = Left(URL, StrFind(URL, "/", SearchDirection.FromBegin) - 1); Host = Left(URL, StrFind(URL, "/", SearchDirection.FromBegin) - 1);
EndIf; EndIf;
If IsOneScript() And SecureConnection Then If IsOneScript() And SecureConnection Then
@ -352,9 +352,9 @@ Function SplitURL(Val URL) Export
EndIf; EndIf;
ReturnStructure = New Structure; ReturnStructure = New Structure;
ReturnStructure.Insert("Host" , Host); ReturnStructure.Insert("Host" , Host);
ReturnStructure.Insert("Address", Address); ReturnStructure.Insert("Address" , Address);
ReturnStructure.Insert("Safe" , SecureConnection); ReturnStructure.Insert("Safe" , SecureConnection);
Return ReturnStructure; Return ReturnStructure;
@ -684,7 +684,7 @@ Function ProcessXML(XML) Export
Else Else
If Not NodeType = XMLNodeType.EndElement Then If Not NodeType = XMLNodeType.EndElement Then
ReturnValue = XML.Value; ReturnValue = XML.Value;
XML.Read(); XML.Read();
EndIf; EndIf;
@ -827,17 +827,17 @@ Procedure AddField(Val Name, Val Value, Val Type, Collection) Export
Return; Return;
EndIf; EndIf;
If Type = "Date" Then If Type = "Date" Then
OPI_TypeConversion.GetDate(Value); OPI_TypeConversion.GetDate(Value);
Value = UNIXTime(Value); Value = UNIXTime(Value);
ElsIf Type = "DateISO" Then ElsIf Type = "DateISO" Then
OPI_TypeConversion.GetDate(Value); OPI_TypeConversion.GetDate(Value);
Value = Left(XMLString(Value), 19); Value = Left(XMLString(Value), 19);
ElsIf Type = "DateISOZ" Then ElsIf Type = "DateISOZ" Then
OPI_TypeConversion.GetDate(Value); OPI_TypeConversion.GetDate(Value);
Value = Left(XMLString(Value), 19) + "Z"; Value = Left(XMLString(Value), 19) + "Z";
ElsIf Type = "DateWithoutTime" Then ElsIf Type = "DateWithoutTime" Then
OPI_TypeConversion.GetDate(Value); OPI_TypeConversion.GetDate(Value);
@ -1015,7 +1015,7 @@ Function ConvertParameterToString(Val Value)
If TypeOf(Value) = Type("Array") Then If TypeOf(Value) = Type("Array") Then
For N = 0 To Value.UBound() Do For N = 0 To Value.UBound() Do
Value[N] = ConvertParameterToString(Value[N]); Value[N] = ConvertParameterToString(Value[N]);
EndDo; EndDo;
@ -1056,8 +1056,8 @@ Function SplitFileKey(Val FileData, Val ContentType)
NeedParts = 2; NeedParts = 2;
If NameParts.Count() = NeedParts Then If NameParts.Count() = NeedParts Then
FieldName = NameParts[0]; FieldName = NameParts[0];
FileName = NameParts[1]; FileName = NameParts[1];
Else Else
If ContentType = "image/jpeg" Then If ContentType = "image/jpeg" Then
@ -1101,8 +1101,8 @@ EndFunction
Procedure SetRequestBody(Request, Val Parameters, Val JSON) Procedure SetRequestBody(Request, Val Parameters, Val JSON)
Collection = TypeOf(Parameters) = Type("Structure") Or TypeOf(Parameters) = Type("Map") Or TypeOf(Parameters) Collection = TypeOf(Parameters) = Type("Structure") Or TypeOf(Parameters) = Type("Map") Or TypeOf(Parameters)
= Type("Array"); = Type("Array");
If JSON Then If JSON Then
@ -1307,8 +1307,8 @@ EndProcedure
Procedure XMLInitialProcessing(XML) Procedure XMLInitialProcessing(XML)
If Not TypeOf(XML) = Type("XMLReader") Then If Not TypeOf(XML) = Type("XMLReader") Then
XML_ = XML; XML_ = XML;
XML = New XMLReader; XML = New XMLReader;
XML.SetString(XML_); XML.SetString(XML_);
EndIf; EndIf;
@ -1411,9 +1411,9 @@ EndFunction
Function ReadZip(CompressedData, ErrorText = Undefined) Function ReadZip(CompressedData, ErrorText = Undefined)
Directory = GetTempFileName(); Directory = GetTempFileName();
ReadingZip = New ZipFileReader(CompressedData); ReadingZip = New ZipFileReader(CompressedData);
FileName = ReadingZip.Items[0].Name; FileName = ReadingZip.Items[0].Name;
Try Try
ReadingZip.Extract(ReadingZip.Items[0], Directory, ZIPRestoreFilePathsMode.DontRestore); ReadingZip.Extract(ReadingZip.Items[0], Directory, ZIPRestoreFilePathsMode.DontRestore);
Except Except

8
src/en/OPI/src/CommonModules/OPI_S3/Module.bsl
View File

@ -1271,7 +1271,7 @@ Function GetObjectInChunks(Val BasicData
EndStr = OPI_Tools.NumberToString(ChunkEnd); EndStr = OPI_Tools.NumberToString(ChunkEnd);
Title = StrTemplate(HeaderTemplate, StartStr, EndStr); Title = StrTemplate(HeaderTemplate, StartStr, EndStr);
HeadersArray.Add(New Structure("Header,Position", Title, EndStr)); HeadersArray.Add(New Structure("Title,Item", Title, EndStr));
ChunkStart = ChunkEnd + 1; ChunkStart = ChunkEnd + 1;
@ -1281,7 +1281,7 @@ Function GetObjectInChunks(Val BasicData
Title = "bytes=" + OPI_Tools.NumberToString(ChunkStart) + "-"; Title = "bytes=" + OPI_Tools.NumberToString(ChunkStart) + "-";
DataStructure = New Structure("Header,Position", Title, TotalSize); DataStructure = New Structure("Title,Item", Title, TotalSize);
HeadersArray.Add(DataStructure); HeadersArray.Add(DataStructure);
EndIf; EndIf;
@ -1322,8 +1322,10 @@ Function GetObjectInChunks(Val BasicData
Except Except
If N = 3 Then If N = 3 Then
// !OInt Message(ErrorDescription()); // !OInt Message(ErrorDescription());
Break; Raise "Failed to retrieve the file!";
Else Else
// !OInt Message("Chunk upload error " + String(N) + "/3"); // !OInt Message("Chunk upload error " + String(N) + "/3");
Continue; Continue;

50
src/en/OPI/src/CommonModules/OPI_Tools/Module.bsl
View File

@ -127,12 +127,12 @@ Procedure ProcessResponse(Response, Val FullResponse = False) Export
BodyFile = Response.GetBodyFileName(); BodyFile = Response.GetBodyFileName();
If Not BodyFile = Undefined Then If Not BodyFile = Undefined Then
Response = BodyFile; Response = BodyFile;
Return; Return;
EndIf; EndIf;
GZip = "gzip"; GZip = "gzip";
NeedsUnpacking = Response.Headers.Get("Content-Encoding") = GZip Or Response.Headers.Get( NeedsUnpacking = Response.Headers.Get("Content-Encoding") = GZip Or Response.Headers.Get(
"content-encoding") = GZip; "content-encoding") = GZip;
If NeedsUnpacking Then If NeedsUnpacking Then
@ -144,7 +144,7 @@ Procedure ProcessResponse(Response, Val FullResponse = False) Export
If TypeOf(Response) = Type("BinaryData") Then If TypeOf(Response) = Type("BinaryData") Then
If Response.Size() = 0 Then If Response.Size() = 0 Then
Response = GetBinaryDataFromString("{}"); Response = GetBinaryDataFromString("{}");
EndIf; EndIf;
Try Try
@ -340,11 +340,11 @@ Function SplitURL(Val URL) Export
URL = StrReplace(URL, ":443" , ""); URL = StrReplace(URL, ":443" , "");
If StrFind(URL, "/") = 0 Then If StrFind(URL, "/") = 0 Then
Address = ""; Address = "";
Host = URL; Host = URL;
Else Else
Address = Right(URL, StrLen(URL) - StrFind(URL, "/", SearchDirection.FromBegin) + 1); Address = Right(URL, StrLen(URL) - StrFind(URL, "/", SearchDirection.FromBegin) + 1);
Host = Left(URL, StrFind(URL, "/", SearchDirection.FromBegin) - 1); Host = Left(URL, StrFind(URL, "/", SearchDirection.FromBegin) - 1);
EndIf; EndIf;
If IsOneScript() And SecureConnection Then If IsOneScript() And SecureConnection Then
@ -352,9 +352,9 @@ Function SplitURL(Val URL) Export
EndIf; EndIf;
ReturnStructure = New Structure; ReturnStructure = New Structure;
ReturnStructure.Insert("Host" , Host); ReturnStructure.Insert("Host" , Host);
ReturnStructure.Insert("Address", Address); ReturnStructure.Insert("Address" , Address);
ReturnStructure.Insert("Safe" , SecureConnection); ReturnStructure.Insert("Safe" , SecureConnection);
Return ReturnStructure; Return ReturnStructure;
@ -684,7 +684,7 @@ Function ProcessXML(XML) Export
Else Else
If Not NodeType = XMLNodeType.EndElement Then If Not NodeType = XMLNodeType.EndElement Then
ReturnValue = XML.Value; ReturnValue = XML.Value;
XML.Read(); XML.Read();
EndIf; EndIf;
@ -827,17 +827,17 @@ Procedure AddField(Val Name, Val Value, Val Type, Collection) Export
Return; Return;
EndIf; EndIf;
If Type = "Date" Then If Type = "Date" Then
OPI_TypeConversion.GetDate(Value); OPI_TypeConversion.GetDate(Value);
Value = UNIXTime(Value); Value = UNIXTime(Value);
ElsIf Type = "DateISO" Then ElsIf Type = "DateISO" Then
OPI_TypeConversion.GetDate(Value); OPI_TypeConversion.GetDate(Value);
Value = Left(XMLString(Value), 19); Value = Left(XMLString(Value), 19);
ElsIf Type = "DateISOZ" Then ElsIf Type = "DateISOZ" Then
OPI_TypeConversion.GetDate(Value); OPI_TypeConversion.GetDate(Value);
Value = Left(XMLString(Value), 19) + "Z"; Value = Left(XMLString(Value), 19) + "Z";
ElsIf Type = "DateWithoutTime" Then ElsIf Type = "DateWithoutTime" Then
OPI_TypeConversion.GetDate(Value); OPI_TypeConversion.GetDate(Value);
@ -1015,7 +1015,7 @@ Function ConvertParameterToString(Val Value)
If TypeOf(Value) = Type("Array") Then If TypeOf(Value) = Type("Array") Then
For N = 0 To Value.UBound() Do For N = 0 To Value.UBound() Do
Value[N] = ConvertParameterToString(Value[N]); Value[N] = ConvertParameterToString(Value[N]);
EndDo; EndDo;
@ -1056,8 +1056,8 @@ Function SplitFileKey(Val FileData, Val ContentType)
NeedParts = 2; NeedParts = 2;
If NameParts.Count() = NeedParts Then If NameParts.Count() = NeedParts Then
FieldName = NameParts[0]; FieldName = NameParts[0];
FileName = NameParts[1]; FileName = NameParts[1];
Else Else
If ContentType = "image/jpeg" Then If ContentType = "image/jpeg" Then
@ -1101,8 +1101,8 @@ EndFunction
Procedure SetRequestBody(Request, Val Parameters, Val JSON) Procedure SetRequestBody(Request, Val Parameters, Val JSON)
Collection = TypeOf(Parameters) = Type("Structure") Or TypeOf(Parameters) = Type("Map") Or TypeOf(Parameters) Collection = TypeOf(Parameters) = Type("Structure") Or TypeOf(Parameters) = Type("Map") Or TypeOf(Parameters)
= Type("Array"); = Type("Array");
If JSON Then If JSON Then
@ -1307,8 +1307,8 @@ EndProcedure
Procedure XMLInitialProcessing(XML) Procedure XMLInitialProcessing(XML)
If Not TypeOf(XML) = Type("XMLReader") Then If Not TypeOf(XML) = Type("XMLReader") Then
XML_ = XML; XML_ = XML;
XML = New XMLReader; XML = New XMLReader;
XML.SetString(XML_); XML.SetString(XML_);
EndIf; EndIf;
@ -1411,9 +1411,9 @@ EndFunction
Function ReadZip(CompressedData, ErrorText = Undefined) Function ReadZip(CompressedData, ErrorText = Undefined)
Directory = GetTempFileName(); Directory = GetTempFileName();
ReadingZip = New ZipFileReader(CompressedData); ReadingZip = New ZipFileReader(CompressedData);
FileName = ReadingZip.Items[0].Name; FileName = ReadingZip.Items[0].Name;
Try Try
ReadingZip.Extract(ReadingZip.Items[0], Directory, ZIPRestoreFilePathsMode.DontRestore); ReadingZip.Extract(ReadingZip.Items[0], Directory, ZIPRestoreFilePathsMode.DontRestore);
Except Except

6
src/ru/OInt/core/Modules/OPI_S3.os
View File

@ -1316,16 +1316,16 @@
ВыполнитьСборкуМусора(); ВыполнитьСборкуМусора();
ОсвободитьОбъект(ПромежуточныйРезультат); ОсвободитьОбъект(ПромежуточныйРезультат);
Прервать; Прервать;
Исключение Исключение
Если Н = 3 Тогда Если Н = 3 Тогда
Сообщить(ОписаниеОшибки()); Сообщить(ОписаниеОшибки());
ВызватьИсключение "Не удалось получить файл!"; ВызватьИсключение "Не удалось получить файл!";
Иначе Иначе
Сообщить("Ошибка загрузки участка " + Строка(Н) + "/3"); Сообщить("Ошибка загрузки участка " + Строка(Н) + "/3");
Продолжить; Продолжить;

4
src/ru/OInt/tools/Modules/OPI_ПолучениеДанныхТестов.os
View File

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

26
src/ru/OInt/tools/Modules/internal/Modules/OPI_Инструменты.os
View File

@ -126,13 +126,13 @@
ФайлТела = Ответ.ПолучитьИмяФайлаТела(); ФайлТела = Ответ.ПолучитьИмяФайлаТела();
Если Не ФайлТела = Неопределено Тогда Если Не ФайлТела = Неопределено Тогда
Ответ = ФайлТела; Ответ = ФайлТела;
Возврат; Возврат;
КонецЕсли; КонецЕсли;
GZip = "gzip"; GZip = "gzip";
НужнаРаспаковка = Ответ.Заголовки.Получить("Content-Encoding") = GZip Или Ответ.Заголовки.Получить( НужнаРаспаковка = Ответ.Заголовки.Получить("Content-Encoding") = GZip Или Ответ.Заголовки.Получить(
"content-encoding") = GZip; "content-encoding") = GZip;
Если НужнаРаспаковка Тогда Если НужнаРаспаковка Тогда
@ -143,7 +143,7 @@
Если ТипЗнч(Ответ) = Тип("ДвоичныеДанные") Тогда Если ТипЗнч(Ответ) = Тип("ДвоичныеДанные") Тогда
Если Ответ.Размер() = 0 Тогда Если Ответ.Размер() = 0 Тогда
Ответ = ПолучитьДвоичныеДанныеИзСтроки("{}"); Ответ = ПолучитьДвоичныеДанныеИзСтроки("{}");
КонецЕсли; КонецЕсли;
@ -683,7 +683,7 @@
Иначе Иначе
Если Не ТипУзла = ТипУзлаXML.КонецЭлемента Тогда Если Не ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
ВозвращаемоеЗначение = XML.Значение; ВозвращаемоеЗначение = XML.Значение;
XML.Прочитать(); XML.Прочитать();
КонецЕсли; КонецЕсли;
@ -827,15 +827,15 @@
Возврат; Возврат;
КонецЕсли; КонецЕсли;
Если Тип = "Дата" Тогда Если Тип = "Дата" Тогда
OPI_ПреобразованиеТипов.ПолучитьДату(Значение); OPI_ПреобразованиеТипов.ПолучитьДату(Значение);
Значение = UNIXTime(Значение); Значение = UNIXTime(Значение);
ИначеЕсли Тип = "ДатаISO" Тогда ИначеЕсли Тип = "ДатаISO" Тогда
OPI_ПреобразованиеТипов.ПолучитьДату(Значение); OPI_ПреобразованиеТипов.ПолучитьДату(Значение);
Значение = Лев(XMLСтрока(Значение), 19); Значение = Лев(XMLСтрока(Значение), 19);
ИначеЕсли Тип = "ДатаISOZ" Тогда ИначеЕсли Тип = "ДатаISOZ" Тогда
OPI_ПреобразованиеТипов.ПолучитьДату(Значение); OPI_ПреобразованиеТипов.ПолучитьДату(Значение);
Значение = Лев(XMLСтрока(Значение), 19) + "Z"; Значение = Лев(XMLСтрока(Значение), 19) + "Z";
@ -1015,7 +1015,7 @@
Если ТипЗнч(Значение) = Тип("Массив") Тогда Если ТипЗнч(Значение) = Тип("Массив") Тогда
Для Н = 0 По Значение.ВГраница() Цикл Для Н = 0 По Значение.ВГраница() Цикл
Значение[Н] = ПреобразоватьПараметрВСтроку(Значение[Н]); Значение[Н] = ПреобразоватьПараметрВСтроку(Значение[Н]);
КонецЦикла; КонецЦикла;
@ -1101,7 +1101,7 @@
Процедура УстановитьТелоЗапроса(Запрос, Знач Параметры, Знач JSON) Процедура УстановитьТелоЗапроса(Запрос, Знач Параметры, Знач JSON)
Коллекция = ТипЗнч(Параметры) = Тип("Структура") Или ТипЗнч(Параметры) = Тип("Соответствие") Или ТипЗнч(Параметры) Коллекция = ТипЗнч(Параметры) = Тип("Структура") Или ТипЗнч(Параметры) = Тип("Соответствие") Или ТипЗнч(Параметры)
= Тип("Массив"); = Тип("Массив");
Если JSON Тогда Если JSON Тогда
@ -1306,7 +1306,7 @@
Процедура НачалоОбработкиXML(XML) Процедура НачалоОбработкиXML(XML)
Если Не ТипЗнч(XML) = Тип("ЧтениеXML") Тогда Если Не ТипЗнч(XML) = Тип("ЧтениеXML") Тогда
XML_ = XML; XML_ = XML;
XML = Новый ЧтениеXML; XML = Новый ЧтениеXML;
XML.УстановитьСтроку(XML_); XML.УстановитьСтроку(XML_);
@ -1411,9 +1411,9 @@
Функция ПрочитатьZip(СжатыеДанные, ТекстОшибки = Неопределено) Функция ПрочитатьZip(СжатыеДанные, ТекстОшибки = Неопределено)
Каталог = ПолучитьИмяВременногоФайла(); Каталог = ПолучитьИмяВременногоФайла();
ЧтениеZip = Новый ЧтениеZipФайла(СжатыеДанные); ЧтениеZip = Новый ЧтениеZipФайла(СжатыеДанные);
ИмяФайла = ЧтениеZip.Элементы[0].Имя; ИмяФайла = ЧтениеZip.Элементы[0].Имя;
Попытка Попытка
ЧтениеZip.Извлечь(ЧтениеZip.Элементы[0], Каталог, РежимВосстановленияПутейФайловZIP.НеВосстанавливать); ЧтениеZip.Извлечь(ЧтениеZip.Элементы[0], Каталог, РежимВосстановленияПутейФайловZIP.НеВосстанавливать);
Исключение Исключение

6
src/ru/OPI/src/CommonModules/OPI_S3/Module.bsl
View File

@ -1316,16 +1316,16 @@
// !OInt ВыполнитьСборкуМусора(); // !OInt ВыполнитьСборкуМусора();
// !OInt ОсвободитьОбъект(ПромежуточныйРезультат); // !OInt ОсвободитьОбъект(ПромежуточныйРезультат);
Прервать; Прервать;
Исключение Исключение
Если Н = 3 Тогда Если Н = 3 Тогда
// !OInt Сообщить(ОписаниеОшибки()); // !OInt Сообщить(ОписаниеОшибки());
ВызватьИсключение "Не удалось получить файл!"; ВызватьИсключение "Не удалось получить файл!";
Иначе Иначе
// !OInt Сообщить("Ошибка загрузки участка " + Строка(Н) + "/3"); // !OInt Сообщить("Ошибка загрузки участка " + Строка(Н) + "/3");
Продолжить; Продолжить;

26
src/ru/OPI/src/CommonModules/OPI_Инструменты/Module.bsl
View File

@ -126,13 +126,13 @@
ФайлТела = Ответ.ПолучитьИмяФайлаТела(); ФайлТела = Ответ.ПолучитьИмяФайлаТела();
Если Не ФайлТела = Неопределено Тогда Если Не ФайлТела = Неопределено Тогда
Ответ = ФайлТела; Ответ = ФайлТела;
Возврат; Возврат;
КонецЕсли; КонецЕсли;
GZip = "gzip"; GZip = "gzip";
НужнаРаспаковка = Ответ.Заголовки.Получить("Content-Encoding") = GZip Или Ответ.Заголовки.Получить( НужнаРаспаковка = Ответ.Заголовки.Получить("Content-Encoding") = GZip Или Ответ.Заголовки.Получить(
"content-encoding") = GZip; "content-encoding") = GZip;
Если НужнаРаспаковка Тогда Если НужнаРаспаковка Тогда
@ -143,7 +143,7 @@
Если ТипЗнч(Ответ) = Тип("ДвоичныеДанные") Тогда Если ТипЗнч(Ответ) = Тип("ДвоичныеДанные") Тогда
Если Ответ.Размер() = 0 Тогда Если Ответ.Размер() = 0 Тогда
Ответ = ПолучитьДвоичныеДанныеИзСтроки("{}"); Ответ = ПолучитьДвоичныеДанныеИзСтроки("{}");
КонецЕсли; КонецЕсли;
@ -683,7 +683,7 @@
Иначе Иначе
Если Не ТипУзла = ТипУзлаXML.КонецЭлемента Тогда Если Не ТипУзла = ТипУзлаXML.КонецЭлемента Тогда
ВозвращаемоеЗначение = XML.Значение; ВозвращаемоеЗначение = XML.Значение;
XML.Прочитать(); XML.Прочитать();
КонецЕсли; КонецЕсли;
@ -827,15 +827,15 @@
Возврат; Возврат;
КонецЕсли; КонецЕсли;
Если Тип = "Дата" Тогда Если Тип = "Дата" Тогда
OPI_ПреобразованиеТипов.ПолучитьДату(Значение); OPI_ПреобразованиеТипов.ПолучитьДату(Значение);
Значение = UNIXTime(Значение); Значение = UNIXTime(Значение);
ИначеЕсли Тип = "ДатаISO" Тогда ИначеЕсли Тип = "ДатаISO" Тогда
OPI_ПреобразованиеТипов.ПолучитьДату(Значение); OPI_ПреобразованиеТипов.ПолучитьДату(Значение);
Значение = Лев(XMLСтрока(Значение), 19); Значение = Лев(XMLСтрока(Значение), 19);
ИначеЕсли Тип = "ДатаISOZ" Тогда ИначеЕсли Тип = "ДатаISOZ" Тогда
OPI_ПреобразованиеТипов.ПолучитьДату(Значение); OPI_ПреобразованиеТипов.ПолучитьДату(Значение);
Значение = Лев(XMLСтрока(Значение), 19) + "Z"; Значение = Лев(XMLСтрока(Значение), 19) + "Z";
@ -1015,7 +1015,7 @@
Если ТипЗнч(Значение) = Тип("Массив") Тогда Если ТипЗнч(Значение) = Тип("Массив") Тогда
Для Н = 0 По Значение.ВГраница() Цикл Для Н = 0 По Значение.ВГраница() Цикл
Значение[Н] = ПреобразоватьПараметрВСтроку(Значение[Н]); Значение[Н] = ПреобразоватьПараметрВСтроку(Значение[Н]);
КонецЦикла; КонецЦикла;
@ -1101,7 +1101,7 @@
Процедура УстановитьТелоЗапроса(Запрос, Знач Параметры, Знач JSON) Процедура УстановитьТелоЗапроса(Запрос, Знач Параметры, Знач JSON)
Коллекция = ТипЗнч(Параметры) = Тип("Структура") Или ТипЗнч(Параметры) = Тип("Соответствие") Или ТипЗнч(Параметры) Коллекция = ТипЗнч(Параметры) = Тип("Структура") Или ТипЗнч(Параметры) = Тип("Соответствие") Или ТипЗнч(Параметры)
= Тип("Массив"); = Тип("Массив");
Если JSON Тогда Если JSON Тогда
@ -1306,7 +1306,7 @@
Процедура НачалоОбработкиXML(XML) Процедура НачалоОбработкиXML(XML)
Если Не ТипЗнч(XML) = Тип("ЧтениеXML") Тогда Если Не ТипЗнч(XML) = Тип("ЧтениеXML") Тогда
XML_ = XML; XML_ = XML;
XML = Новый ЧтениеXML; XML = Новый ЧтениеXML;
XML.УстановитьСтроку(XML_); XML.УстановитьСтроку(XML_);
@ -1411,9 +1411,9 @@
Функция ПрочитатьZip(СжатыеДанные, ТекстОшибки = Неопределено) Функция ПрочитатьZip(СжатыеДанные, ТекстОшибки = Неопределено)
Каталог = ПолучитьИмяВременногоФайла(); Каталог = ПолучитьИмяВременногоФайла();
ЧтениеZip = Новый ЧтениеZipФайла(СжатыеДанные); ЧтениеZip = Новый ЧтениеZipФайла(СжатыеДанные);
ИмяФайла = ЧтениеZip.Элементы[0].Имя; ИмяФайла = ЧтениеZip.Элементы[0].Имя;
Попытка Попытка
ЧтениеZip.Извлечь(ЧтениеZip.Элементы[0], Каталог, РежимВосстановленияПутейФайловZIP.НеВосстанавливать); ЧтениеZip.Извлечь(ЧтениеZip.Элементы[0], Каталог, РежимВосстановленияПутейФайловZIP.НеВосстанавливать);
Исключение Исключение