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

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

ответ здесь >>> https://buh.ru/forum/thread.jsp?id=488346