В справочнике номеклатура при создании новых позиций случайно задали позициям код из накладной, а надо чтобы код присваивался 1с. Помогите восстановить нумерацию номеклатуры, вручную не хочется исправлять 50 позиций...

Позвони, сбросим счет, поможем

не баись.. 50позиций и ручками поправишь. будет наука а) писать аккуратно б) знать типовые возможности по восстанеовлению нумерации

(2) Кому наука? Девочке, которая зугружала накладную и накосячила?

(0) на ИТС есть обработка УниверсальныйПодборИОбработка, она умеет перенумировывать. Если база файловая, надо будет всех вытряхнуть. Если серверная - вызвать ОбновитьНумерациюОбъектов() (или как-то так оно называется - ищ СП по обновить)

Я бы может и посмотрел что нибудь "типовое" да вот только диска ИТС под рукой нету, а на сайте users.v8 ничего не нашел.

(3) ну, если у тебя есть альтернаьтива...

а перенумировывать весь справочник из-за 50ти позиций это нормально? Не ну если ты сможешь аккуратно перенумировать только 50 позиций тогда ладно

(3) а девочке надо ногти вырвать и объяснить, что в следующий раз это будут не накладные, а родные ногти

(7) эти позиции можно отфильтровать по длинне кода, т.е. стандартный код 00000015386  а эти позиции с кодом 102452

(9) умный ты шибко, как ты такой фильтр задашь?

(10) СтрДлина (Объект.Код) < 11

Если Лев(ТвоеЧисло, 5)<>"00000" Тогда
...
КонецЕсли

(12) Спасибо. Тоже хороший вариант.

Гениально, а теперь пишите дальше, потому что в стандартных обработках замены значений вы такое не вставите

Подобно "______"

А зачем стандартные брать?
Если достаточно найти последнюю "правильную" и всем последующим присвоить "правильная"+1

пишите, я бы за это время девочке бы уже объяснил как ей косяк нумерации исправить

Да и делов то не много
Обычный запрос:

"ВЫБРАТЬ
   Номенклатура.Ссылка,
   Номенклатура.Код
ИЗ
   Справочник.Номенклатура КАК Номенклатура
ГДЕ
   Номенклатура.Ссылка>&ПоследняяПравильная"

Ну и затем:

сч = КодПоследнейПравильной;
Пока Выборка.Следующий() Цикл
   сч = сч + 1;
   Номенклатура = Выборка.Ссылка.ПолучитьОбъект();
   Номенклатура.Код = Прав("00000000000"+СтрЗаменить(сч, Символы.НПП, "")));
   Номенклатура.Записать();
КонецЦикла;

Для таких вещей даже обработки не пишу, а пользуюсь расширенной консолью запросов, у которой есть возможность обрабатывать полученную выборку.

А вдруг
Номенклатура.Код = Прав("00000000000"+СтрЗаменить(сч, Символы.НПП, "")));
Будет номер не уникален?

Спасибо всем за внимание. Вот решение:
Процедура КнопкаВыполнитьНажатие(Кнопка)
   // Вставить содержимое обработчика.
   СпрНом =  Справочники.Номенклатура.ВыбратьИерархически();
   Сообщить("Начало");
   счетчик=15387;
   Пока СпрНом.Следующий() цикл
   Объект = СпрНом.ПолучитьОбъект();
   
       Если Лев(Объект.Код, 6)<>"000000" Тогда
           Сообщить(Объект.код);
           Объект.Артикул = Объект.Код;
           Объект.Записать();
           Объект.Код= "000000"+Счетчик;
           счетчик = счетчик + 1;
           Объект.Записать();
       КонецЕсли;
   КонецЦикла;
   Сообщить("Конец");
КонецПроцедуры

(20) Исходя из условия, изначально код присваивался 1С автоматически, и только последние 50 позиций руками вбили неправильный. Поэтому найти последний "правильный" - уже ручная работа (и довольно несложная). А увеличивая постоянно на +1 счетчик уже тем самым избавляемся от того, что он может повториться.

p.s. Но опять же, это основываясь только на заданных ТС данных.

(20) Хотя да, у мну там маленькая опечатка - забыл добавить сколько символов справа надо )))

(11) гов-н/окод детектед
Если СтрДлина (СокрЛП(Объект.Код)) < Метаданные.Справочник("Номенклатура").ДлинаКода