Исправил несколько небольших проблемы, выявленных Сонаром

в т.ч. удалил неиспользуемые методы и параметры методов

Author: artbear

epf/bddRunner/bddRunner/Forms/ДеталиОшибки/Ext/Form/Module.bsl

@@ -43,74 +43,4 @@
 	Возврат ЗначениеИзСтрокиВнутр(Значение); 
 КонецФункции	 
 
-&НаКлиенте
-Функция ПреобразоватьЗначениеВМакет(Знач ПереданноеЗначение,МассивКлючей = Неопределено)
-	Значение = ПолучитьЗначениеИзСтроки(ПереданноеЗначение);
-	Возврат Ванесса.ПреобразоватьЗначениеВМакет(Значение,МассивКлючей,ТолькоТекстЯчеек); 
-КонецФункции	 
-
-&НаКлиенте
-Процедура ПоказатьСравнениеТабличныхДокументовВСлужебнойБазе(ТаблицаЭталонТабДок,ТаблицаТекущееЗначениеТабДок)
-	ФайлТолстогоКлиента = КаталогПрограммы() + "1cv8.exe";
-	Если Не Ванесса.ФайлСуществуетКомандаСистемы(ФайлТолстогоКлиента) Тогда
-		ТекстСообщения = "Не найден файл толстого клиента <%1>";
-		ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ФайлТолстогоКлиента); 
-		ВызватьИсключение ТекстСообщения;
-	КонецЕсли;	 
-	
-	КаталогTools = Ванесса.Объект.КаталогИнструментов + "\Tools\";
-	Если Не Ванесса.ФайлСуществуетКомандаСистемы(КаталогTools) Тогда
-		Ванесса.СоздатьКаталогКомандаСистемы(КаталогTools);
-	КонецЕсли;	 
-	
-	КаталогСлужебнойБазы = Ванесса.Объект.КаталогИнструментов + "\Tools\CompareFiles\";
-	Если Не Ванесса.ФайлСуществуетКомандаСистемы(КаталогСлужебнойБазы) Тогда
-		Ванесса.СоздатьКаталогКомандаСистемы(КаталогСлужебнойБазы);
-	КонецЕсли;	 
-	
-	Если Не Ванесса.ФайлСуществуетКомандаСистемы(КаталогСлужебнойБазы) Тогда
-		ТекстСообщения = "Не найден файл служебной базы. <%1>";
-		ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",КаталогСлужебнойБазы); 
-		ВызватьИсключение ТекстСообщения;
-	КонецЕсли;	 
-	
-	СписокКаталогов = Новый СписокЗначений;
-	СписокФайлов    = Новый СписокЗначений;
-	Ванесса.НайтиФайлыКомандаСистемы(КаталогСлужебнойБазы, СписокКаталогов, СписокФайлов, Истина);
-	
-	Если СписокФайлов.Количество() = 0 Тогда
-		//значит надо создать базу
-		ИмяКоманды = """" + КаталогПрограммы() + "1cv8"" CreateInfoBase File=""" + КаталогСлужебнойБазы + """";
-		СтатусВозврата = Ванесса.ВыполнитьКомандуОСБезПоказаЧерногоОкна(ИмяКоманды);
-		Если СтатусВозврата <> 0 Тогда
-			ТекстСообщения = "Не смог выполнить команду. <%1>";
-			ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяКоманды); 
-			ВызватьИсключение ТекстСообщения;
-		КонецЕсли;	 
-	КонецЕсли;	 
-	
-	ПутьКОбарботке = Ванесса.Объект.КаталогИнструментов + "\Lib\CompareFiles\CompareFiles.epf";
-	
-	
-	ИмяПервогоФайла = ПолучитьИмяВременногоФайла("mxl");
-	ТаблицаЭталонТабДок.Записать(ИмяПервогоФайла);
-	ИмяВторогоФайла = ПолучитьИмяВременногоФайла("mxl");
-	ТаблицаТекущееЗначениеТабДок.Записать(ИмяВторогоФайла);
-	
-	
-	ПараметрЗапускаСравнения = "CompareFiles;" + ИмяПервогоФайла + ";" + ИмяВторогоФайла;
-	ИмяКоманды = """" + КаталогПрограммы() + "1cv8"" ENTERPRISE /F""" + КаталогСлужебнойБазы + """ /Execute""" + ПутьКОбарботке + """ /C" + ПараметрЗапускаСравнения;
-	ЖдатьОкончания = 0;
-	СтатусВозврата = Ванесса.ВыполнитьКомандуОСБезПоказаЧерногоОкна(ИмяКоманды,ЖдатьОкончания);
-	Ванесса.Sleep(2);
-КонецПроцедуры 
-
-&НаКлиенте
-Процедура ПоказатьСравнениеФайлов(СравнениеФайлов,ИмяПервогоФайла,ИмяВторогоФайла);
-	СравнениеФайлов.ПервыйФайл = ИмяПервогоФайла;
-	СравнениеФайлов.ВторойФайл = ИмяВторогоФайла;
-	СравнениеФайлов.СпособСравнения = Вычислить("СпособСравненияФайлов.ТабличныйДокумент");
-	СравнениеФайлов.ПоказатьРазличия();
-КонецПроцедуры 
-
 #КонецОбласти

epf/bddRunner/bddRunner/Forms/УправляемаяФорма/Ext/Form/Module.bsl

@@ -4277,12 +4277,6 @@
 Функция ПолучитьПутьКFeatureReader() Экспорт
 	ПутьКФайлу = ДополнитьСлешВПуть(Объект.КаталогИнструментов) + "lib/featurereader/vbFeatureReader.epf";
 
-	// Если Не ФайлСуществуетКомандаСистемы(ПутьКФайлу, "ПолучитьПутьКFeatureReader") Тогда
-	// 	ТекстСообщения = "Файл <vbFeatureReader.epf> не найден в каталоге инструментов <%1>";
-	// 	ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1", СокрЛП(Объект.КаталогИнструментов));
-	// 	ВызватьИсключение ТекстСообщения;
-	// КонецЕсли;
-	
 	Возврат ПутьКФайлу;
 КонецФункции
 
@@ -5205,7 +5199,8 @@
 			Статус = ВыполнитьКомандуОСБезПоказаЧерногоОкна(
 				"If Exist """ + ИмяФайла + """ (exit /b 10) Else (exit /b 20)",
 				Истина, Ложь);//TODO проверить запуск
-			Возврат Статус = 10;
+			УспешныйКодВозврата = 10;
+			Возврат Статус = УспешныйКодВозврата;
 
 		КонецЕсли;
 
@@ -5502,7 +5497,7 @@
 	Путь = ПутьКПриложению + " -movemousetoactivecontrol mousespeed=" + СтрЗаменить(Скорость, Символы.НПП, "");
 	Если ЕстьПоддержкаАсинхронныхВызовов Тогда
 		Если ЖдатьЗавершения Тогда
-			ВыполнитьКомандуОСБезПоказаЧерногоОкна(Путь, Истина, Ложь)
+			ВыполнитьКомандуОСБезПоказаЧерногоОкна(Путь, Истина, Ложь);
 		Иначе
 			ВыполнитьКомандуОСБезПоказаЧерногоОкна(Путь, Ложь, Ложь);
 		КонецЕсли;
@@ -7210,7 +7205,8 @@
 		КонецЕсли;
 
 		НомерФайла = НомерФайла + 1;
-		Если НомерФайла % 10 = 0 Тогда
+		ДелительДляПоказаСтатистики = 10;
+		Если НомерФайла % ДелительДляПоказаСтатистики = 0 Тогда
 			Состояние("Файл №" + НомерФайла + " из " + ВсегоФайлов, Окр((НомерФайла / ВсегоФайлов)*100), СокрЛП(КаталогФич));
 		КонецЕсли;
 
@@ -8174,25 +8170,6 @@
 
 КонецФункции
 
-&НаКлиенте
-Функция ПроверитьСуществованиеКаталогаИнструментов(ИмяФайла, ДополнительныеПараметры, ПутьКОбработке)
-	Перем ПутьФайла;
-	Если ЕстьПоддержкаАсинхронныхВызовов Тогда
-		Возврат ПолучитьЗначениеПоРанееСобраннойИнформации(ДополнительныеПараметры, "КаталогИнструментов", "Существует");
-	Иначе
-		ПутьФайла = ПреобразоватьПутьСТочкамиКНормальномуПути(ИмяФайла);
-		ФайлПроверкаСуществования = Новый Файл(ПутьФайла);
-		Если НЕ ФайлПроверкаСуществования.Существует() Тогда
-			ТекстСообщения = "Не найден каталог инструментов: %1";
-			ТекстСообщения = СтрЗаменить(ТекстСообщения,"%1",ИмяФайла);
-			Сообщить(ТекстСообщения);
-			Возврат Ложь;
-		КонецЕсли;
-		
-	КонецЕсли;
-	Возврат Истина;
-КонецФункции
-
 &НаКлиенте
 Функция ПроверитьСуществованиеКаталогаБиблиотек(ДополнительныеПараметры, ПутьКОбработке)
 	Перем ПутьФайла;
@@ -8268,8 +8245,8 @@
 Процедура ДобавитьМассивСостоянийФайлов(Массив)
 	Перем ПутьФайла, ПутьКОбработке;
 
-	// ДобавитьДействиеВМассивАсинхроныхСобытий(Массив, ПреобразоватьПутьСТочкамиКНормальномуПути(Объект.КаталогИнструментов), "КаталогИнструментов", "РаботаСФайлом");
-	// ДобавитьДействиеВМассивАсинхроныхСобытий(Массив, ДополнитьСлешВПуть(ПреобразоватьПутьСТочкамиКНормальномуПути(Объект.КаталогИнструментов)) + "lib/featurereader/vbFeatureReader.epf", "vbFeatureReader", "РаботаСФайлом");
+	//TODO удалить? ДобавитьДействиеВМассивАсинхроныхСобытий(Массив, ПреобразоватьПутьСТочкамиКНормальномуПути(Объект.КаталогИнструментов), "КаталогИнструментов", "РаботаСФайлом");
+	//TODO удалить? ДобавитьДействиеВМассивАсинхроныхСобытий(Массив, ДополнитьСлешВПуть(ПреобразоватьПутьСТочкамиКНормальномуПути(Объект.КаталогИнструментов)) + "lib/featurereader/vbFeatureReader.epf", "vbFeatureReader", "РаботаСФайлом");
 	ДобавитьДействиеВМассивАсинхроныхСобытий(Массив, ПреобразоватьПутьСТочкамиКНормальномуПути(Объект.КаталогOutputAllure), "КаталогOutputAllure", "РаботаСФайлом");
 	ДобавитьДействиеВМассивАсинхроныхСобытий(Массив, ПреобразоватьПутьСТочкамиКНормальномуПути(Объект.КаталогOutputjUnit), "КаталогOutputjUnit", "РаботаСФайлом");
 	ДобавитьДействиеВМассивАсинхроныхСобытий(Массив, ПреобразоватьПутьСТочкамиКНормальномуПути(Объект.КаталогOutputCucumberJson), "КаталогOutputCucumberJson", "РаботаСФайлом");
@@ -8309,7 +8286,7 @@
 		ОбработатьАсинхроноСледующийФайл(ДополнительныеПараметры);
 	Иначе
 		Файл = НайденныеФайлы[СтруктураФайла.ИДФайлаДляОбработки].Файл;
-		Отладка("ПолучитьВерсиюФайловАссинхронно " + Файл.ПолноеИмя);// Файл = Новый Файл(НайденныеФайлы[СтруктураФайла.ИДФайлаДляОбработки].Файл.ПолноеИмя);
+		Отладка("ПолучитьВерсиюФайловАссинхронно " + Файл.ПолноеИмя);
 		ОписаниеОповещения = Вычислить("Новый ОписаниеОповещения(""ОбработчикНачатьПолучитьВремяИзмененияФайлаМассив"", ЭтаФорма, ДополнительныеПараметры)");
 		Выполнить("Файл.НачатьПолучениеВремениИзменения(ОписаниеОповещения)");
 	КонецЕсли;
@@ -8434,11 +8411,6 @@
 		Возврат;
 	КонецЕсли;
 
-	// Если НЕ ПроверитьСуществованиеКаталогаИнструментов(КаталогИнструментов, ДополнительныеПараметры, ПутьКОбработке) Тогда
-	// 	СделатьСообщение("Не заполнен служебный параметр КаталогИнструментов.");
-	// 	Возврат;
-	// КонецЕсли;
-	
 	ПарсерФич = "";
 	СписокИсключения = ВычестьТеги( Объект.СписокТеговИсключение, Объект.СписокТеговОтбор);
 
@@ -13902,7 +13874,7 @@
 КонецПроцедуры
 
 &НаКлиенте
-Процедура СоздатьФайлыОбработок(БылиОшибки, СтруктураОписанияEpf, ДополнительныеПараметры, КаталогДляВременныхФайлов)
+Процедура СоздатьФайлыОбработок(СтруктураОписанияEpf, КаталогДляВременныхФайлов)
 
 	ГенерироватьУФ = Объект.ГенерироватьУФ;
 	КаталогИнструментов = Объект.КаталогИнструментов;
@@ -14071,12 +14043,10 @@
 			ИмяФайлаФичи, СоздаватьЗакоментированныйКодДляПереиспользуемыхПроцедур, ШагСтрокДляМодуля, ГенерироватьУФ,
 			Объект.СоздаватьОбластиПриГенерацииКода);
 
-		БылиОшибки = Ложь;
-		
 		Если Объект.ВыводитьТекстМодуляВместоПерегенерацииEPF Тогда
 			ВывестиТекстМодуляНаЭкран(СтруктураОписанияEpf);
 		Иначе
-			СоздатьФайлыОбработок(БылиОшибки, СтруктураОписанияEpf, ДополнительныеПараметры, КаталогДляВременныхФайлов);
+			СоздатьФайлыОбработок(СтруктураОписанияEpf, КаталогДляВременныхФайлов);
 		КонецЕсли;
 
 	КонецЦикла;
@@ -14087,7 +14057,7 @@
 КонецПроцедуры
 
 &НаСервереБезКонтекста
-Функция СоздатьТекстМодуляНаСервере(Шаги, СтруктураОписанияEpf, ДвДанныеvbFeatureReader, 
+Процедура СоздатьТекстМодуляНаСервере(Шаги, СтруктураОписанияEpf, ДвДанныеvbFeatureReader, 
 	ИмяФайлаФичи, СоздаватьЗакоментированныйКодДляПереиспользуемыхПроцедур, ШагСтрокДляМодуля, ГенерироватьУФ,
 	СоздаватьОбластиПриГенерацииКода)
 
@@ -14111,7 +14081,7 @@
 		СоздаватьЗакоментированныйКодДляПереиспользуемыхПроцедур, ГенерироватьУФ, Истина);
 	КонецЦикла;
 
-КонецФункции
+КонецПроцедуры
 
 &НаСервереБезКонтекста
 Функция ПолучитьТекстМодуляИзСтруктураОписанияEpfСервер(ТекстМодуляВнутр)