From 38bb6fe2ee9d3d2b710f68b4b2f7eef13e96b2f0 Mon Sep 17 00:00:00 2001 From: "KTB-H\\ktb" Date: Tue, 28 Nov 2017 12:33:49 +0300 Subject: [PATCH 1/6] =?UTF-8?q?#51=20=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D0=B0=20=D0=BF=D1=80=D0=BE=D1=86=D0=B5=D0=B4=D1=83?= =?UTF-8?q?=D1=80=D0=B0=20=D1=81=D0=BE=D0=B7=D0=B4=D0=B0=D0=BD=D0=B8=D1=8F?= =?UTF-8?q?=20=D1=81=D0=B5=D1=80=D0=B2=D0=B5=D1=80=D0=BD=D0=BE=D0=B9=20?= =?UTF-8?q?=D0=98=D0=91?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/v8runner.os | 88 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 88 insertions(+) diff --git a/src/v8runner.os b/src/v8runner.os index 147bec9..d68eb95 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -857,6 +857,94 @@ КонецПроцедуры +Процедура СоздатьСервернуюБазу(Знач Сервер1С, + Знач ИмяИБ, + Знач ТипСУБД = "MSSQLServer", + Знач СерверСУБД, + Знач ПользовательСУБД, + Знач ПарольСУБД = "", + Знач ИмяБД = "", + Знач СмещениеДат = "2000", + Знач СоздаватьБД = Ложь, + Знач РазрешитьРегЗадания = Ложь, + Знач АдминистраторКластера = "", + Знач ПарольКластера = "", + Знач ПутьКШаблону = "", + Знач ИмяБазыВСписке = "", + Знач ОшибкаЕслиСуществует = Ложь) Экспорт + + Лог.Отладка("Создание серверной ИБ """ + Сервер1С + "\" + ИмяИБ + """"); + + Если НЕ ЗначениеЗаполнено(ИмяБД) Тогда + ИмяБД = ИмяИБ; + Лог.Информация("Не указано имя базы на сервере СУБД, будет использовано имя ИБ - """ + ИмяБД + """"); + КонецЕсли; + + СтрокаЗапуска = "Srvr=" + СокрЛП(Сервер1С) + + ";Ref=" + СокрЛП(ИмяИБ) + + ";DBMS=" + СокрЛП(ТипСУБД) + + ";DBSrvr=" + СокрЛП(СерверСУБД) + + ";DBUID=" + СокрЛП(ПользовательСУБД) + + ";DBPwd=" + СокрЛП(ПарольСУБД) + + ";DB=" + СокрЛП(ИмяБД) + + ";SQLYOffs=" + СокрЛП(СмещениеДат) + + ";CrSQLDB=" + ?(СоздаватьБД, "Y", "N") + + ";SchJobDn=" + ?(РазрешитьРегЗадания, "N", "Y"); + + Если НЕ ПустаяСтрока(АдминистраторКластера) Тогда + СтрокаЗапуска = СтрокаЗапуска + ";SUsr=" + АдминистраторКластера; + КонецЕсли; + + Если НЕ ПустаяСтрока(ПарольКластера) Тогда + СтрокаЗапуска = СтрокаЗапуска + ";SPwd=" + ПарольКластера; + КонецЕсли; + + ИмяФайлаРезультата = ПолучитьИмяВременногоФайла("out"); + + Лог.Отладка("Строка запуска: " + СтрокаЗапуска); + + ПараметрыЗапуска = Новый Массив; + ПараметрыЗапуска.Добавить("CREATEINFOBASE"); + ПараметрыЗапуска.Добавить(СтрокаЗапуска); + + Если мОчищатьФайлИнформации Тогда + ПараметрыЗапуска.Добавить("/Out " + ОбернутьВКавычки(ФайлИнформации())); + Иначе + ПараметрыЗапуска.Добавить("/Out " + ОбернутьВКавычки(ФайлИнформации()) + " -NoTruncate"); + КонецЕсли; + + Если НЕ ПустаяСтрока(ИмяБазыВСписке) Тогда + ПараметрыЗапуска.Добавить("/AddInList""" + ИмяБазыВСписке + """"); + КонецЕсли; + Если НЕ ПустаяСтрока(ПутьКШаблону) Тогда + ПараметрыЗапуска.Добавить("/UseTemplate""" + ПутьКШаблону + """"); + КонецЕсли; + + Если НЕ ПустаяСтрока(мКонтекстКоманды.КодЯзыка) Тогда + ПараметрыЗапуска.Добавить("/L" + мКонтекстКоманды.КодЯзыка); + КонецЕсли; + Если НЕ ПустаяСтрока(мКонтекстКоманды.КодЯзыкаСеанса) Тогда + ПараметрыЗапуска.Добавить("/VL" + мКонтекстКоманды.КодЯзыкаСеанса); + КонецЕсли; + + СохранитьТекстФайлаИнформации(); + + КодВозврата = ЗапуститьИПодождать(ПараметрыЗапуска); + + УстановитьВывод(ПрочитатьФайлИнформации()); + + Если КодВозврата = 0 Тогда + Лог.Информация("Создана серверная ИБ """ + СокрЛП(Сервер1С) + "\" + СокрЛП(ИмяИБ) + """"); + Иначе + Если ОшибкаЕслиСуществует + ИЛИ СтрНайти(ВРег(ВыводКоманды()), ВРег("информационная база уже существует")) = 0 Тогда + ВызватьИсключение "Ошибка создания ИБ: """ + ВыводКоманды() + """"; + КонецЕсли; + Лог.Информация("Информационная база """ + СокрЛП(Сервер1С) + "\" + СокрЛП(ИмяИБ) + """ уже существует."); + КонецЕсли; + +КонецПроцедуры + Процедура ЗагрузитьИнформационнуюБазу(ПутьВыгрузкиИБ) Экспорт ФайлВыгрузки = Новый Файл(ПутьВыгрузкиИБ); Ожидаем.Что(ФайлВыгрузки.Существует(), "Файл выгрузки <"+ПутьВыгрузкиИБ+"> существует, а это не так").ЭтоИстина(); From 58f16418faaa62dba84456b5cd6459f876aa2d0e Mon Sep 17 00:00:00 2001 From: "KTB-H\\ktb" Date: Wed, 29 Nov 2017 12:46:52 +0300 Subject: [PATCH 2/6] =?UTF-8?q?#52=20=D0=9E=D1=82=D0=BA=D0=BB=D1=8E=D1=87?= =?UTF-8?q?=D0=B5=D0=BD=20=D0=B7=D0=B0=D0=BF=D1=83=D1=81=D0=BA=20=D0=BA?= =?UTF-8?q?=D0=BE=D0=BC=D0=B0=D0=BD=D0=B4=20=D1=87=D0=B5=D1=80=D0=B5=D0=B7?= =?UTF-8?q?=20=D0=BA=D0=BE=D0=BC=D0=B0=D0=BD=D0=B4=D1=8B=20=D1=81=D0=B8?= =?UTF-8?q?=D1=81=D1=82=D0=B5=D0=BC=D1=8B=20(cmd/sh)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/v8runner.os | 1 + 1 file changed, 1 insertion(+) diff --git a/src/v8runner.os b/src/v8runner.os index 858f511..ac0b880 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -1440,6 +1440,7 @@ Команда.УстановитьКодировкуВывода(КодировкаТекста.UTF8); Команда.ДобавитьЛогВыводаКоманды("oscript.lib.v8runner"); Команда.ДобавитьПараметры(Параметры); + Команда.УстановитьИсполнениеЧерезКомандыСистемы(Ложь); Команда.ПоказыватьВыводНемедленно(Ложь); КодВозврата = Команда.Исполнить(); From 699287e3d2e4d7e9ed8f045e17d6c3be404e313d Mon Sep 17 00:00:00 2001 From: "KTB-H\\ktb" Date: Wed, 29 Nov 2017 14:58:48 +0300 Subject: [PATCH 3/6] =?UTF-8?q?=D0=A0=D0=B5=D1=84=D0=B0=D0=BA=D1=82=D0=BE?= =?UTF-8?q?=D1=80=D0=B8=D0=BD=D0=B3=20=D0=BF=D1=80=D0=BE=D1=86=D0=B5=D0=B4?= =?UTF-8?q?=D1=83=D1=80=D1=8B=20=D1=81=D0=BE=D0=B7=D0=B4=D0=B0=D0=BD=D0=B8?= =?UTF-8?q?=D1=8F=20=D1=81=D0=B5=D1=80=D0=B2=D0=B5=D1=80=D0=BD=D0=BE=D0=B9?= =?UTF-8?q?=20=D0=98=D0=91?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/v8runner.os | 93 +++++++++++++++++++++++++++++++++++++++---------- 1 file changed, 74 insertions(+), 19 deletions(-) diff --git a/src/v8runner.os b/src/v8runner.os index 1db5149..4e07c1f 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -857,29 +857,84 @@ КонецПроцедуры -Процедура СоздатьСервернуюБазу(Знач Сервер1С, - Знач ИмяИБ, - Знач ТипСУБД = "MSSQLServer", - Знач СерверСУБД, - Знач ПользовательСУБД, - Знач ПарольСУБД = "", - Знач ИмяБД = "", - Знач СмещениеДат = "2000", - Знач СоздаватьБД = Ложь, - Знач РазрешитьРегЗадания = Ложь, - Знач АдминистраторКластера = "", - Знач ПарольКластера = "", +// Создание серверной информационной базы 1С +// +// Параметры: +// ПараметрыБазы1С - Структура +// Сервер1С - Строка - Адрес кластера серверов 1С ([<протокол>://]<адрес>[:<порт>]) +// ИмяИБ - Строка - Имя информационной базы на сервере 1С +// РазрешитьРегЗадания - Булево - Истина - разрешить запуск рег. заданий (по умолчанию: Ложь) +// ПараметрыСУБД - Структура +// ТипСУБД - Строка - Тип сервера СУБД ("MSSQLServer" <по умолчанию>; "PostgreSQL"; "IBMDB2"; "OracleDatabase") +// СерверСУБД - Строка - Адрес сервера СУБД +// ПользовательСУБД - Строка - Пользователь сервера СУБД +// ПарольСУБД - Строка - Пароль пользователя сервера СУБД +// ИмяБД - Строка - Имя базы на сервере СУБД (если не указано будет использовано имя ИБ 1С) +// СмещениеДат - Строка - Смещение дат на сервере MS SQL (0; 2000 <по умолчанию>) +// СоздаватьБД - Булево - Истина - будет создана база на сервере СУБД в случае отсутствия (по умолчанию: Ложь) +// АвторизацияВКластере - Структура +// Имя - Строка - Имя администратора кластера 1С +// Пароль - Строка - Пароль администратора кластера 1С +// ПутьКШаблону - Строка - Путь к шаблону для создания информационной базы (*.cf; *.dt). +// Если шаблон не указан, то будет создана пустая ИБ +// ИмяБазыВСписке - Строка - Имя в списке баз пользователя (если не задано, то ИБ в список не добавляется) +// ОшибкаЕслиСуществует - Булево - Истина - Вызвать исключение если ИБ в кластере 1С существует (по умолчанию: Ложь) +// +Процедура СоздатьСервернуюБазу(ПараметрыБазы1С, + ПараметрыСУБД, + АвторизацияВКластере, Знач ПутьКШаблону = "", Знач ИмяБазыВСписке = "", Знач ОшибкаЕслиСуществует = Ложь) Экспорт - Лог.Отладка("Создание серверной ИБ """ + Сервер1С + "\" + ИмяИБ + """"); + Сервер1С = ПараметрыБазы1С.Сервер1С; + ИмяИБ = ПараметрыБазы1С.ИмяИБ; + Лог.Отладка("Создание серверной ИБ ""%1\%2""", Сервер1С, ИмяИБ); + + РазрешитьРегЗадания = Ложь; + Если ПараметрыБазы1С.Свойство("РазрешитьРегЗадания") Тогда + РазрешитьРегЗадания = ПараметрыБазы1С.РазрешитьРегЗадания; + КонецЕсли; + + ТипСУБД = "MSSQLServer"; + Если ПараметрыСУБД.Свойство("ТипСУБД") Тогда + ТипСУБД = ПараметрыСУБД.ТипСУБД; + КонецЕсли; + СерверСУБД = ПараметрыСУБД.СерверСУБД; + ПользовательСУБД = ПараметрыСУБД.ПользовательСУБД; + ПарольСУБД = "MSSQLServer"; + Если ПараметрыСУБД.Свойство("ПарольСУБД") Тогда + ПарольСУБД = ПараметрыСУБД.ПарольСУБД; + КонецЕсли; + + ИмяБД = ""; + Если ПараметрыСУБД.Свойство("ИмяБД") Тогда + ИмяБД = ПараметрыСУБД.ИмяБД; + КонецЕсли; Если НЕ ЗначениеЗаполнено(ИмяБД) Тогда ИмяБД = ИмяИБ; - Лог.Информация("Не указано имя базы на сервере СУБД, будет использовано имя ИБ - """ + ИмяБД + """"); + Лог.Информация("Не указано имя базы на сервере СУБД, будет использовано имя ИБ - ""%1""", ИмяБД); КонецЕсли; + СмещениеДат = "2000"; + Если ПараметрыСУБД.Свойство("СмещениеДат") Тогда + СмещениеДат = ПараметрыСУБД.СмещениеДат; + КонецЕсли; + СоздаватьБД = Ложь; + Если ПараметрыСУБД.Свойство("СоздаватьБД") Тогда + СоздаватьБД = ПараметрыСУБД.СоздаватьБД; + КонецЕсли; + + АдминистраторКластера = Ложь; + Если АвторизацияВКластере.Свойство("Имя") Тогда + АдминистраторКластера = АвторизацияВКластере.Имя; + КонецЕсли; + ПарольКластера = Ложь; + Если АвторизацияВКластере.Свойство("Пароль") Тогда + ПарольКластера = АвторизацияВКластере.Пароль; + КонецЕсли; + СтрокаЗапуска = "Srvr=" + СокрЛП(Сервер1С) + ";Ref=" + СокрЛП(ИмяИБ) + ";DBMS=" + СокрЛП(ТипСУБД) @@ -901,11 +956,11 @@ ИмяФайлаРезультата = ПолучитьИмяВременногоФайла("out"); - Лог.Отладка("Строка запуска: " + СтрокаЗапуска); + Лог.Отладка("Строка запуска: %1", СтрокаЗапуска); ПараметрыЗапуска = Новый Массив; ПараметрыЗапуска.Добавить("CREATEINFOBASE"); - ПараметрыЗапуска.Добавить(СтрокаЗапуска); + ПараметрыЗапуска.Добавить(ОбернутьВКавычки(СтрокаЗапуска)); Если мОчищатьФайлИнформации Тогда ПараметрыЗапуска.Добавить("/Out " + ОбернутьВКавычки(ФайлИнформации())); @@ -934,16 +989,16 @@ УстановитьВывод(ПрочитатьФайлИнформации()); Если КодВозврата = 0 Тогда - Лог.Информация("Создана серверная ИБ """ + СокрЛП(Сервер1С) + "\" + СокрЛП(ИмяИБ) + """"); + Лог.Информация("Создана серверная ИБ ""%1\%2""", Сервер1С, ИмяИБ); Иначе Если ОшибкаЕслиСуществует ИЛИ СтрНайти(ВРег(ВыводКоманды()), ВРег("информационная база уже существует")) = 0 Тогда ВызватьИсключение "Ошибка создания ИБ: """ + ВыводКоманды() + """"; КонецЕсли; - Лог.Информация("Информационная база """ + СокрЛП(Сервер1С) + "\" + СокрЛП(ИмяИБ) + """ уже существует."); + Лог.Информация("Информационная база ""%1\%2"" уже существует.", Сервер1С, ИмяИБ); КонецЕсли; -КонецПроцедуры +КонецПроцедуры //СоздатьСервернуюБазу() Процедура ЗагрузитьИнформационнуюБазу(ПутьВыгрузкиИБ) Экспорт ФайлВыгрузки = Новый Файл(ПутьВыгрузкиИБ); From 85981fecb64227cb9ce4e20d0e4adebffa31868f Mon Sep 17 00:00:00 2001 From: "KTB-H\\ktb" Date: Wed, 29 Nov 2017 16:02:35 +0300 Subject: [PATCH 4/6] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?= =?UTF-8?q?=D0=BD=D0=B0=20=D1=84=D1=83=D0=BD=D0=BA=D1=86=D0=B8=D1=8F=20?= =?UTF-8?q?=D0=BF=D0=BE=D0=BB=D1=83=D1=87=D0=B5=D0=BD=D0=B8=D1=8F=20=D0=BF?= =?UTF-8?q?=D0=B0=D1=80=D0=B0=D0=BC=D0=B5=D1=82=D1=80=D0=BE=D0=B2=20=D0=B8?= =?UTF-8?q?=D0=B7=20=D1=81=D1=82=D1=80=D1=83=D0=BA=D1=82=D1=83=D1=80=D1=8B?= =?UTF-8?q?;=20=D0=A0=D0=B5=D1=84=D0=B0=D0=BA=D1=82=D0=BE=D1=80=D0=B8?= =?UTF-8?q?=D0=BD=D0=B3=20=D0=BF=D1=80=D0=BE=D1=86=D0=B5=D0=B4=D1=83=D1=80?= =?UTF-8?q?=D1=8B=20=D1=81=D0=BE=D0=B7=D0=B4=D0=B0=D0=BD=D0=B8=D1=8F=20?= =?UTF-8?q?=D1=81=D0=B5=D1=80=D0=B2=D0=B5=D1=80=D0=BD=D0=BE=D0=B9=20=D0=B1?= =?UTF-8?q?=D0=B0=D0=B7=D1=8B?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/v8runner.os | 82 ++++++++++++++++++++++++------------------------- 1 file changed, 40 insertions(+), 42 deletions(-) diff --git a/src/v8runner.os b/src/v8runner.os index 4e07c1f..d786777 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -875,66 +875,42 @@ // АвторизацияВКластере - Структура // Имя - Строка - Имя администратора кластера 1С // Пароль - Строка - Пароль администратора кластера 1С +// ОшибкаЕслиСуществует - Булево - Истина - Вызвать исключение если ИБ в кластере 1С существует (по умолчанию: Ложь) // ПутьКШаблону - Строка - Путь к шаблону для создания информационной базы (*.cf; *.dt). // Если шаблон не указан, то будет создана пустая ИБ // ИмяБазыВСписке - Строка - Имя в списке баз пользователя (если не задано, то ИБ в список не добавляется) -// ОшибкаЕслиСуществует - Булево - Истина - Вызвать исключение если ИБ в кластере 1С существует (по умолчанию: Ложь) // Процедура СоздатьСервернуюБазу(ПараметрыБазы1С, ПараметрыСУБД, АвторизацияВКластере, + Знач ОшибкаЕслиСуществует, Знач ПутьКШаблону = "", - Знач ИмяБазыВСписке = "", - Знач ОшибкаЕслиСуществует = Ложь) Экспорт + Знач ИмяБазыВСписке = "") Экспорт - Сервер1С = ПараметрыБазы1С.Сервер1С; - ИмяИБ = ПараметрыБазы1С.ИмяИБ; + Сервер1С = ПолучитьПараметр(ПараметрыБазы1С, "Сервер1С"); + ИмяИБ = ПолучитьПараметр(ПараметрыБазы1С, "ИмяИБ"); Лог.Отладка("Создание серверной ИБ ""%1\%2""", Сервер1С, ИмяИБ); - РазрешитьРегЗадания = Ложь; - Если ПараметрыБазы1С.Свойство("РазрешитьРегЗадания") Тогда - РазрешитьРегЗадания = ПараметрыБазы1С.РазрешитьРегЗадания; - КонецЕсли; - - ТипСУБД = "MSSQLServer"; - Если ПараметрыСУБД.Свойство("ТипСУБД") Тогда - ТипСУБД = ПараметрыСУБД.ТипСУБД; - КонецЕсли; - СерверСУБД = ПараметрыСУБД.СерверСУБД; - ПользовательСУБД = ПараметрыСУБД.ПользовательСУБД; - ПарольСУБД = "MSSQLServer"; - Если ПараметрыСУБД.Свойство("ПарольСУБД") Тогда - ПарольСУБД = ПараметрыСУБД.ПарольСУБД; - КонецЕсли; + РазрешитьРегЗадания = ПолучитьПараметр(ПараметрыБазы1С, "РазрешитьРегЗадания", Ложь); - ИмяБД = ""; - Если ПараметрыСУБД.Свойство("ИмяБД") Тогда - ИмяБД = ПараметрыСУБД.ИмяБД; - КонецЕсли; + ТипСУБД = ПолучитьПараметр(ПараметрыСУБД, "ТипСУБД", "MSSQLServer"); + СерверСУБД = ПолучитьПараметр(ПараметрыСУБД, "СерверСУБД"); + ПользовательСУБД = ПолучитьПараметр(ПараметрыСУБД, "ПользовательСУБД"); + ПарольСУБД = ПолучитьПараметр(ПараметрыСУБД, "ПарольСУБД", ""); + + ИмяБД = ПолучитьПараметр(ПараметрыСУБД, "ИмяБД"); Если НЕ ЗначениеЗаполнено(ИмяБД) Тогда ИмяБД = ИмяИБ; Лог.Информация("Не указано имя базы на сервере СУБД, будет использовано имя ИБ - ""%1""", ИмяБД); КонецЕсли; - - СмещениеДат = "2000"; - Если ПараметрыСУБД.Свойство("СмещениеДат") Тогда - СмещениеДат = ПараметрыСУБД.СмещениеДат; - КонецЕсли; - СоздаватьБД = Ложь; - Если ПараметрыСУБД.Свойство("СоздаватьБД") Тогда - СоздаватьБД = ПараметрыСУБД.СоздаватьБД; - КонецЕсли; - - АдминистраторКластера = Ложь; - Если АвторизацияВКластере.Свойство("Имя") Тогда - АдминистраторКластера = АвторизацияВКластере.Имя; - КонецЕсли; - ПарольКластера = Ложь; - Если АвторизацияВКластере.Свойство("Пароль") Тогда - ПарольКластера = АвторизацияВКластере.Пароль; - КонецЕсли; + СмещениеДат = ПолучитьПараметр(ПараметрыСУБД, "СмещениеДат", "2000"); + СоздаватьБД = ПолучитьПараметр(ПараметрыСУБД, "СоздаватьБД", Ложь); + + АдминистраторКластера = ПолучитьПараметр(АвторизацияВКластере, "Имя", Ложь); + ПарольКластера = ПолучитьПараметр(АвторизацияВКластере, "Пароль", Ложь); + СтрокаЗапуска = "Srvr=" + СокрЛП(Сервер1С) + ";Ref=" + СокрЛП(ИмяИБ) + ";DBMS=" + СокрЛП(ТипСУБД) @@ -1778,6 +1754,28 @@ КонецЕсли; КонецФункции +// Пполучает значение параметра из структуры +// +// Параметры: +// Параметры - Структура - Структура, содержащая значения параметров +// Имя - Строка - Имя параметра +// ЗначениеПоУмолчанию - Произвольный - Значение параметра по умолчанию +// (возвращается если в структуре параметров значение по указанному имени не найдено) +// Возвращаемое значение: +// Произвольный - Значение параметра +// +Функция ПолучитьПараметр(Параметры, Имя, ЗначениеПоУмолчанию = Неопределено) + + ЗначениеПараметра = ЗначениеПоУмолчанию; + + Если Параметры.Свойство(Имя) Тогда + ЗначениеПараметра = Параметры[Имя]; + КонецЕсли; + + Возврат ЗначениеПараметра; + +КонецФункции //ПолучитьПараметр() + Процедура Инициализация() СистемнаяИнформация = Новый СистемнаяИнформация; ЭтоWindows = Найти(НРег(СистемнаяИнформация.ВерсияОС), "windows") > 0; From 9df2c05d28d09952ed5e7d7f95faca1db7836b17 Mon Sep 17 00:00:00 2001 From: "KTB-H\\ktb" Date: Wed, 29 Nov 2017 17:13:25 +0300 Subject: [PATCH 5/6] =?UTF-8?q?=D0=92=20=D1=84=D1=83=D0=BD=D0=BA=D1=86?= =?UTF-8?q?=D0=B8=D0=B8=20=D0=9F=D0=BE=D0=BB=D1=83=D1=87=D0=B8=D1=82=D1=8C?= =?UTF-8?q?=D0=9F=D0=B0=D1=80=D0=B0=D0=BC=D0=B5=D1=82=D1=80=20=D0=B8=D0=B7?= =?UTF-8?q?=D0=BC=D0=B5=D0=BD=D0=B5=D0=BD=D0=BE=20=D0=B7=D0=BD=D0=B0=D1=87?= =?UTF-8?q?=D0=B5=D0=BD=D0=B8=D0=B5=20=D0=BF=D0=B0=D1=80=D0=B0=D0=BC=D0=B5?= =?UTF-8?q?=D1=82=D1=80=D0=B0=20=D0=BF=D0=BE=20=D1=83=D0=BC=D0=BE=D0=BB?= =?UTF-8?q?=D1=87=D0=B0=D0=BD=D0=B8=D1=8E?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/v8runner.os | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/v8runner.os b/src/v8runner.os index d786777..b71b8f1 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -1764,7 +1764,7 @@ // Возвращаемое значение: // Произвольный - Значение параметра // -Функция ПолучитьПараметр(Параметры, Имя, ЗначениеПоУмолчанию = Неопределено) +Функция ПолучитьПараметр(Параметры, Имя, ЗначениеПоУмолчанию = "") ЗначениеПараметра = ЗначениеПоУмолчанию; From d0db43fcac4ac759cd68bfc9aec0e700e3567599 Mon Sep 17 00:00:00 2001 From: "KTB-H\\ktb" Date: Wed, 29 Nov 2017 19:47:29 +0300 Subject: [PATCH 6/6] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D0=BE=20=D0=B7=D0=BD=D0=B0=D1=87=D0=B5=D0=BD=D0=B8?= =?UTF-8?q?=D0=B5=20=D0=BF=D0=B0=D1=80=D0=B0=D0=BC=D0=B5=D1=82=D1=80=D0=B0?= =?UTF-8?q?=20=D0=BF=D0=BE=20=D1=83=D0=BC=D0=BE=D0=BB=D1=87=D0=B0=D0=BD?= =?UTF-8?q?=D0=B8=D1=8E;=20=D0=9F=D0=BE=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?= =?UTF-8?q?=D0=B5=D0=BD=D0=BE=20=D0=BE=D0=BF=D0=B8=D1=81=D0=B0=D0=BD=D0=B8?= =?UTF-8?q?=D0=B5=20=D0=BF=D1=80=D0=BE=D1=86=D0=B5=D0=B4=D1=83=D1=80=D1=8B?= =?UTF-8?q?=20=D0=9F=D0=BE=D0=BB=D1=83=D1=87=D0=B8=D1=82=D1=8C=D0=9F=D0=B0?= =?UTF-8?q?=D1=80=D0=B0=D0=BC=D0=B5=D1=82=D1=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/v8runner.os | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/v8runner.os b/src/v8runner.os index b71b8f1..b3e7ac2 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -883,7 +883,7 @@ Процедура СоздатьСервернуюБазу(ПараметрыБазы1С, ПараметрыСУБД, АвторизацияВКластере, - Знач ОшибкаЕслиСуществует, + Знач ОшибкаЕслиСуществует = Ложь, Знач ПутьКШаблону = "", Знач ИмяБазыВСписке = "") Экспорт @@ -1761,6 +1761,7 @@ // Имя - Строка - Имя параметра // ЗначениеПоУмолчанию - Произвольный - Значение параметра по умолчанию // (возвращается если в структуре параметров значение по указанному имени не найдено) +// (по умолчанию "") // Возвращаемое значение: // Произвольный - Значение параметра //