1c/OpenIntegrations
1
0
Fork 0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-03-29 21:57:16 +02:00
Code Issues Releases Activity

Main build (Jenkins)

Browse Source
This commit is contained in:
Vitaly the Alpaca (bot) 2024-12-15 15:19:03 +03:00
parent dad0263407
commit 3d28a49a62
12 changed files with 5906 additions and 5806 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11372
service/dictionaries/en.json
View File

File diff suppressed because it is too large Load Diff

2
src/en/OInt/core/Modules/OPI_Dropbox.os
View File

@ -867,7 +867,7 @@ Function UploadLargeFile(Val Token, Val File, Val Path, Val Mode)
KBytes = 1024; KBytes = 1024;
MByte = KBytes * KBytes; MByte = KBytes * KBytes;
Message(OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte)); OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte);
RunGarbageCollection(); RunGarbageCollection();
FreeObject(CurrentData); FreeObject(CurrentData);

2
src/en/OInt/core/Modules/OPI_GoogleDrive.os
View File

@ -674,7 +674,7 @@ Function UploadFileInParts(Val Binary, Val UploadURL)
KBytes = 1024; KBytes = 1024;
MByte = KBytes * KBytes; MByte = KBytes * KBytes;
Message(OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte)); OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte);
RunGarbageCollection(); RunGarbageCollection();
FreeObject(CurrentData); FreeObject(CurrentData);

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

@ -1718,7 +1718,7 @@ Function GetObjectInChunks(Val BasicData
KBytes = 1024; KBytes = 1024;
MByte = KBytes * KBytes; MByte = KBytes * KBytes;
Message(OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte)); OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte);
RunGarbageCollection(); RunGarbageCollection();
FreeObject(InterimResult); FreeObject(InterimResult);
@ -1831,7 +1831,7 @@ Function UploadObjectInParts(Val Name
KBytes = 1024; KBytes = 1024;
MByte = KBytes * KBytes; MByte = KBytes * KBytes;
Message(OPI_Tools.ProgressInformation(BytesRead, TotalSize, "MB", MByte)); OPI_Tools.ProgressInformation(BytesRead, TotalSize, "MB", MByte);
RunGarbageCollection(); RunGarbageCollection();
FreeObject(CurrentData); FreeObject(CurrentData);

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

@ -36,6 +36,7 @@
//@skip-check module-structure-top-region //@skip-check module-structure-top-region
//@skip-check module-structure-method-in-regions //@skip-check module-structure-method-in-regions
//@skip-check wrong-string-literal-content //@skip-check wrong-string-literal-content
//@skip-check use-non-recommended-method
#Region Internal #Region Internal
@ -889,7 +890,11 @@ Function IsOneScript() Export
EndFunction EndFunction
Function ProgressInformation(Val Current, Val Total, Val Unit, Val Divider = 1) Export Procedure ProgressInformation(Val Current, Val Total, Val Unit, Val Divider = 1) Export
If Not IsOneScript() Then
Return;
EndIf;
Whole = 100; Whole = 100;
Current = Round(Current / Divider, 2); Current = Round(Current / Divider, 2);
@ -900,11 +905,26 @@ Function ProgressInformation(Val Current, Val Total, Val Unit, Val Divider = 1)
StrTotal = NumberToString(Total); StrTotal = NumberToString(Total);
StrPercentage = NumberToString(Percent); StrPercentage = NumberToString(Percent);
Information = StrCurrent + "/" + StrTotal + " " + Unit + " ( " + StrPercentage + "% )"; Progress = "Progress [" + StrPercentage + "%" + "] ▐";
Information = "▌ " + StrCurrent + "/" + StrTotal + " " + Unit;
Return Information; // Progress bat
BarLength = 30;
Counter = 0;
Buffer = "";
EndFunction Indicator = Int(Current / Total * BarLength);
WHile Counter < BarLength Loop
Buffer = Buffer + ?(Counter < Indicator, "█", " ");
Counter = Counter + 1;
EndDo;
WriteOnCurrentLine(Progress, , True);
WriteOnCurrentLine(Buffer , "Green");
WriteOnCurrentLine(Information);
EndProcedure
#EndRegion #EndRegion
@ -1281,6 +1301,36 @@ Procedure XMLInitialProcessing(XML)
EndProcedure EndProcedure
Procedure WriteOnCurrentLine(Val Text, Val Color = "", Val ToStart = False) Export
If Not IsOneScript() Then
Console = Undefined;
ConsoleColor = New Map;
EndIf;
Encoding = Console.OutputEncoding;
OutputStream = Console.OpenStandardOutput();
OutputWriting = New DataWriter(OutputStream, Encoding);
If Not ValueIsFilled(Color) Then
Color = ConsoleColor.White;
EndIf;
If TypeOf(Color) = Type("String") Then
Console.TextColor = ConsoleColor[Color];
Else
Console.TextColor = Color;
EndIf;
If ToStart Then
Escape = Chars.CR;
OutputWriting.WriteChars(Escape);
EndIf;
OutputWriting.WriteChars(Text);
EndProcedure
Function ExecuteRequestWithBody(Val URL, Val View, Val Parameters = "", Val AdditionalHeaders = "", Val JSON = True, Function ExecuteRequestWithBody(Val URL, Val View, Val Parameters = "", Val AdditionalHeaders = "", Val JSON = True,
Val FullResponse = False, Val ResponseFile = Undefined) Val FullResponse = False, Val ResponseFile = Undefined)

6
src/en/OPI/src/CommonModules/OPI_Dropbox/Module.bsl
View File

@ -865,9 +865,9 @@ Function UploadLargeFile(Val Token, Val File, Val Path, Val Mode)
CurrentPosition = NextPosition; CurrentPosition = NextPosition;
// !OInt KB = 1024; KBytes = 1024;
// !OInt MB = KB * KB; MByte = KBytes * KBytes;
// !OInt Message(OPI_Tools.ProgressInfo(CurrentPosition, TotalSize, "MB", MB)); OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte);
// !OInt RunGarbageCollection(); // !OInt RunGarbageCollection();
// !OInt FreeObject(CurrentData); // !OInt FreeObject(CurrentData);

6
src/en/OPI/src/CommonModules/OPI_GoogleDrive/Module.bsl
View File

@ -672,9 +672,9 @@ Function UploadFileInParts(Val Binary, Val UploadURL)
Return CheckResult; Return CheckResult;
EndIf; EndIf;
// !OInt KB = 1024; KBytes = 1024;
// !OInt MB = KB * KB; MByte = KBytes * KBytes;
// !OInt Message(OPI_Tools.ProgressInfo(CurrentPosition, TotalSize, "MB", MB)); OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte);
// !OInt RunGarbageCollection(); // !OInt RunGarbageCollection();
// !OInt FreeObject(CurrentData); // !OInt FreeObject(CurrentData);

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

@ -1716,9 +1716,9 @@ Function GetObjectInChunks(Val BasicData
InterimResult = GetFullObject(BasicData, SourceHeader); InterimResult = GetFullObject(BasicData, SourceHeader);
FileWriter.Write(InterimResult); FileWriter.Write(InterimResult);
// !OInt KB = 1024; KBytes = 1024;
// !OInt MB = KB * KB; MByte = KBytes * KBytes;
// !OInt Message(OPI_Tools.ProgressInfo(CurrentPosition, TotalSize, "MB", MB)); OPI_Tools.ProgressInformation(CurrentPosition, TotalSize, "MB", MByte);
// !OInt RunGarbageCollection(); // !OInt RunGarbageCollection();
// !OInt FreeObject(InterimResult); // !OInt FreeObject(InterimResult);
@ -1829,9 +1829,9 @@ Function UploadObjectInParts(Val Name
TagsArray.Add(ETag); TagsArray.Add(ETag);
// !OInt KB = 1024; KBytes = 1024;
// !OInt MB = KB * KB; MByte = KBytes * KBytes;
// !OInt Message(OPI_Tools.ProgressInfo(BytesRead, TotalSize, "MB", MB)); OPI_Tools.ProgressInformation(BytesRead, TotalSize, "MB", MByte);
// !OInt RunGarbageCollection(); // !OInt RunGarbageCollection();
// !OInt FreeObject(CurrentData); // !OInt FreeObject(CurrentData);

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

@ -36,6 +36,7 @@
//@skip-check module-structure-top-region //@skip-check module-structure-top-region
//@skip-check module-structure-method-in-regions //@skip-check module-structure-method-in-regions
//@skip-check wrong-string-literal-content //@skip-check wrong-string-literal-content
//@skip-check use-non-recommended-method
#Region Internal #Region Internal
@ -889,7 +890,11 @@ Function IsOneScript() Export
EndFunction EndFunction
Function ProgressInformation(Val Current, Val Total, Val Unit, Val Divider = 1) Export Procedure ProgressInformation(Val Current, Val Total, Val Unit, Val Divider = 1) Export
If Not IsOneScript() Then
Return;
EndIf;
Whole = 100; Whole = 100;
Current = Round(Current / Divider, 2); Current = Round(Current / Divider, 2);
@ -900,11 +905,26 @@ Function ProgressInformation(Val Current, Val Total, Val Unit, Val Divider = 1)
StrTotal = NumberToString(Total); StrTotal = NumberToString(Total);
StrPercentage = NumberToString(Percent); StrPercentage = NumberToString(Percent);
Information = StrCurrent + "/" + StrTotal + " " + Unit + " ( " + StrPercentage + "% )"; Progress = "Progress [" + StrPercentage + "%" + "] ▐";
Information = "▌ " + StrCurrent + "/" + StrTotal + " " + Unit;
Return Information; // Progress bat
BarLength = 30;
Counter = 0;
Buffer = "";
EndFunction Indicator = Int(Current / Total * BarLength);
WHile Counter < BarLength Loop
Buffer = Buffer + ?(Counter < Indicator, "█", " ");
Counter = Counter + 1;
EndDo;
WriteOnCurrentLine(Progress, , True);
WriteOnCurrentLine(Buffer , "Green");
WriteOnCurrentLine(Information);
EndProcedure
#EndRegion #EndRegion
@ -1281,6 +1301,36 @@ Procedure XMLInitialProcessing(XML)
EndProcedure EndProcedure
Procedure WriteOnCurrentLine(Val Text, Val Color = "", Val ToStart = False) Export
If Not IsOneScript() Then
Console = Undefined;
ConsoleColor = New Map;
EndIf;
Encoding = Console.OutputEncoding;
OutputStream = Console.OpenStandardOutput();
OutputWriting = New DataWriter(OutputStream, Encoding);
If Not ValueIsFilled(Color) Then
Color = ConsoleColor.White;
EndIf;
If TypeOf(Color) = Type("String") Then
Console.TextColor = ConsoleColor[Color];
Else
Console.TextColor = Color;
EndIf;
If ToStart Then
Escape = Chars.CR;
OutputWriting.WriteChars(Escape);
EndIf;
OutputWriting.WriteChars(Text);
EndProcedure
Function ExecuteRequestWithBody(Val URL, Val View, Val Parameters = "", Val AdditionalHeaders = "", Val JSON = True, Function ExecuteRequestWithBody(Val URL, Val View, Val Parameters = "", Val AdditionalHeaders = "", Val JSON = True,
Val FullResponse = False, Val ResponseFile = Undefined) Val FullResponse = False, Val ResponseFile = Undefined)

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

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

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

@ -892,10 +892,10 @@
Процедура ИнформацияОПрогрессе(Знач Текущее, Знач Всего, Знач ЕдИзм, Знач Делитель = 1) Экспорт Процедура ИнформацияОПрогрессе(Знач Текущее, Знач Всего, Знач ЕдИзм, Знач Делитель = 1) Экспорт
Если Не ЭтоOneScript() Тогда Если Не ЭтоOneScript() Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
Целое = 100; Целое = 100;
Текущее = Окр(Текущее / Делитель, 2); Текущее = Окр(Текущее / Делитель, 2);
Всего = Окр(Всего / Делитель, 2); Всего = Окр(Всего / Делитель, 2);
@ -907,23 +907,23 @@
Прогресс = "Прогресс [" + СтрПроцент + "%" + "] ▐"; Прогресс = "Прогресс [" + СтрПроцент + "%" + "] ▐";
Информация = "▌ " + СтрТекущее + "/" + СтрВсего + " " + ЕдИзм; Информация = "▌ " + СтрТекущее + "/" + СтрВсего + " " + ЕдИзм;
// Прогресс бар // Прогресс бар
ДлинаПолоски = 30; ДлинаПолоски = 30;
Счетчик = 0; Счетчик = 0;
Буфер = ""; Буфер = "";
Показатель = Цел(Текущее / Всего * ДлинаПолоски); Показатель = Цел(Текущее / Всего * ДлинаПолоски);
Пока Счетчик < ДлинаПолоски Цикл Пока Счетчик < ДлинаПолоски Цикл
Буфер = Буфер + ?(Счетчик < Показатель, "█", " "); Буфер = Буфер + ?(Счетчик < Показатель, "█", " ");
Счетчик = Счетчик + 1; Счетчик = Счетчик + 1;
КонецЦикла; КонецЦикла;
ВывестиТекстВТекущуюСтроку(Прогресс, , Истина); ВывестиТекстВТекущуюСтроку(Прогресс, , Истина);
ВывестиТекстВТекущуюСтроку(Буфер, "Зеленый"); ВывестиТекстВТекущуюСтроку(Буфер , "Зеленый");
ВывестиТекстВТекущуюСтроку(Информация); ВывестиТекстВТекущуюСтроку(Информация);
КонецПроцедуры КонецПроцедуры
#КонецОбласти #КонецОбласти
@ -1302,33 +1302,33 @@
КонецПроцедуры КонецПроцедуры
Процедура ВывестиТекстВТекущуюСтроку(Знач Текст, Знач Цвет = "", Знач ВНачало = Ложь) Экспорт Процедура ВывестиТекстВТекущуюСтроку(Знач Текст, Знач Цвет = "", Знач ВНачало = Ложь) Экспорт
Если Не ЭтоOneScript() Тогда Если Не ЭтоOneScript() Тогда
Консоль = Неопределено; Консоль = Неопределено;
ЦветКонсоли = Новый Соответствие; ЦветКонсоли = Новый Соответствие;
КонецЕсли; КонецЕсли;
Кодировка = Консоль.КодировкаВыходногоПотока; Кодировка = Консоль.КодировкаВыходногоПотока;
ПотовкВывода = Консоль.ОткрытьСтандартныйПотокВывода(); ПотокВывода = Консоль.ОткрытьСтандартныйПотокВывода();
ЗаписьВывода = Новый ЗаписьДанных(ПотовкВывода, Кодировка); ЗаписьВывода = Новый ЗаписьДанных(ПотокВывода, Кодировка);
Если НЕ ЗначениеЗаполнено(Цвет) Тогда Если Не ЗначениеЗаполнено(Цвет) Тогда
Цвет = ЦветКонсоли.Белый; Цвет = ЦветКонсоли.Белый;
КонецЕсли; КонецЕсли;
Если ТипЗнч(Цвет) = Тип("Строка") Тогда Если ТипЗнч(Цвет) = Тип("Строка") Тогда
Консоль.ЦветТекста = ЦветКонсоли[Цвет]; Консоль.ЦветТекста = ЦветКонсоли[Цвет];
Иначе Иначе
Консоль.ЦветТекста = Цвет; Консоль.ЦветТекста = Цвет;
КонецЕсли; КонецЕсли;
Если ВНачало Тогда Если ВНачало Тогда
Ескейп = Символы.ВК; Ескейп = Символы.ВК;
ЗаписьВывода.ЗаписатьСимволы(Ескейп); ЗаписьВывода.ЗаписатьСимволы(Ескейп);
КонецЕсли; КонецЕсли;
ЗаписьВывода.ЗаписатьСимволы(Текст); ЗаписьВывода.ЗаписатьСимволы(Текст);
КонецПроцедуры КонецПроцедуры
Функция ВыполнитьЗапросСТелом(Знач URL, Знач Вид, Знач Параметры = "", Знач ДопЗаголовки = "", Знач JSON = Истина, Функция ВыполнитьЗапросСТелом(Знач URL, Знач Вид, Знач Параметры = "", Знач ДопЗаголовки = "", Знач JSON = Истина,

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

@ -892,10 +892,10 @@
Процедура ИнформацияОПрогрессе(Знач Текущее, Знач Всего, Знач ЕдИзм, Знач Делитель = 1) Экспорт Процедура ИнформацияОПрогрессе(Знач Текущее, Знач Всего, Знач ЕдИзм, Знач Делитель = 1) Экспорт
Если Не ЭтоOneScript() Тогда Если Не ЭтоOneScript() Тогда
Возврат; Возврат;
КонецЕсли; КонецЕсли;
Целое = 100; Целое = 100;
Текущее = Окр(Текущее / Делитель, 2); Текущее = Окр(Текущее / Делитель, 2);
Всего = Окр(Всего / Делитель, 2); Всего = Окр(Всего / Делитель, 2);
@ -907,23 +907,23 @@
Прогресс = "Прогресс [" + СтрПроцент + "%" + "] ▐"; Прогресс = "Прогресс [" + СтрПроцент + "%" + "] ▐";
Информация = "▌ " + СтрТекущее + "/" + СтрВсего + " " + ЕдИзм; Информация = "▌ " + СтрТекущее + "/" + СтрВсего + " " + ЕдИзм;
// Прогресс бар // Прогресс бар
ДлинаПолоски = 30; ДлинаПолоски = 30;
Счетчик = 0; Счетчик = 0;
Буфер = ""; Буфер = "";
Показатель = Цел(Текущее / Всего * ДлинаПолоски); Показатель = Цел(Текущее / Всего * ДлинаПолоски);
Пока Счетчик < ДлинаПолоски Цикл Пока Счетчик < ДлинаПолоски Цикл
Буфер = Буфер + ?(Счетчик < Показатель, "█", " "); Буфер = Буфер + ?(Счетчик < Показатель, "█", " ");
Счетчик = Счетчик + 1; Счетчик = Счетчик + 1;
КонецЦикла; КонецЦикла;
ВывестиТекстВТекущуюСтроку(Прогресс, , Истина); ВывестиТекстВТекущуюСтроку(Прогресс, , Истина);
ВывестиТекстВТекущуюСтроку(Буфер, "Зеленый"); ВывестиТекстВТекущуюСтроку(Буфер , "Зеленый");
ВывестиТекстВТекущуюСтроку(Информация); ВывестиТекстВТекущуюСтроку(Информация);
КонецПроцедуры КонецПроцедуры
#КонецОбласти #КонецОбласти
@ -1302,33 +1302,33 @@
КонецПроцедуры КонецПроцедуры
Процедура ВывестиТекстВТекущуюСтроку(Знач Текст, Знач Цвет = "", Знач ВНачало = Ложь) Экспорт Процедура ВывестиТекстВТекущуюСтроку(Знач Текст, Знач Цвет = "", Знач ВНачало = Ложь) Экспорт
Если Не ЭтоOneScript() Тогда Если Не ЭтоOneScript() Тогда
Консоль = Неопределено; Консоль = Неопределено;
ЦветКонсоли = Новый Соответствие; ЦветКонсоли = Новый Соответствие;
КонецЕсли; КонецЕсли;
Кодировка = Консоль.КодировкаВыходногоПотока; Кодировка = Консоль.КодировкаВыходногоПотока;
ПотокВывода = Консоль.ОткрытьСтандартныйПотокВывода(); ПотокВывода = Консоль.ОткрытьСтандартныйПотокВывода();
ЗаписьВывода = Новый ЗаписьДанных(ПотокВывода, Кодировка); ЗаписьВывода = Новый ЗаписьДанных(ПотокВывода, Кодировка);
Если Не ЗначениеЗаполнено(Цвет) Тогда Если Не ЗначениеЗаполнено(Цвет) Тогда
Цвет = ЦветКонсоли.Белый; Цвет = ЦветКонсоли.Белый;
КонецЕсли; КонецЕсли;
Если ТипЗнч(Цвет) = Тип("Строка") Тогда Если ТипЗнч(Цвет) = Тип("Строка") Тогда
Консоль.ЦветТекста = ЦветКонсоли[Цвет]; Консоль.ЦветТекста = ЦветКонсоли[Цвет];
Иначе Иначе
Консоль.ЦветТекста = Цвет; Консоль.ЦветТекста = Цвет;
КонецЕсли; КонецЕсли;
Если ВНачало Тогда Если ВНачало Тогда
Ескейп = Символы.ВК; Ескейп = Символы.ВК;
ЗаписьВывода.ЗаписатьСимволы(Ескейп); ЗаписьВывода.ЗаписатьСимволы(Ескейп);
КонецЕсли; КонецЕсли;
ЗаписьВывода.ЗаписатьСимволы(Текст); ЗаписьВывода.ЗаписатьСимволы(Текст);
КонецПроцедуры КонецПроцедуры
Функция ВыполнитьЗапросСТелом(Знач URL, Знач Вид, Знач Параметры = "", Знач ДопЗаголовки = "", Знач JSON = Истина, Функция ВыполнитьЗапросСТелом(Знач URL, Знач Вид, Знач Параметры = "", Знач ДопЗаголовки = "", Знач JSON = Истина,