() для одной из своих самописных конфигураций иногда использую подобный код.
Тестируйте, пробуйте, может пригодится
&НаСервере
Функция СоздатьНомер(Номер)
ДлинаКода = 9;
ДлинаНомер = СтрДлина(Номер);
СчПо = ДлинаКода - ДлинаНомер;
НовыйНомер = "";
Для Сч = 1 по СчПо Цикл
НовыйНомер = НовыйНомер + "0";
КонецЦикла;
НовыйНомер = НовыйНомер + Строка(Номер);
Возврат НовыйНомер;
КонецФункции
&НаСервере
Процедура ПеренумероватьСправочникФайлыНаСервере()
НачатьТранзакцию();
Выборка = Справочники.Файлы.Выбрать();
Код = 1;
// назначим временный номер, так как при первом проходе может сработать контроль уникальности
Пока Выборка.Следующий() Цикл
Файл = Выборка.Ссылка.ПолучитьОбъект();
НовыйКод = "Врем" + Строка(Код);
Файл.Код = НовыйКод;
Код = Код + 1;
Сообщить(НовыйКод);
Файл.Записать();
КонецЦикла;
Код = 1;
Пока Выборка.Следующий() Цикл
Файл = Выборка.Ссылка.ПолучитьОбъект();
НовыйКод = СоздатьНомер(Код);
Файл.Код = НовыйКод;
Код = Код + 1;
Сообщить(НовыйКод);
Файл.Записать();
КонецЦикла;
ЗафиксироватьТранзакцию();
ОбновитьНумерациюОбъектов(Метаданные.Справочники.Файлы);
Сообщить("Завершено");
КонецПроцедуры
Показать
