Ввести перечисление, выбор перечисления

 

// В 8-ой версии нет такой фунции, но можно сделать так:

ЗначПер=Перечисления.Важность.Средняя;  //Установим перечисление предлагаемое выбрать по умолчанию

Если ВвестиЗначение(ЗначПер,"Выберите важность:") тогда

	Сообщить(ЗначПер); //обработка выбора

КонецЕсли;

   

 

Процедура УстПризнак1()

   ВыбПризн = Перечисление.ТипСотрудника.Штатный;

   Если ВвестиПеречисление(ВыбПризн, "Выберите тип") > 0 Тогда

      Тип = ВыбПризн;

   Иначе

      Тип = Перечисление.ТипСотрудника.Штатный;

   КонецЕсли;

КонецПроцедуры



Процедура УстПризнак2()

   ВыбПризн = "ТипСотрудника";

   Если ВвестиПеречисление(ВыбПризн, "Выберите тип") > 0 Тогда

      Тип = ВыбПризн;

   Иначе

      Тип = Перечисление.ТипСотрудника.Штатный;

   КонецЕсли;

КонецПроцедуры