Корректировка параметров команды для работы с типом перечисление

Author: khorevaa

src/core/Классы/cmd/ПараметрКоманды.os

@@ -8,7 +8,7 @@
 
 // Подробное описание параметра команды
 // Используется при выводе справки (запланировано)
-Перем ПодробноеОписание Экспорт; // Строка
+Перем ПодробноеОписаниеПараметра Экспорт; // Строка
 
 // Содержит имя переменной окружения, откуда получать значение
 // допустимо использование нескольких переменных окружения через пробел
@@ -87,6 +87,7 @@
 	ТипПараметра = ВходящийТипПараметра;
 
 	РазделительМассива = Неопределено;
+	ПодробноеОписаниеПараметра = "";
 	ПодготовитьНаименованияПараметров();
 
 КонецПроцедуры
@@ -123,6 +124,23 @@
 
 КонецФункции
 
+// Возвращает подробное описание для справки
+//
+// Возвращаемое значение:
+//   строка
+Функция ПолучитьПодробноеОписание() Экспорт
+
+	ВстроенныеТипы = ВстроенныеТипЗначенийПараметров();
+	ОпределенныйТип = ВстроенныеТипы[Строка(ТипЗнч(ТипЗначенияПараметра))];
+	Если ОпределенныйТип = Неопределено 
+		Или Тип("ТипПеречисление") = ОпределенныйТип Тогда
+		ПодробноеОписаниеПараметра = ТипЗначенияПараметра.ПодробноеОписание();
+	КонецЕсли;
+
+	Возврат ПодробноеОписаниеПараметра;
+
+КонецФункции
+
 // Возвращает истина, если данный параметр обязателен для указания
 //
 // Возвращаемое значение:
@@ -475,21 +493,87 @@
 
 КонецФункции
 
+// Функция устанавливает тип параметра "Перечисление"
+// возвращает текущий параметр команды
+//
+// Параметры:
+//   ДоступныеПеречисления - Соответсвие 
+//							 Ключ - Строка 
+//							 Значение - Структура ("Наименование, Значение, ДополнительнаяСправка")
+// Возвращаемое значение:
+//   ЭтотОбъект - класс ПараметрКоманды
+// Вызов необязателен, автоматически определяется при создании параметра,
+// если передано значение по умолчанию
+Функция ТПеречисление(Знач ДоступныеПеречисления = Неопределено) Экспорт
+
+	ТипОпции = ТипЗнч(Неопределено);
+	ТипЭлементаОпции = ТипОпции;
+	ТипЗначенияПараметра = Новый ТипПеречисление();
+
+	Если Не ДоступныеПеречисления = Неопределено Тогда
+		ТипЗначенияПараметра.УстановитьПеречисления(ДоступныеПеречисления);
+	КонецЕсли;
+
+	Возврат ЭтотОбъект;
+
+КонецФункции
+
+// Функция устанавливает произвольный тип параметра
+// возвращает текущий параметр команды
+//
+// Параметры:
+//   Наименование          - строка - пользовательное значение перечисления
+//   Значение              - произвольный - системное значение перечисления
+//   ДополнительнаяСправка - строка - дополнительная строка для справки
+//
+Функция Перечисление(Знач Наименование, Знач Значение = Неопределено, Знач ДополнительнаяСправка = "") Экспорт
+	
+	Если Не ТипЗнч(ТипЗначенияПараметра) = Тип("ТипПеречисление") Тогда
+		ВызватьИсключение "Указание перечисления допустимо только для типа параметра перечисление";
+	КонецЕсли;
+
+	Если Значение = Неопределено Тогда
+		Значение = Наименование;
+	КонецЕсли;
+
+	ТипЗначенияПараметра.ДобавитьПеречисление(Наименование, Значение, ДополнительнаяСправка);
+
+	Возврат ЭтотОбъект;
+
+КонецФункции
+
+// Функция устанавливает признак обязательности указания данного параметра
+// возвращает текущий параметр команды
+//
+// Параметры:
+//   Признак - булево - признак обязательности указания данного параметра (по умолчанию Истина)
+//
+// Возвращаемое значение:
+//   ЭтотОбъект - класс ПараметрКоманды
+Функция ПодробноеОписание(Знач ВходящееПодробноеОписание) Экспорт
+
+	ПодробноеОписаниеПараметра = ВходящееПодробноеОписание;
+
+	Возврат ЭтотОбъект;
+
+КонецФункции
+
 #КонецОбласти
 
 Функция ВстроенныеТипЗначенийПараметров()
 
 	ВстроенныеТипы = Новый Соответствие;
 
-	ВстроенныеТипы.Вставить("Булево", Новый ТипБулево);
-	ВстроенныеТипы.Вставить("Число", Новый ТипЧисло);
-	ВстроенныеТипы.Вставить("Дата", Новый ТипДатаВремя);
+	ВстроенныеТипы.Вставить("ТипБулево", Тип("ТипБулево"));
+	ВстроенныеТипы.Вставить("ТипЧисло", Тип("ТипЧисло"));
+	ВстроенныеТипы.Вставить("ТипДатаВремя", Тип("ТипДатаВремя"));
 	//ВстроенныеТипы.Вставить("Длительность", Новый ТипДлительность);
-	ВстроенныеТипы.Вставить("Строка", Новый ТипСтрока);
+	ВстроенныеТипы.Вставить("ТипСтрока", Тип("ТипСтрока"));
 	//ВстроенныеТипы.Вставить("МассивДлительностей", Новый ТипМассивДлительностей);
-	ВстроенныеТипы.Вставить("МассивЧисел", Новый ТипМассивЧисел);
-	ВстроенныеТипы.Вставить("МассивСтрок", Новый ТипМассивСтрок);
-	ВстроенныеТипы.Вставить("МассивДат", Новый ТипМассивДат);
+	ВстроенныеТипы.Вставить("ТипМассивЧисел", Тип("ТипМассивЧисел"));
+	ВстроенныеТипы.Вставить("ТипМассивСтрок", Тип("ТипМассивСтрок"));
+	ВстроенныеТипы.Вставить("ТипМассивДат", Тип("ТипМассивДат"));
+	ВстроенныеТипы.Вставить("ТипПеречисление", Тип("ТипПеречисление"));
 
 	Возврат ВстроенныеТипы;