1
0
mirror of https://github.com/Bayselonarrend/OpenIntegrations.git synced 2025-01-20 05:19:32 +02:00
This commit is contained in:
Anton Titovets 2024-10-15 11:57:25 +03:00
commit 9f72167d86
5 changed files with 5134 additions and 5082 deletions

File diff suppressed because it is too large Load Diff

View File

@ -2051,17 +2051,43 @@ Procedure WriteCLICall(Val Library, Val Method, Val Options)
EndIf;
OptionsArray = New Array;
FindJSON = False;
For Each Option In Options Do
If TypeOf(Option.Value) = Type("Structure")
Or TypeOf(Option.Value) = Type("Map") Then
FindJSON = True;
EndIf;
CurrentOption = FormOption(Option.Value, Option.Key);
OptionsArray.Add(CurrentOption);
EndDo;
Start = "oint ";
If FindJSON Then
Information = "JSON data can also be passed as a path to a .json file";
StartBat = ":: " + Information + Chars.LF + Chars.LF + Start;
StartBash = "# " + Information + Chars.LF + Chars.LF + Start;
Else
StartBat = Start;
StartBash = Start;
EndIf;
BatSeparator = " ^" + Chars.LF + " ";
BashSeparator = " \" + Chars.LF + " ";
BatString = "oint " + Library + " " + Method + BatSeparator + StrConcat(OptionsArray, BatSeparator);
BashString = "oint " + Library + " " + Method + BashSeparator + StrConcat(OptionsArray, BashSeparator);
BatString = StartBat + Library + " " + Method + BatSeparator + StrConcat(OptionsArray, BatSeparator);
BashString = StartBash + Library + " " + Method + BashSeparator + StrConcat(OptionsArray, BashSeparator);
GetBinaryDataFromString(BatString).Write(MethodCatalog + "/bat.txt");
GetBinaryDataFromString(BashString).Write(MethodCatalog + "/bash.txt");

View File

@ -2051,17 +2051,43 @@ Procedure WriteCLICall(Val Library, Val Method, Val Options)
EndIf;
OptionsArray = New Array;
FindJSON = False;
For Each Option In Options Do
If TypeOf(Option.Value) = Type("Structure")
Or TypeOf(Option.Value) = Type("Map") Then
FindJSON = True;
EndIf;
CurrentOption = FormOption(Option.Value, Option.Key);
OptionsArray.Add(CurrentOption);
EndDo;
Start = "oint ";
If FindJSON Then
Information = "JSON data can also be passed as a path to a .json file";
StartBat = ":: " + Information + Chars.LF + Chars.LF + Start;
StartBash = "# " + Information + Chars.LF + Chars.LF + Start;
Else
StartBat = Start;
StartBash = Start;
EndIf;
BatSeparator = " ^" + Chars.LF + " ";
BashSeparator = " \" + Chars.LF + " ";
BatString = "oint " + Library + " " + Method + BatSeparator + StrConcat(OptionsArray, BatSeparator);
BashString = "oint " + Library + " " + Method + BashSeparator + StrConcat(OptionsArray, BashSeparator);
BatString = StartBat + Library + " " + Method + BatSeparator + StrConcat(OptionsArray, BatSeparator);
BashString = StartBash + Library + " " + Method + BashSeparator + StrConcat(OptionsArray, BashSeparator);
GetBinaryDataFromString(BatString).Write(MethodCatalog + "/bat.txt");
GetBinaryDataFromString(BashString).Write(MethodCatalog + "/bash.txt");

View File

@ -1857,9 +1857,9 @@
КонецФункции
Функция ПолучитьОбщийМодуль(Знач Имя)
Модуль = Вычислить(Имя);
Возврат Модуль;
КонецФункции
@ -2051,38 +2051,38 @@
КонецЕсли;
МассивОпций = Новый Массив;
ЕстьJSON = Ложь;
ЕстьJSON = Ложь;
Для Каждого Опция Из Опции Цикл
Если ТипЗнч(Опция.Значение) = Тип("Структура")
Или ТипЗнч(Опция.Значение) = Тип("Соответствие") Тогда
ЕстьJSON = Истина;
КонецЕсли;
Если ТипЗнч(Опция.Значение) = Тип("Структура")
Или ТипЗнч(Опция.Значение) = Тип("Соответствие") Тогда
ЕстьJSON = Истина;
КонецЕсли;
ТекущаяОпция = ОформитьОпцию(Опция.Значение, Опция.Ключ);
МассивОпций.Добавить(ТекущаяОпция);
КонецЦикла;
Начало = "oint ";
Если ЕстьJSON Тогда
Информация = "JSON данные также могут быть переданны как путь к файлу .json";
НачалоBat = ":: " + Информация + Символы.ПС + Символы.ПС + Начало;
НачалоBash = "# " + Информация + Символы.ПС + Символы.ПС + Начало;
Иначе
НачалоBat = Начало;
НачалоBash = Начало;
КонецЕсли;
Начало = "oint ";
Если ЕстьJSON Тогда
Информация = "JSON данные также могут быть переданны как путь к файлу .json";
НачалоBat = ":: " + Информация + Символы.ПС + Символы.ПС + Начало;
НачалоBash = "# " + Информация + Символы.ПС + Символы.ПС + Начало;
Иначе
НачалоBat = Начало;
НачалоBash = Начало;
КонецЕсли;
РазделительBat = " ^" + Символы.ПС + " ";
РазделительBash = " \" + Символы.ПС + " ";

View File

@ -2051,38 +2051,38 @@
КонецЕсли;
МассивОпций = Новый Массив;
ЕстьJSON = Ложь;
ЕстьJSON = Ложь;
Для Каждого Опция Из Опции Цикл
Если ТипЗнч(Опция.Значение) = Тип("Структура")
Или ТипЗнч(Опция.Значение) = Тип("Соответствие") Тогда
ЕстьJSON = Истина;
КонецЕсли;
Если ТипЗнч(Опция.Значение) = Тип("Структура")
Или ТипЗнч(Опция.Значение) = Тип("Соответствие") Тогда
ЕстьJSON = Истина;
КонецЕсли;
ТекущаяОпция = ОформитьОпцию(Опция.Значение, Опция.Ключ);
МассивОпций.Добавить(ТекущаяОпция);
КонецЦикла;
Начало = "oint ";
Если ЕстьJSON Тогда
Информация = "JSON данные также могут быть переданны как путь к файлу .json";
НачалоBat = ":: " + Информация + Символы.ПС + Символы.ПС + Начало;
НачалоBash = "# " + Информация + Символы.ПС + Символы.ПС + Начало;
Иначе
НачалоBat = Начало;
НачалоBash = Начало;
КонецЕсли;
Начало = "oint ";
Если ЕстьJSON Тогда
Информация = "JSON данные также могут быть переданны как путь к файлу .json";
НачалоBat = ":: " + Информация + Символы.ПС + Символы.ПС + Начало;
НачалоBash = "# " + Информация + Символы.ПС + Символы.ПС + Начало;
Иначе
НачалоBat = Начало;
НачалоBash = Начало;
КонецЕсли;
РазделительBat = " ^" + Символы.ПС + " ";
РазделительBash = " \" + Символы.ПС + " ";