Предупреждение ("1") ;
мТабНом="0000000000";
СотрудникиОрганизаций=Справочники.СотрудникиОрганизаций;
Отбор = Новый Структура("Код");

Выборка = СотрудникиОрганизаций.Выбрать(,,Отбор, "Код Возр");
Пока Выборка.Следующий()  Цикл
     Предупреждение ("2")   ;

       // проверяем на дублирование табельного номера
       Если    Выборка.код=мТабНом     Тогда
            Предупреждение ("3")  ;

                Предупреждение ("Табельный номер не уникален - "  + мТабНом);
            КонецЕсли;
            мТабНом=  Выборка.код;
            // определяем длину табельного номера
            длТабНом=СтрДлина (СокрЛП (мТабНом));
            Если   длТабНом<10     Тогда
                 Предупреждение ("4") ;

                Предупреждение ("Неверная длина табельного номера - "  + мТабНом);
            КонецЕсли;


КонецЦикла;