Исправление нумерации

Понадобилось убрать букву В из номеров. Кто-то из бухгалтеров вставил и она пошла тиражироваться в номерах счет-фактур.

Сперва хотел применить типовые перенумераторы. Но нужно было максимально сохранить исходные номера.

Использую групповую обработку и код:

СтарыйНомер = ОбрабатываемыйОбъект.Номер;
ОбрабатываемыйОбъект.Номер = СтрЗаменить(ОбрабатываемыйОбъект.Номер, "КГГ-В", "КГГ-0");
ОбрабатываемыйОбъект.ОбменДанными.Загрузка = истина;
Сообщить("" + ОбрабатываемыйОбъект + " Старый номер: " + СтарыйНомер);

Записываю в режиме обмена данными загрузки (без контроля). Это, несоменно, породит дубли, но дальше уже руками, чтобы поменьше номеров менять.

Среда: БП 3.0.207.25 Объем: 0.5 час