Генерация случайного числа

"Нужно в документе "Прием на работу" создать процедуру для генерации нового табельного номера сотруднику, причем уникального.Подскажите или напишите , вот прблизительно, но неправильно:
Процедура ПолучитьСлучайноеЧисло()
Спр = создатьобъект("Справочник.Сотрудники");
ТабНомер.мин(11111);
       ТабНомер.макс(99999);
Если ТабНомер=Спр.код тогда
Пока табномер<>спр.код и табномер<табномер.макс
Цикл табномер.мин=табномер.мин+1;

конеццикла;
конецесли;



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

зачем случайного?
чем по порядку не устраивает?

А у вас что код справочника не уникальный?
И еще есть процедура УстановитьНовыйКод.

можно и по порядку главное уникальный, только как?

Вся суть :
на ф.эл. есть кнопка - установить и поле - табномер, при нажатии кнопки в поле генерируется новый уникальный код справочника.

1. Проверьте, что в свойствах справочника стоит "Контроль уникальности"
2. Вызовите процедуру УстановитьНовыйКод при нажатии на кнопку.

Я так подозреваю, что у человека проблема с нумерацией (пишет, при создании документа, "номер не уникальный").
Если я прав, тогда будем решать.
Просто не понимаю для чего в документах нумерация генератором случайных чисел....
Попорядку-то удобнее...