diff --git a/packagedef b/packagedef index b7eb37c..10eaddf 100644 --- a/packagedef +++ b/packagedef @@ -1,6 +1,6 @@  Описание.Имя("v8runner") - .Версия("1.3.0") + .Версия("1.4.0") .ВерсияСреды("1.0.19") .ЗависитОт("asserts", "0.4.0") .ЗависитОт("fs", "0.5.0") diff --git a/src/v8runner.os b/src/v8runner.os index 65bb1eb..1b69f32 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -50,7 +50,7 @@ Процедура ПоказатьКонтекстВРежимеОтладки() Лог.Отладка("КлючСоединенияСБазой "+ мКонтекстКоманды.КлючСоединенияСБазой); - Лог.Отладка("ИмяПользователя <"+ мКонтекстКоманды.ИмяПользователя+">"); + Лог.Отладка("ИмяПользователя <"+ мКонтекстКоманды.ИмяПользователя + ">"); Лог.Отладка(?(ПустаяСтрока(мКонтекстКоманды.Пароль), "Пароль не задан", " Задан пароль "+ мКонтекстКоманды.Пароль)); КонецПроцедуры @@ -58,11 +58,11 @@ Параметры = СтандартныеПараметрыЗапускаКонфигуратора(); - Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения+""""); - Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения + """"); + Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища + """"); Если Не ПустаяСтрока(ПарольХранилища) Тогда - Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища + """"); КонецЕсли; ФайлРезультата = ОбъединитьПути(КаталогСборки(), "source.cf"); @@ -105,11 +105,11 @@ Параметры = СтандартныеПараметрыЗапускаКонфигуратора(); - Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения+""""); - Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения + """"); + Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища + """"); Если Не ПустаяСтрока(ПарольХранилища) Тогда - Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища + """"); КонецЕсли; Параметры.Добавить("/ConfigurationRepositoryReport """+ПутьКФайлуРезультата + """"); @@ -132,7 +132,7 @@ КонецПроцедуры -Процедура СоздатьФайлыПоставки(Знач ПутьФайлаПолнойПоставки ="", +Процедура СоздатьФайлыПоставки(Знач ПутьФайлаПолнойПоставки = "", знач ПутьФайлаПоставкиОбновления = "", Знач ДистрибутивыДляОбновления = Неопределено, // Массив файлов дистрибутива cf Знач ПутьФайлаСПараметрамиЛицензирования = "") Экспорт @@ -143,29 +143,29 @@ Если НЕ ЗначениеЗаполнено(ПутьФайлаПолнойПоставки) И НЕ ЗначениеЗаполнено(ПутьФайлаПоставкиОбновления) Тогда - ВызватьИсключение "Не правильно заданы параметры процедуры <" + "СоздатьФайлыПоставки" +">"; + ВызватьИсключение "Не правильно заданы параметры процедуры <" + "СоздатьФайлыПоставки" + ">"; КонецЕсли; Если ЗначениеЗаполнено(ПутьФайлаПолнойПоставки) Тогда - Параметры.Добавить("-cffile "+ОбернутьВКавычки(ПутьФайлаПолнойПоставки)+" "); + Параметры.Добавить("-cffile "+ОбернутьВКавычки(ПутьФайлаПолнойПоставки) +" "); КонецЕсли; Если ЗначениеЗаполнено(ПутьФайлаПоставкиОбновления) И Не ДистрибутивыДляОбновления = Неопределено И ДистрибутивыДляОбновления.Количество() > 0 Тогда - Параметры.Добавить("-cfufile "+ОбернутьВКавычки(ПутьФайлаПоставкиОбновления)+" "); + Параметры.Добавить("-cfufile "+ОбернутьВКавычки(ПутьФайлаПоставкиОбновления) +" "); // Поддерживаются только файлы cf Для каждого ДистрибутивОбновления Из ДистрибутивыДляОбновления Цикл - Параметры.Добавить("-f "+ОбернутьВКавычки(ДистрибутивОбновления)+" "); + Параметры.Добавить("-f "+ОбернутьВКавычки(ДистрибутивОбновления) +" "); КонецЦикла; КонецЕсли; Если ЗначениеЗаполнено(ПутьФайлаСПараметрамиЛицензирования) Тогда - Параметры.Добавить("-digisign "+ОбернутьВКавычки(ПутьФайлаСПараметрамиЛицензирования)+" "); + Параметры.Добавить("-digisign "+ОбернутьВКавычки(ПутьФайлаСПараметрамиЛицензирования) +" "); КонецЕсли; ВыполнитьКоманду(Параметры); @@ -181,11 +181,11 @@ Параметры = СтандартныеПараметрыЗапускаКонфигуратора(); - Параметры.Добавить("/ConfigurationRepositoryF """+ПапкаХранилища+""""); - Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryF """+ПапкаХранилища + """"); + Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища + """"); Если Не ПустаяСтрока(ПарольХранилища) Тогда - Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища + """"); КонецЕсли; Параметры.Добавить("/ConfigurationRepositoryCreate "); @@ -223,11 +223,11 @@ Параметры = СтандартныеПараметрыЗапускаКонфигуратора(); - Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения+""""); - Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения + """"); + Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища + """"); Если Не ПустаяСтрока(ПарольХранилища) Тогда - Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища + """"); КонецЕсли; Параметры.Добавить("/ConfigurationRepositoryLock "); @@ -267,11 +267,11 @@ Параметры = СтандартныеПараметрыЗапускаКонфигуратора(); - Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения+""""); - Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения + """"); + Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища + """"); Если Не ПустаяСтрока(ПарольХранилища) Тогда - Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища + """"); КонецЕсли; Параметры.Добавить("/ConfigurationRepositoryUnlock "); @@ -314,11 +314,11 @@ Параметры = СтандартныеПараметрыЗапускаКонфигуратора(); - Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения+""""); - Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения + """"); + Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища + """"); Если Не ПустаяСтрока(ПарольХранилища) Тогда - Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища + """"); КонецЕсли; Параметры.Добавить("/ConfigurationRepositoryCommit "); @@ -370,11 +370,11 @@ Параметры = СтандартныеПараметрыЗапускаКонфигуратора(); - Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения+""""); - Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения + """"); + Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища + """"); Если Не ПустаяСтрока(ПарольХранилища) Тогда - Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища + """"); КонецЕсли; Параметры.Добавить("/ConfigurationRepositorySetLabel "); @@ -418,11 +418,11 @@ ) Экспорт Параметры = СтандартныеПараметрыЗапускаКонфигуратора(); - Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения+""""); - Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения + """"); + Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища + """"); Если Не ПустаяСтрока(ПарольХранилища) Тогда - Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища + """"); КонецЕсли; Параметры.Добавить("/ConfigurationRepositoryBindCfg "); @@ -472,24 +472,24 @@ Параметры = СтандартныеПараметрыЗапускаКонфигуратора(); - Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения+""""); - Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения + """"); + Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища + """"); Если Не ПустаяСтрока(ПарольХранилища) Тогда - Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища + """"); КонецЕсли; Параметры.Добавить("/ConfigurationRepositoryAddUser "); - Параметры.Добавить(СтрШаблон("-User ""%1""",НовыйПользователь)); + Параметры.Добавить(СтрШаблон("-User ""%1""", НовыйПользователь)); Если Не ПустаяСтрока(ПарольПользователя) Тогда - Параметры.Добавить(СтрШаблон("-Pwd ""%1""",ПарольПользователя)); + Параметры.Добавить(СтрШаблон("-Pwd ""%1""", ПарольПользователя)); КонецЕсли; Если Не ЗначениеЗаполнено(Право) ТОгда Право = ПраваПользователяХранилища.ТолькоЧтение; КонецЕсли; - Параметры.Добавить(СтрШаблон("-Rights %1",Право)); + Параметры.Добавить(СтрШаблон("-Rights %1", Право)); Если ВосстановитьУдаленного Тогда Параметры.Добавить("-RestoreDeletedUser"); @@ -521,18 +521,18 @@ Параметры = СтандартныеПараметрыЗапускаКонфигуратора(); - Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения+""""); - Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения + """"); + Параметры.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища + """"); Если Не ПустаяСтрока(ПарольХранилища) Тогда - Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища+""""); + Параметры.Добавить("/ConfigurationRepositoryP """+ПарольХранилища + """"); КонецЕсли; Параметры.Добавить("/ConfigurationRepositoryCopyUsers "); - Параметры.Добавить(СтрШаблон("-Path ""%1""",СтрокаСоединенияХранилищаКопии)); - Параметры.Добавить(СтрШаблон("-User ""%1""",ПользовательХранилищаКопии)); + Параметры.Добавить(СтрШаблон("-Path ""%1""", СтрокаСоединенияХранилищаКопии)); + Параметры.Добавить(СтрШаблон("-User ""%1""", ПользовательХранилищаКопии)); Если Не ПустаяСтрока(ПарольХранилищаКопии) Тогда - Параметры.Добавить(СтрШаблон("-Pwd ""%1""",ПарольХранилищаКопии)); + Параметры.Добавить(СтрШаблон("-Pwd ""%1""", ПарольХранилищаКопии)); КонецЕсли; Если ВосстановитьУдаленного Тогда @@ -792,7 +792,7 @@ Процедура ЗагрузитьКонфигурациюИзФайла(Знач ПутьФайлКонфигурации, Знач ОбновитьКонфигурациюИБ = Ложь) Экспорт ФайлКонфигурации = Новый Файл(ПутьФайлКонфигурации); - Ожидаем.Что(ФайлКонфигурации.Существует(), "Файл конфигурации <"+ПутьФайлКонфигурации+"> существует, а это не так").ЭтоИстина(); + Ожидаем.Что(ФайлКонфигурации.Существует(), "Файл конфигурации <"+ПутьФайлКонфигурации +"> существует, а это не так").ЭтоИстина(); Ожидаем.Что(ОбновитьКонфигурациюИБ = Ложь или ОбновитьКонфигурациюИБ = Истина, "Параметр ОбновитьКонфигурациюИБ должен быть или Истина или Ложь, а это не так").ЭтоИстина(); @@ -821,7 +821,7 @@ Процедура ЗагрузитьРасширениеИзФайла(Знач ПутьФайлРасширения, Знач ИмяРасширения, Знач ОбновитьКонфигурациюИБ = Ложь) Экспорт ФайлРасширения = Новый Файл(ПутьФайлРасширения); - Ожидаем.Что(ФайлРасширения.Существует(), "Файл расширения <"+ПутьФайлРасширения+"> существует, а это не так").ЭтоИстина(); + Ожидаем.Что(ФайлРасширения.Существует(), "Файл расширения <"+ПутьФайлРасширения +"> существует, а это не так").ЭтоИстина(); Ожидаем.Что(ОбновитьКонфигурациюИБ = Ложь или ОбновитьКонфигурациюИБ = Истина, "Параметр ОбновитьКонфигурациюИБ должен быть или Истина или Ложь, а это не так").ЭтоИстина(); @@ -1055,7 +1055,7 @@ КонецПроцедуры -Процедура СоздатьФайловуюБазу(Знач КаталогБазы, Знач ПутьКШаблону="", Знач ИмяБазыВСписке="") Экспорт +Процедура СоздатьФайловуюБазу(Знач КаталогБазы, Знач ПутьКШаблону = "", Знач ИмяБазыВСписке = "") Экспорт Лог.Отладка("Создаю файловую базу "+КаталогБазы); @@ -1064,7 +1064,7 @@ ПараметрыЗапуска = Новый Массив; ПараметрыЗапуска.Добавить("CREATEINFOBASE"); - ПараметрыЗапуска.Добавить("File="""+КаталогБазы+""""); + ПараметрыЗапуска.Добавить("File=""" + КаталогБазы + """"); Если мОчищатьФайлИнформации Тогда ПараметрыЗапуска.Добавить("/Out " + ОбернутьВКавычки(ФайлИнформации())); Иначе @@ -1072,17 +1072,17 @@ КонецЕсли; Если ИмяБазыВСписке <> "" Тогда - ПараметрыЗапуска.Добавить("/AddInList"""+ ИмяБазыВСписке + """"); + ПараметрыЗапуска.Добавить("/AddInList""" + ИмяБазыВСписке + """"); КонецЕсли; - Если ПутьКШаблону<> "" Тогда - ПараметрыЗапуска.Добавить("/UseTemplate"""+ ПутьКШаблону + """"); + Если ПутьКШаблону <> "" Тогда + ПараметрыЗапуска.Добавить("/UseTemplate""" + ПутьКШаблону + """"); КонецЕсли; Если НЕ ПустаяСтрока(мКонтекстКоманды.КодЯзыка) Тогда - ПараметрыЗапуска.Добавить("/L"+мКонтекстКоманды.КодЯзыка); + ПараметрыЗапуска.Добавить("/L" + мКонтекстКоманды.КодЯзыка); КонецЕсли; Если НЕ ПустаяСтрока(мКонтекстКоманды.КодЯзыкаСеанса) Тогда - ПараметрыЗапуска.Добавить("/VL"+мКонтекстКоманды.КодЯзыкаСеанса); + ПараметрыЗапуска.Добавить("/VL" + мКонтекстКоманды.КодЯзыкаСеанса); КонецЕсли; СохранитьТекстФайлаИнформации(); @@ -1220,7 +1220,7 @@ Процедура ЗагрузитьИнформационнуюБазу(ПутьВыгрузкиИБ) Экспорт ФайлВыгрузки = Новый Файл(ПутьВыгрузкиИБ); - Ожидаем.Что(ФайлВыгрузки.Существует(), "Файл выгрузки <"+ПутьВыгрузкиИБ+"> существует, а это не так").ЭтоИстина(); + Ожидаем.Что(ФайлВыгрузки.Существует(), "Файл выгрузки <"+ПутьВыгрузкиИБ +"> существует, а это не так").ЭтоИстина(); ПараметрыЗапуска = СтандартныеПараметрыЗапускаКонфигуратора(); @@ -1289,7 +1289,7 @@ УстановитьВывод(ПрочитатьФайлИнформации()); Если КодВозврата <> 0 и мИсключениеПриОшибкеВыполненияКоманды Тогда - Лог.Ошибка("Получен ненулевой код возврата "+КодВозврата+". Выполнение скрипта остановлено!"); + Лог.Ошибка("Получен ненулевой код возврата "+КодВозврата +". Выполнение скрипта остановлено!"); ВызватьИсключение ВыводКоманды(); Иначе Лог.Отладка("Код возврата равен 0"); @@ -1356,7 +1356,7 @@ ПараметрыСвязиСБазой = ПолучитьПараметрыЗапуска(); ПараметрыСвязиСБазой[0] = "ENTERPRISE"; Если Не ПустаяСтрока(КлючЗапуска) Тогда - ПараметрыСвязиСБазой.Добавить("/C"+КлючЗапуска); + ПараметрыСвязиСБазой.Добавить("/C" + КлючЗапуска); КонецЕсли; Если УправляемыйРежим = Истина Тогда ПараметрыСвязиСБазой.Вставить(2, "/RunModeManagedApplication"); @@ -1397,7 +1397,7 @@ Функция ПолучитьПутьКВерсииПлатформы(Знач ВерсияПлатформы, Знач Разрядность = Неопределено) Экспорт Если Лев(ВерсияПлатформы, 2) <> "8." Тогда - ВызватьИсключение "Неверная версия платформы <"+ВерсияПлатформы+">"; + ВызватьИсключение "Неверная версия платформы <"+ ВерсияПлатформы + ">"; КонецЕсли; ПутьКПредприятию = Платформа1С.ПутьКПредприятию(ВерсияПлатформы, Разрядность); @@ -1464,21 +1464,21 @@ КонецПроцедуры Функция ПутьКТонкомуКлиенту1С(Знач ПутьКПлатформе1С = "") Экспорт - Лог.Отладка("ПутьКТонкомуКлиенту1С: Путь платформы 1С <"+ПутьКПлатформе1С+">"); + Лог.Отладка("ПутьКТонкомуКлиенту1С: Путь платформы 1С <"+ПутьКПлатформе1С + ">"); Если ПутьКПлатформе1С = "" Тогда ПутьКПлатформе1С = ПутьКПлатформе1С(); - Лог.Отладка("ПутьКТонкомуКлиенту1С: вычислили Путь платформы 1С <"+ПутьКПлатформе1С+">"); + Лог.Отладка("ПутьКТонкомуКлиенту1С: вычислили Путь платформы 1С <"+ПутьКПлатформе1С + ">"); КонецЕсли; ФайлПриложения = Новый Файл(ПутьКПлатформе1С); Каталог = ФайлПриложения.Путь; - ИмяФайлаТонкогоКлиента = ?(ЭтоWindows=Истина, "1cv8c.exe", "1cv8c"); + ИмяФайлаТонкогоКлиента = ?(ЭтоWindows = Истина, "1cv8c.exe", "1cv8c"); ФайлПриложения = Новый Файл(ОбъединитьПути(Каталог, ИмяФайлаТонкогоКлиента)); Если Не ФайлПриложения.Существует() Тогда ВызватьИсключение "Не установлен тонкий клиент"; КонецЕсли; - Лог.Отладка("ПутьКТонкомуКлиенту1С: получили путь к тонкому клиенту 1С <"+ФайлПриложения.ПолноеИмя+">"); + Лог.Отладка("ПутьКТонкомуКлиенту1С: получили путь к тонкому клиенту 1С <"+ФайлПриложения.ПолноеИмя + ">"); Возврат ФайлПриложения.ПолноеИмя; КонецФункции @@ -1700,7 +1700,7 @@ Функция СтандартныеПараметрыЗапускаКонфигуратора() Лог.Отладка("КлючСоединенияСБазой "+КлючСоединенияСБазой()); - Лог.Отладка("ИмяПользователя <"+мКонтекстКоманды.ИмяПользователя+">"); + Лог.Отладка("ИмяПользователя <"+мКонтекстКоманды.ИмяПользователя + ">"); ПараметрыЗапуска = Новый Массив; ПараметрыЗапуска.Добавить("DESIGNER"); @@ -1725,10 +1725,10 @@ ПараметрыЗапуска.Добавить("/UC" + ОбернутьВКавычки(мКонтекстКоманды.КлючРазрешенияЗапуска)); КонецЕсли; Если НЕ ПустаяСтрока(мКонтекстКоманды.КодЯзыка) Тогда - ПараметрыЗапуска.Добавить("/L"+мКонтекстКоманды.КодЯзыка); + ПараметрыЗапуска.Добавить("/L" + мКонтекстКоманды.КодЯзыка); КонецЕсли; Если НЕ ПустаяСтрока(мКонтекстКоманды.КодЯзыкаСеанса) Тогда - ПараметрыЗапуска.Добавить("/VL"+мКонтекстКоманды.КодЯзыкаСеанса); + ПараметрыЗапуска.Добавить("/VL" + мКонтекстКоманды.КодЯзыкаСеанса); КонецЕсли; ПараметрыЗапуска.Добавить("/DisableStartupMessages"); ПараметрыЗапуска.Добавить("/DisableStartupDialogs"); @@ -1796,7 +1796,7 @@ СтрокаЗапуска = СтрокаЗапуска + " " + Параметр; - Если Лев(Параметр,2) <> "/P" и Лев(Параметр,25) <> "/ConfigurationRepositoryP" Тогда + Если Лев(Параметр, 2) <> "/P" и Лев(Параметр, 25) <> "/ConfigurationRepositoryP" Тогда СтрокаДляЛога = СтрокаДляЛога + " " + Параметр; КонецЕсли; @@ -1909,11 +1909,11 @@ КонецЕсли; Лог.Отладка("файл информации: - |"+Текст); + |" + Текст); Возврат Текст; КонецФункции -Функция УдалитьФайлИнформации() +Процедура УдалитьФайлИнформации() Файл = Новый Файл(ФайлИнформации()); Если Файл.Существует() Тогда @@ -1925,7 +1925,7 @@ КонецПопытки; КонецЕсли; -КонецФункции +КонецПроцедуры Процедура УстановитьВывод(Знач Сообщение) Если мОчищатьФайлИнформации @@ -1994,8 +1994,8 @@ Поз = Найти(ОстатокСтроки, Разделитель); Если Поз > 0 Тогда - Подстрока = Лев(ОстатокСтроки, Поз-1); - ОстатокСтроки = Сред(ОстатокСтроки, Поз+1); + Подстрока = Лев(ОстатокСтроки, Поз - 1); + ОстатокСтроки = Сред(ОстатокСтроки, Поз + 1); Иначе Подстрока = ОстатокСтроки; КонецЕсли; @@ -2083,7 +2083,7 @@ // ПарольХранилища - Строка - Пароль пользователь для подключения к хранилищу конфигурации // НомерВерсии - Число - Номер версии в истории в хранилище конфигурации, если 0 или меньше, то берется последняя версия. // -Процедура ПолучитьИзмененияКонфигурацииБазыДанныхИзХранилища(Знач СтрокаСоединения, Знач ПользовательХранилища, Знач ПарольХранилища="", Знач НомерВерсииХранилища = 0) Экспорт +Процедура ПолучитьИзмененияКонфигурацииБазыДанныхИзХранилища(Знач СтрокаСоединения, Знач ПользовательХранилища, Знач ПарольХранилища = "", Знач НомерВерсииХранилища = 0) Экспорт Сообщить("ВНИМАНИЕ: метод ""ПолучитьИзмененияКонфигурацииБазыДанныхИзХранилища()"" УСТАРЕЛ и скоро будет удален. Вместо него используйте метод ""ЗагрузитьКонфигурациюИзХранилища()""!" , СтатусСообщения.Внимание); @@ -2100,7 +2100,7 @@ // ПарольХранилища - Строка - Пароль пользователь для подключения к хранилищу конфигурации // НомерВерсии - Число - Номер версии в истории в хранилище конфигурации, если 0 или меньше, то берется последняя версия. // -Процедура ЗагрузитьКонфигурациюИзХранилища(Знач СтрокаСоединения, Знач ПользовательХранилища, Знач ПарольХранилища="", Знач НомерВерсииХранилища = 0) Экспорт +Процедура ЗагрузитьКонфигурациюИзХранилища(Знач СтрокаСоединения, Знач ПользовательХранилища, Знач ПарольХранилища = "", Знач НомерВерсииХранилища = 0) Экспорт ПараметрыСвязиСБазой = СформироватьПараметрыСвязиСБазойДляПолучениеВерсииКонфигурацииИзХранилища(СтрокаСоединения, ПользовательХранилища, ПарольХранилища, НомерВерсииХранилища); @@ -2117,7 +2117,7 @@ // ПарольХранилища - Строка - Пароль пользователь для подключения к хранилищу конфигурации // НомерВерсии - Число - Номер версии в истории в хранилище конфигурации, если 0 или меньше, то берется последняя версия. // -Процедура ОбновитьКонфигурациюБазыДанныхИзХранилища(Знач СтрокаСоединения, Знач ПользовательХранилища, Знач ПарольХранилища="", Знач НомерВерсииХранилища = 0) Экспорт +Процедура ОбновитьКонфигурациюБазыДанныхИзХранилища(Знач СтрокаСоединения, Знач ПользовательХранилища, Знач ПарольХранилища = "", Знач НомерВерсииХранилища = 0) Экспорт ПараметрыСвязиСБазой = СформироватьПараметрыСвязиСБазойДляПолучениеВерсииКонфигурацииИзХранилища(СтрокаСоединения, ПользовательХранилища, ПарольХранилища, НомерВерсииХранилища); @@ -2131,11 +2131,11 @@ ПараметрыСвязиСБазой = СтандартныеПараметрыЗапускаКонфигуратора(); - ПараметрыСвязиСБазой.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения+""""); - ПараметрыСвязиСБазой.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища+""""); + ПараметрыСвязиСБазой.Добавить("/ConfigurationRepositoryF """+СтрокаСоединения + """"); + ПараметрыСвязиСБазой.Добавить("/ConfigurationRepositoryN """+ПользовательХранилища + """"); Если Не ПустаяСтрока(ПарольХранилища) Тогда - ПараметрыСвязиСБазой.Добавить("/ConfigurationRepositoryP """+ПарольХранилища+""""); + ПараметрыСвязиСБазой.Добавить("/ConfigurationRepositoryP """+ПарольХранилища + """"); КонецЕсли; ПараметрыСвязиСБазой.Добавить("/ConfigurationRepositoryUpdateCfg"); @@ -2269,7 +2269,7 @@ ПутьКФайлуИзменений = ВременныеФайлы.НовоеИмяФайла(); ОбновлениеВозможно = Ложь; - ТекущийФайлВерсийМетаданных = Новый Файл(ОбъединитьПути(КаталогВыгрузки,"ConfigDumpInfo.xml")); + ТекущийФайлВерсийМетаданных = Новый Файл(ОбъединитьПути(КаталогВыгрузки, "ConfigDumpInfo.xml")); ФайлВерсийДляСравнения = Новый Файл(ПутьКФайлуВерсийДляСравнения); Если НЕ ТекущийФайлВерсийМетаданных.Существует() И ПустаяСтрока(ПутьКФайлуВерсийДляСравнения) Тогда @@ -2283,7 +2283,7 @@ Если ФайлИзменений.Существует() Тогда СтрокаПолныйДамп = ВРег("FullDump"); чтениеФайла = Новый ЧтениеТекста(ПутьКФайлуИзменений); - СтрокаВыгрузки = Лев(ВРег(чтениеФайла.ПрочитатьСтроку()),СтрДлина(СтрокаПолныйДамп)); + СтрокаВыгрузки = Лев(ВРег(чтениеФайла.ПрочитатьСтроку()), СтрДлина(СтрокаПолныйДамп)); Если Не ПустаяСтрока(СокрЛП(СтрокаВыгрузки)) Тогда