fix: Замечания Sonar.

Author: Artem Kuznetsov

src/cmd/Классы/КомандаВыполнитьПакет.os

@@ -133,9 +133,10 @@
 
 	СценарииВФайле = Новый Массив();
 
-	Если ТипЗнч(РезультатЧтения) = Тип("Соответствие") Тогда
+	ТипРезультатаЧтения = ТипЗнч(РезультатЧтения);
+	Если ТипРезультатаЧтения = Тип("Соответствие") Тогда
 		СценарииВФайле.Добавить(РезультатЧтения);
-	ИначеЕсли ТипЗнч(РезультатЧтения) = Тип("Массив") Тогда
+	ИначеЕсли ТипРезультатаЧтения = Тип("Массив") Тогда
 		СценарииВФайле = РезультатЧтения;
 	Иначе
 		ТекстОшибки = СтрШаблон("Некорректная структура файла сценариев ""%1"" - %2,
@@ -172,17 +173,15 @@
 
 	ОбщиеПараметры = ОписаниеСценария.Сценарий["params"];
 
-	Если НЕ (ТипЗнч(ОбщиеПараметры) = Тип("Структура")
-		ИЛИ ТипЗнч(ОбщиеПараметры) = Тип("Соответствие")) Тогда
+	Если НЕ ТипЗнч(ОбщиеПараметры) = Тип("Соответствие") Тогда
 		ОбщиеПараметры = Новый Соответствие();
 	Иначе
 		Лог.Отладка("Прочитаны общие параметры");
 	КонецЕсли;
 
 	ШагиСценария = ОписаниеСценария.Сценарий["stages"];
 
-	Если НЕ (ТипЗнч(ШагиСценария) = Тип("Структура")
-		ИЛИ ТипЗнч(ШагиСценария) = Тип("Соответствие")) Тогда
+	Если НЕ ТипЗнч(ШагиСценария) = Тип("Соответствие") Тогда
 		ТекстОшибки = СтрШаблон("Не найдены шаги ""stages"" сценария (%1) из файла ""%2""",
 		                        ОписаниеСценария.НомерСценария,
 		                        ОписаниеСценария.ИмяФайла);
@@ -218,13 +217,13 @@
 
 	Если НЕ ТипЗнч(ПараметрыШага) = Тип("Соответствие") Тогда
 		ПараметрыШага = Новый Соответствие();
-	Иначе
-		Лог.Отладка("Прочитаны параметры шага ""%1""", ОписаниеШага);
 	КонецЕсли;
 
 	СкопироватьСоответствие(ЗначенияПараметров, ОбщиеПараметры);
 	СкопироватьСоответствие(ЗначенияПараметров, ПараметрыШага);
 
+	Лог.Отладка("Прочитаны параметры шага ""%1""", ОписаниеШага);
+
 	КомандаСтрокой = Шаг["command"];
 
 	Если НЕ ТипЗнч(КомандаСтрокой) = Тип("Строка") Тогда

src/cmd/Классы/КомандаРазбитьФайлНаЧасти.os

@@ -36,7 +36,8 @@
 	       .ТСтрока()
 	       .ВОкружении("CPDB_FILE_SPLIT_ARCH");
 
-	Команда.Опция("l list", "", "имя файла, списка томов архива (не обязательный, по умолчанию <имя исходного файла>.split)")
+	Команда.Опция("l list", "", "имя файла, списка томов архива
+	                            | (не обязательный, по умолчанию <имя исходного файла>.split)")
 	       .ТСтрока()
 	       .ВОкружении("CPDB_FILE_SPLIT_LIST");
 
@@ -74,12 +75,12 @@
 	РазбитьНаТома    = ЧтениеОпций.ЗначениеОпции("vol-size");
 	СтепеньСжатия    = ЧтениеОпций.ЗначениеОпции("compress-level");
 
-	КоличествоОтправляемыхФайлов = РаботаСФайлами.ЗапаковатьВАрхив(ПутьКФайлу,
-	                                                               ИмяАрхива,
-	                                                               ИмяСпискаФайлов,
-	                                                               РазбитьНаТома,
-	                                                               СтепеньСжатия,
-	                                                               УдалитьИсточник);
+	РаботаСФайлами.ЗапаковатьВАрхив(ПутьКФайлу,
+	                                ИмяАрхива,
+	                                ИмяСпискаФайлов,
+	                                РазбитьНаТома,
+	                                СтепеньСжатия,
+	                                УдалитьИсточник);
 
 КонецПроцедуры // ВыполнитьКоманду()
 

src/cmd/Классы/ЧтениеОпцийКоманды.os

@@ -76,10 +76,11 @@
 			ВызватьИсключение ТекстОшибки;
 		КонецПопытки;
 
-		Если НЕ ТипЗнч(ПараметрыИзФайла) = Тип("Соответствие") Тогда
+		ТипПараметров = ТипЗнч(ПараметрыИзФайла);
+		Если НЕ ТипПараметров = Тип("Соответствие") Тогда
 			ТекстОшибки = СтрШаблон("Некорректная структура файла параметров ""%1"" - %2, ожидалось ""Соответствие"".",
 			                        ТекФайл,
-			                        ТипЗнч(ПараметрыИзФайла));
+			                        ТипПараметров);
 			ВызватьИсключение ТекстОшибки;
 		КонецЕсли;
 
@@ -156,8 +157,10 @@
 	ЭтоОпция = Лев(Параметр, 1) = "-";
 	Если ЭтоОпция Тогда
 		ОписаниеПараметра = ПроверяемаяКоманда.ОпцияИзИндекса(Параметр);
+		Значение = ПроверяемаяКоманда.ЗначениеОпции(Параметр);
 	Иначе
 		ОписаниеПараметра = ПроверяемаяКоманда.АргументИзИндекса(Параметр);
+		Значение = ПроверяемаяКоманда.ЗначениеАргумента(Параметр);
 	КонецЕсли;
 
 	ПроверятьЗаполнение = Истина;
@@ -166,15 +169,11 @@
 		ПроверятьЗаполнение = Ложь;
 	КонецЕсли;
 
-	Если ЭтоОпция Тогда
-		Значение = ПроверяемаяКоманда.ЗначениеОпции(Параметр);
-	Иначе
-		Значение = ПроверяемаяКоманда.ЗначениеАргумента(Параметр);
-	КонецЕсли;
-
 	Если Не ЗначениеЗаполнено(Значение) Тогда
+		КоличествоДефисов = 2;
 		Для Каждого ИмяСинонима Из ОписаниеПараметра.НаименованияПараметров Цикл
-			Значение = ОпцииИзФайлов[?(Лев(ИмяСинонима, 2) = "--", Сред(ИмяСинонима, 3), ИмяСинонима)];
+			ИмяОпции = ?(Лев(ИмяСинонима, КоличествоДефисов) = "--", Сред(ИмяСинонима, КоличествоДефисов + 1), ИмяСинонима);
+			Значение = ОпцииИзФайлов[ИмяОпции];
 			Если ЗначениеЗаполнено(Значение) Тогда
 				Прервать;
 			КонецЕсли;

src/core/Классы/ПодключениеКСУБД.os

@@ -72,14 +72,16 @@
 		Результат = Ложь;
 	КонецЕсли;
 
+	ВариантыСообщения = ВариантыСообщенияОСуществованииБД();
+
 	Если НЕ ЗначениеЗаполнено(ВариантСообщенияОСуществовании) Тогда
-		ВариантСообщенияОСуществовании = ВариантыСообщенияОСуществованииБД().НеСообщать;
+		ВариантСообщенияОСуществовании = ВариантыСообщения.НеСообщать;
 	КонецЕсли;
 
-	Если ВариантСообщенияОСуществовании = ВариантыСообщенияОСуществованииБД().СообщатьОСуществовании
+	Если ВариантСообщенияОСуществовании = ВариантыСообщения.СообщатьОСуществовании
 	   И Результат Тогда
 		Лог.Предупреждение("База ""%1"" уже существует!", База);
-	ИначеЕсли ВариантСообщенияОСуществовании = ВариантыСообщенияОСуществованииБД().СообщатьОбОтсутствии
+	ИначеЕсли ВариантСообщенияОСуществовании = ВариантыСообщения.СообщатьОбОтсутствии
 	        И НЕ Результат Тогда
 		Лог.Предупреждение("База ""%1"" не существует!", База);
 	ИначеЕсли Результат Тогда
@@ -231,10 +233,6 @@
 //
 Функция УстановитьМодельВосстановления(База, МодельВосстановления = Неопределено, ОписаниеРезультата = "") Экспорт
 
-	Если НЕ ЗначениеЗаполнено(МодельВосстановления) Тогда
-		Возврат Истина;
-	КонецЕсли;
-
 	Если Найти("FULL,SIMPLE,BULK_LOGGED", ВРег(МодельВосстановления)) = 0 Тогда
 		Лог.Предупреждение("Указана некорректная модель восстановления ""%1""
 		                   | (возможные значения: ""FULL"", ""SIMPLE"", ""BULK_LOGGED"")!",
@@ -550,14 +548,17 @@
 //
 Функция ПолучитьЛогическоеИмяФайлаВРезервнойКопии(Знач ПутьКРезервнойКопии, Знач ТипФайла = Неопределено) Экспорт
 
+	ТипыФайлов = ТипыФайловБД();
+	ТипыФайловСокр = ТипыФайловБД(Истина);
+
 	Если НЕ ЗначениеЗаполнено(ТипФайла) Тогда
-		ТипФайла = ТипыФайловБД(Истина).Данные;
+		ТипФайла = ТипыФайловСокр.Данные;
 	КонецЕсли;
 
-	Если ТипФайла = ТипыФайловБД().Данные ИЛИ ТипФайла = ТипыФайловБД(Истина).Данные Тогда
-		ТипФайла = ТипыФайловБД(Истина).Данные;
-	ИначеЕсли ТипФайла = ТипыФайловБД().Журнал ИЛИ ТипФайла = ТипыФайловБД(Истина).Журнал Тогда
-		ТипФайла = ТипыФайловБД(Истина).Журнал;
+	Если ТипФайла = ТипыФайлов.Данные ИЛИ ТипФайла = ТипыФайловСокр.Данные Тогда
+		ТипФайла = ТипыФайловСокр.Данные;
+	ИначеЕсли ТипФайла = ТипыФайлов.Журнал ИЛИ ТипФайла = ТипыФайловСокр.Журнал Тогда
+		ТипФайла = ТипыФайловСокр.Журнал;
 	Иначе
 		Возврат Неопределено;
 	КонецЕсли;
@@ -606,14 +607,17 @@
 //
 Функция ПолучитьЛогическоеИмяФайлаВБазе(База, Знач ТипФайла = Неопределено) Экспорт
 
+	ТипыФайлов = ТипыФайловБД();
+	ТипыФайловСокр = ТипыФайловБД(Истина);
+
 	Если НЕ ЗначениеЗаполнено(ТипФайла) Тогда
-		ТипФайла = ТипыФайловБД().Данные;
+		ТипФайла = ТипыФайлов.Данные;
 	КонецЕсли;
 
-	Если ТипФайла = ТипыФайловБД().Данные ИЛИ ТипФайла = ТипыФайловБД(Истина).Данные Тогда
-		ТипФайла = ТипыФайловБД().Данные;
-	ИначеЕсли ТипФайла = ТипыФайловБД().Журнал ИЛИ ТипФайла = ТипыФайловБД(Истина).Журнал Тогда
-		ТипФайла = ТипыФайловБД().Журнал;
+	Если ТипФайла = ТипыФайлов.Данные ИЛИ ТипФайла = ТипыФайловСокр.Данные Тогда
+		ТипФайла = ТипыФайлов.Данные;
+	ИначеЕсли ТипФайла = ТипыФайлов.Журнал ИЛИ ТипФайла = ТипыФайловСокр.Журнал Тогда
+		ТипФайла = ТипыФайлов.Журнал;
 	Иначе
 		Возврат Неопределено;
 	КонецЕсли;
@@ -697,14 +701,17 @@
 //
 Функция РасположениеФайловБазПоУмолчанию(Знач ТипФайла = Неопределено) Экспорт
 
+	ТипыФайлов = ТипыФайловБД();
+	ТипыФайловСокр = ТипыФайловБД(Истина);
+
 	Если НЕ ЗначениеЗаполнено(ТипФайла) Тогда
-		ТипФайла = ТипыФайловБД().Данные;
+		ТипФайла = ТипыФайлов.Данные;
 	КонецЕсли;
 
-	Если ТипФайла = ТипыФайловБД().Данные ИЛИ ТипФайла = ТипыФайловБД(Истина).Данные Тогда
-		ТипФайла = ТипыФайловБД().Данные;
-	ИначеЕсли ТипФайла = ТипыФайловБД().Журнал ИЛИ ТипФайла = ТипыФайловБД(Истина).Журнал Тогда
-		ТипФайла = ТипыФайловБД().Журнал;
+	Если ТипФайла = ТипыФайлов.Данные ИЛИ ТипФайла = ТипыФайловСокр.Данные Тогда
+		ТипФайла = ТипыФайлов.Данные;
+	ИначеЕсли ТипФайла = ТипыФайлов.Журнал ИЛИ ТипФайла = ТипыФайловСокр.Журнал Тогда
+		ТипФайла = ТипыФайлов.Журнал;
 	Иначе
 		Возврат Неопределено;
 	КонецЕсли;
@@ -784,12 +791,13 @@
 	СоответствиеВерсий = Новый Соответствие();
 
 	Для Каждого ТекВерсия Из МассивВерсий Цикл
-		МассивВерсии = СтрРазделить(ТекВерсия, "-");
+		ЧастиВерсии = СтрРазделить(ТекВерсия, "-");
 
-		Если МассивВерсии.Количество() = 1 Тогда
-			СоответствиеВерсий.Вставить(МассивВерсии[0], Число(МассивВерсии[0]));
-		ИначеЕсли МассивВерсии.Количество() > 1 Тогда
-			СоответствиеВерсий.Вставить(МассивВерсии[0], Число(МассивВерсии[1]));
+		КоличествоЧастей = ЧастиВерсии.Количество();
+		Если КоличествоЧастей = 1 Тогда
+			СоответствиеВерсий.Вставить(ЧастиВерсии[0], Число(ЧастиВерсии[0]));
+		ИначеЕсли КоличествоЧастей > 1 Тогда
+			СоответствиеВерсий.Вставить(ЧастиВерсии[0], Число(ЧастиВерсии[1]));
 		Иначе
 			Возврат Неопределено;
 		КонецЕсли;	
@@ -834,7 +842,7 @@
 Функция ДоступностьФункционалаСУБД(Знач Функционал, ОписаниеВерсии = Неопределено) Экспорт
 
 	МинВерсияАвторизации = 10;
-	МинВерсияКомпресии = 13;
+	МинВерсияКомпрессии = 13;
 
 	СтруктураФункционала = Новый Структура("Компрессия, ИзменениеАвторизации", Ложь, Ложь);
 
@@ -850,7 +858,7 @@
 		СтруктураФункционала.ИзменениеАвторизации = Истина;
 	КонецЕсли;
 
-	Если ОписаниеВерсии.ВерсияМакс >= МинВерсияКомпресии ИЛИ ОписаниеВерсии.Корп Тогда
+	Если ОписаниеВерсии.ВерсияМакс >= МинВерсияКомпрессии ИЛИ ОписаниеВерсии.Корп Тогда
 		СтруктураФункционала.Компрессия = Истина;
 	КонецЕсли;