Перенумерация кодов справочника (Должности организаций)

Простенький код, для перенумерации справочников в 1с 8.0-8.3:

Использовать, только в том случае, если не используются для поиска код этого справочника!!!

Процедура КнопкаВыполнитьНажатие(Кнопка)
    сч=0;
    Вр= "000000000";
    спр = Справочники.ДолжностиОрганизаций.Выбрать();
    Пока спр.Следующий() Цикл
        сч=сч+1;
        Код = Лев(Вр,9-СтрДлина(строка(сч)))+Формат(сч,"ЧГ=");       
        Об = спр.ПолучитьОбъект();
        Об.Код = Код;
        Об.Записать();
    КонецЦикла;
    Предупреждение("Готово!",20);
КонецПроцедуры