В начало

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

 

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

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

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

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

   Иначе

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

   КонецЕсли;

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