Исправлена ошибка с неверным определением платформы 1С #10 #7 #9 #3

Author: artbear

src/v8runner.os

@@ -504,34 +504,48 @@
 			Иначе
 				Для каждого Файл Из МассивФайлов Цикл
 					МассивКаталогов1С.Добавить(Файл);
+					Лог.Отладка("Нашел платформу 1С %1", Файл.Имя);
 				КонецЦикла;
 			КонецЕсли;
 		КонецЦикла;
 
-		НужныйПуть = Неопределено;
+		НужныйФайлПлатформы = Неопределено;
 
-		ИменаВерсий = Новый Массив;
-		Для Каждого ЭлементМассива Из МассивФайлов Цикл
-			правыйСимвол = Прав(ЭлементМассива.Имя,1);
+		МассивКаталоговВерсий = Новый Массив;
+		Для Каждого ЭлементМассива Из МассивКаталогов1С Цикл
+			правыйСимвол = Прав(ЭлементМассива.Имя, 1);
 			Если правыйСимвол < "0" или правыйСимвол > "9" Тогда
 				Продолжить;
 			КонецЕсли;
-			ИменаВерсий.Добавить(ЭлементМассива.Имя);
+			МассивКаталоговВерсий.Добавить(ЭлементМассива);
 		КонецЦикла;
 
-		Если ИменаВерсий.Количество() > 0 Тогда
-			МаксВерсия = ИменаВерсий[0];
-			Для Сч = 1 По ИменаВерсий.Количество()-1 Цикл
-				Если МаксВерсия < ИменаВерсий[Сч] Тогда
-					МаксВерсия = ИменаВерсий[Сч];
+		Если МассивКаталоговВерсий.Количество() > 0 Тогда
+			МаксВерсия = МассивКаталоговВерсий[0].Имя;
+			НужныйФайлПлатформы = Новый Файл(ОбъединитьПути(МассивКаталоговВерсий[0].ПолноеИмя, "bin", "1cv8.exe"));
+
+			Для Сч = 1 По МассивКаталоговВерсий.ВГраница() Цикл
+				ТекущаяВерсия = МассивКаталоговВерсий[Сч].Имя;
+				Если МаксВерсия < ТекущаяВерсия Тогда
+					ПутьБин = ОбъединитьПути(МассивКаталоговВерсий[Сч].ПолноеИмя, "bin");
+					ПроверяемыйФайл = Новый Файл(ОбъединитьПути(ПутьБин, "1cv8.exe"));
+					Если НЕ ПроверяемыйФайл.Существует() Тогда
+						Продолжить;
+					КонецЕсли;
+
+					МаксВерсия = ТекущаяВерсия;
+					НужныйФайлПлатформы = ПроверяемыйФайл;
 				КонецЕсли;
 			КонецЦикла;
 
-			НужныйПуть = Новый Файл(ОбъединитьПути(ВозможныйПуть, МаксВерсия, "bin\1cv8.exe"));
-			Лог.Отладка("Версия найдена: " + НужныйПуть.ПолноеИмя);
+			Если НужныйФайлПлатформы.Существует() Тогда
+				Лог.Отладка("Версия найдена: " + НужныйФайлПлатформы.ПолноеИмя);
+			Иначе
+				НужныйФайлПлатформы = Неопределено;
+			КонецЕсли;
 		КонецЕсли;
 
-		Если НужныйПуть = Неопределено Тогда
+		Если НужныйФайлПлатформы = Неопределено Тогда
 			ВызватьИсключение "Не найден путь к платформе 1С <"+ВерсияПлатформы+">";
 		КонецЕсли;
 
@@ -541,14 +555,14 @@
 		Если НЕ КаталогУстановки.Существует() Тогда
 			КаталогУстановки = Новый Файл("/opt/1C/v8.3/x86_64");
 		КонецЕсли;
-		НужныйПуть = Новый Файл(Строка(КаталогУстановки.ПолноеИмя) + "/" + "1cv8");
+		НужныйФайлПлатформы = Новый Файл(Строка(КаталогУстановки.ПолноеИмя) + "/" + "1cv8");
 	КонецЕсли;
 
-	Если Не НужныйПуть.Существует() Тогда
-		ВызватьИсключение "Ошибка определения версии платформы. Файл <"+НужныйПуть.ПолноеИмя+"> не существует";
+	Если Не НужныйФайлПлатформы.Существует() Тогда
+		ВызватьИсключение "Ошибка определения версии платформы. Файл <"+НужныйФайлПлатформы.ПолноеИмя+"> не существует";
 	КонецЕсли;
 
-	Возврат НужныйПуть.ПолноеИмя;
+	Возврат НужныйФайлПлатформы.ПолноеИмя;
 
 КонецФункции