Замена кода. Номенклатура

"7,7 УСН 163<br>слетели коды в справочнике номенклатура, неизвестно почему при создании нового элемента стал стаивть код=1 бухи стирали и писали любой другой.<br>Нашла на диске обработку по замене кодов в спр-ке. Запускаю, таблица заполняет элементами, но потом когда жму непосредственно "начать нумерацию с 1" и т.п при выполнении обработки внизу выводит ошибку:ВспомнимКонфликт.Записать();<br>{D:\1C\УСН\УПР(ПОСЛЕД)\EXTFORMS\UCREFREN.ERT(108)}: Код не уникальный!<br><br>помогите пожалуйста, очень срочно надо :("

уникальность есть?<br>упорядочиваем по кодам и смотри, в чём прикол

В данном случае надо смотреть, что пытается сделать обработка. Просмотр справочника ничего не даст, кроме как найдется элемент с номером из-за которого теперь все так пляшет.

вобщем просмотрела справочник, есть три элемента с буквами (73плодовое, 74плодовое, 75плодовое %))остальные с цифрами, сначали пытаюсь избавится от буквенного префикса и только потом упорядочивает по цифрам.

> вобщем просмотрела справочник, есть три элемента с буквами (73плодовое %))остальные с цифрами, сначали пытаюсь избавится от буквенного префикса и только потом упорядочивает по цифрам.<br><br>тип кода каков ? + цифра/символы ?

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

уникальность во всём справочнике или пределах подчинения ?

не, какой-то метод тыка получается...то выходит то не выходит<br>вобщем тыкаю начать нумерацию со 1000 в конце концов дает и с единицы нормально сделать...бред какой-то<br><br>

не поняла вопрос<br>я перенумеровываю весь справочник ном-ра

"Я обычно делаю так (мне это быстрее чем найти обрабтку с ИТС-а):<br><br>НачатьТранзакцию();<br>Номенклатура=СоздатьОбъект("Справочник.Номенклатура");<br>Для i=1 По 3 Цикл<br> Если i<>2 Тогда<br>      МаксКод=0;<br> КонецЕсли;<br> Номенклатура.ВыбратьЭлементы(0);<br> Пока Номенклатура.ПолучитьЭлемент(1)=1 Цикл<br>      Если i=1 Тогда<br>       ТекКод=Число(Номенклатура.Код);<br>       Если ТекКод>МаксКод Тогда<br>            МаксКод=ТекКод;<br>       КонецЕсли;<br>      Иначе<br>       МаксКод=МаксКод+1;<br>       Номенклатура.Код=Формат(МаксКод,"Ч(0)10");<br>       Номенклатура.Записать();<br>      КонецЕсли;<br> КонецЦикла;<br>КонецЦикла;<br>ЗафиксироватьТранзакцию();"