From 26ff383ada9e1b2163c2e758a708cad301944031 Mon Sep 17 00:00:00 2001 From: Artur Ivanov Date: Thu, 5 Jan 2017 23:00:17 +0300 Subject: [PATCH 1/3] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=B8?= =?UTF-8?q?=D0=BB=20=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D1=83=20=D0=BF=D0=BE?= =?UTF-8?q?=D0=B8=D1=81=D0=BA=D0=B0=20=D0=B2=D0=B5=D1=80=D1=81=D0=B8=D0=B9?= =?UTF-8?q?=20=D0=BF=D0=BB=D0=B0=D1=82=D1=84=D0=BE=D1=80=D0=BC=D1=8B=20?= =?UTF-8?q?=D0=BF=D1=80=D0=B8=20=D0=BD=D0=B0=D0=BB=D0=B8=D1=87=D0=B8=D0=B8?= =?UTF-8?q?=20=D0=BD=D0=B5=D1=81=D0=BA=D0=BE=D0=BB=D1=8C=D0=BA=D0=B8=D1=85?= =?UTF-8?q?=20=D0=B2=D0=BE=D0=B7=D0=BC=D0=BE=D0=B6=D0=BD=D1=8B=D1=85=20?= =?UTF-8?q?=D0=BF=D1=83=D1=82=D0=B5=D0=B9=20=D0=BF=D0=BE=D0=B8=D1=81=D0=BA?= =?UTF-8?q?=D0=B0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/v8runner.os | 34 ++++++++++++++++++++++++++++------ 1 file changed, 28 insertions(+), 6 deletions(-) diff --git a/src/v8runner.os b/src/v8runner.os index f73b3db..ee6c473 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -490,13 +490,29 @@ КонецЕсли; МассивКаталогов1С = Новый Массив; + + МассивФайлов = Новый Массив; Для Каждого ВозможныйПуть Из КаталогиУстановкиПлатформы Цикл Лог.Отладка("Выполняю попытку поиска версии в каталоге " + ВозможныйПуть); - МассивФайлов = НайтиФайлы(ВозможныйПуть, ВерсияПлатформы+"*"); + РезультатПоиска = НайтиФайлы(ВозможныйПуть, ВерсияПлатформы+"*"); + //Если в данном каталоге установки платформы нет каталого с искомой версией не делать ничего, перейти к следующему возможному пути + //Если есть каталоги с искомой версией тогда добавить их в общий массив результатов поиска + Если НЕ РезультатПоиска.Количество() Тогда + Продолжить; + Иначе + + Для Каждого Каталог ИЗ РезультатПоиска Цикл + МассивФайлов.Добавить(Каталог); + КонецЦикла; + //Зафиксировать возможный путь, как подтвержденный путь где есть версии по заданной маске. + ПодтвержденныйПуть = ВозможныйПуть; + КонецЕсли; + Если МассивФайлов.Количество() = 0 Тогда Лог.Отладка("Не найдено ни одного каталога с версией."); + Продолжить; КонецЕсли; Если МассивКаталогов1С = Неопределено Тогда @@ -522,12 +538,14 @@ Если ИменаВерсий.Количество() > 0 Тогда МаксВерсия = ИменаВерсий[0]; Для Сч = 1 По ИменаВерсий.Количество()-1 Цикл - Если МаксВерсия < ИменаВерсий[Сч] Тогда + //Прежде чем проверять версию на максимум проверить ее на наличие исполняемого файла толстого клиента 1cv8.exe + НужныйПуть = Новый Файл(ОбъединитьПути(ПодтвержденныйПуть, ИменаВерсий[Сч], "bin\1cv8.exe")); + Если НужныйПуть <> Неопределено И МаксВерсия < ИменаВерсий[Сч] Тогда МаксВерсия = ИменаВерсий[Сч]; КонецЕсли; КонецЦикла; - НужныйПуть = Новый Файл(ОбъединитьПути(ВозможныйПуть, МаксВерсия, "bin\1cv8.exe")); + НужныйПуть = Новый Файл(ОбъединитьПути(ПодтвержденныйПуть, МаксВерсия, "bin\1cv8.exe")); Лог.Отладка("Версия найдена: " + НужныйПуть.ПолноеИмя); КонецЕсли; @@ -610,10 +628,10 @@ КонецПроцедуры Функция ПутьКТонкомуКлиенту1С(Знач ПутьКПлатформе1С = "") Экспорт - Лог.Отладка("ПутьКТонкомуКлиенту1С: Путь платформы 1С <"+ПутьКПлатформе1С+">"); + Сообщить("ПутьКТонкомуКлиенту1С: Путь платформы 1С <"+ПутьКПлатформе1С+">"); Если ПутьКПлатформе1С = "" Тогда ПутьКПлатформе1С = ПутьКПлатформе1С(); - Лог.Отладка("ПутьКТонкомуКлиенту1С: вычислили Путь платформы 1С <"+ПутьКПлатформе1С+">"); + Сообщить("ПутьКТонкомуКлиенту1С: вычислили Путь платформы 1С <"+ПутьКПлатформе1С+">"); КонецЕсли; ФайлПриложения = Новый Файл(ПутьКПлатформе1С); @@ -624,7 +642,7 @@ ВызватьИсключение "Не установлен тонкий клиент"; КонецЕсли; - Лог.Отладка("ПутьКТонкомуКлиенту1С: получили путь к тонкому клиенту 1С <"+ФайлПриложения.ПолноеИмя+">"); + Сообщить("ПутьКТонкомуКлиенту1С: получили путь к тонкому клиенту 1С <"+ФайлПриложения.ПолноеИмя+">"); Возврат ФайлПриложения.ПолноеИмя; КонецФункции @@ -660,6 +678,10 @@ ПользовательскийКонфиг = ОбъединитьПути(КаталогТекущегоПользователя, СуффиксРасположения); ДополнитьМассивРасположенийИзКонфигурационногоФайла(ПользовательскийКонфиг, МассивПутей); + + Для каждого Эл Из МассивПутей Цикл + Лог.Отладка(Эл); + КонецЦикла; Возврат МассивПутей; From 8da05ec4bbed767087965e69408006ae175a22dc Mon Sep 17 00:00:00 2001 From: Artur Ivanov Date: Fri, 6 Jan 2017 00:34:38 +0300 Subject: [PATCH 2/3] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=B8?= =?UTF-8?q?=D0=BB=20=D0=B7=D0=B0=D0=BC=D0=B5=D1=87=D0=B0=D0=BD=D0=B8=D1=8F?= =?UTF-8?q?=20=D0=BF=D0=BE=20code=20review?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/v8runner.os | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/v8runner.os b/src/v8runner.os index ee6c473..48317bf 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -628,10 +628,10 @@ КонецПроцедуры Функция ПутьКТонкомуКлиенту1С(Знач ПутьКПлатформе1С = "") Экспорт - Сообщить("ПутьКТонкомуКлиенту1С: Путь платформы 1С <"+ПутьКПлатформе1С+">"); + Лог.Отладка("ПутьКТонкомуКлиенту1С: Путь платформы 1С <"+ПутьКПлатформе1С+">"); Если ПутьКПлатформе1С = "" Тогда ПутьКПлатформе1С = ПутьКПлатформе1С(); - Сообщить("ПутьКТонкомуКлиенту1С: вычислили Путь платформы 1С <"+ПутьКПлатформе1С+">"); + Лог.Отладка("ПутьКТонкомуКлиенту1С: вычислили Путь платформы 1С <"+ПутьКПлатформе1С+">"); КонецЕсли; ФайлПриложения = Новый Файл(ПутьКПлатформе1С); @@ -678,10 +678,6 @@ ПользовательскийКонфиг = ОбъединитьПути(КаталогТекущегоПользователя, СуффиксРасположения); ДополнитьМассивРасположенийИзКонфигурационногоФайла(ПользовательскийКонфиг, МассивПутей); - - Для каждого Эл Из МассивПутей Цикл - Лог.Отладка(Эл); - КонецЦикла; Возврат МассивПутей; From 4fdaba020e718ecdc0279c94432d12e3b07fce00 Mon Sep 17 00:00:00 2001 From: Artur Ivanov Date: Fri, 6 Jan 2017 10:05:21 +0300 Subject: [PATCH 3/3] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=B8?= =?UTF-8?q?=D0=BB=20=D0=B7=D0=B0=D0=BC=D0=B5=D1=87=D0=B0=D0=BD=D0=B8=D0=B5?= =?UTF-8?q?=20=D0=BF=D0=BE=20=D0=BE=D1=82=D0=BB=D0=B0=D0=B4=D0=BA=D0=B5?= 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 48317bf..6cd599a 100644 --- a/src/v8runner.os +++ b/src/v8runner.os @@ -642,7 +642,7 @@ ВызватьИсключение "Не установлен тонкий клиент"; КонецЕсли; - Сообщить("ПутьКТонкомуКлиенту1С: получили путь к тонкому клиенту 1С <"+ФайлПриложения.ПолноеИмя+">"); + Лог.Отладка("ПутьКТонкомуКлиенту1С: получили путь к тонкому клиенту 1С <"+ФайлПриложения.ПолноеИмя+">"); Возврат ФайлПриложения.ПолноеИмя; КонецФункции