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

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

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