Всем привет!
Возникла такая проблемка. Есть справочник с полями "Код" и "Наименование". Потребовалось изменить формат кода (пример: с "00151" на "151000", не суть важно) во всем справочнике. Добился того, что в ФормеЭлемента написал процедуру "ПриИзменении" и Код меняется только после редактирования одного конкретного Наименования и нажатия кнопки "Записать". Так как в справочнике более 3 тысяч позиций и руками перебитьвать не вариант, меня это не устраивает. Насколько я понимаю, все операции нужно производить в ФормеСписка. Нужен цикл, который бы заменил текущий формат Кода на новый во всех элементах справочника. Помогите, пожалуйста, разобраться.

цикл нужен, да

форма списка не нужна, нет

(0) А почему обязательно в форме-то?

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

(0) Используй перенумерацию из обработки справочников и документов

(0) не надо писать ничего в форме справочника (ни списка, ни элемента). В (5) тебе дело сказали. Но если уж хочется самому написать, то создай внешнюю обработку и в ней перенумеруй все элементы. Делаешь выборку всех элементов и в цикле меняешь каждому код

+ (6) Запрос к справочнику, потом выборку

Что-то вроде этого, да?...


Запрос = Новый Запрос("
|ВЫБРАТЬ
|    Код
|ИЗ
|    Справочник.Номенклатура
|АВТОУПОРЯДОЧИВАНИЕ");
    
Результат = Запрос.Выполнить().Выбрать();

Пока Результат.Следующий() Цикл
    //цикл для замены кода  
КонецЦикла;

выбрать ссылку

Запрос = Новый Запрос("
|ВЫБРАТЬ
|    Ссылка,
|    Код
|ИЗ
|    Справочник.Номенклатура
|АВТОУПОРЯДОЧИВАНИЕ");

так?

(10) нет

Не понимаю(

А может через выборку?

Выборка = Справочники.Номенклатура.Выбрать();
Пока выборка.Следующий() = 1 Цикл
//мой цикл по замене кода
...Сообщить(...);
КонецЦикла

Так может как-то?

я не против

(12) не забудь, что по ссылке тебе надо получить объект, а потом уже в объекте менять код.

(14) А объектом у меня является что?

(15)
Выборка = Справочники.Номенклатура.Выбрать();
Пока Выборка.Следующий() Цикл
НомОбъект = Выборка.ПолучитьОбъект();
НомОбъект.УстановитьНовыНомер("000");//или НомОбъект.Код = "151000";
Попытка
НомОбъект.Записать();
Исключение
КонецПопытки;

Первый день как 1С увидел?

А, КонецЦикла забыла :)

(15) элементы справочника Номенклатура имхо

(18) думаю, у него там больше объектов, чем только номенклатуры

(16)Получилось. Но теперь, когда я хочу поменять запись в Наименовании выдает ошибку "Операция не может быть выполнена из-за несоответствия версии или отсутствия записи базы данных(возможно, запись была изменена или удалена).

Не первый, третий. Но очень хочу научиться.

(20) так не надо было держать документ открытым во время выполнения обработки? Граждане, вовремя закрывайте документы, не держите их на экране.

(6) Спасибо) сделал через внешнюю обработку.

Запрос = Новый Запрос("ВЫБРАТЬ
                          | Номенклатура.Ссылка
                          |ИЗ
                          | Справочник.Номенклатура КАК Номенклатура");
                          
    Результат = Запрос.Выполнить().Выбрать();
    
    Пока Результат.Следующий() Цикл
        Объект = Результат.Ссылка.ПолучитьОбъект();
        Объект.Код = "12345";
        Объект.Записать();
    КонецЦикла;

Все получилось, заполнило в поле Код во всем справочнике "12345". Принцип понятен)

А вот у меня в справочнике есть поле "Номер", которое имеет  вид:
1.1.0
1.1.1
1.1.2
...
1.1.21
и тд.

И мне надо сделать так, чтобы Код равнялся Номеру, только вместо точек в Коде должны быть нули, ну и спереди нолик дописать. (пример: "1.1.21"-0101021"). Не подскажете как это сделать?

Лев("00000000000"+СтрЗаменить(стр, ".", "0"), НужнаяДлина)

(23) прав, конечно

Ребят, помогите написать обработчик, который бы проверял длину строки одного поля(Номер) и в цикле добивал нулями до нужной длины(10 символов) и помещал в другое поле(Код)?

(25) посылаю тебе луч помощи

(23) ну в (23) же написан этот обработчик

Запрос = Новый Запрос("ВЫБРАТЬ
                          | Номенклатура.Ссылка
                          |ИЗ
                          | Справочник.Номенклатура КАК Номенклатура");
                          
    Результат = Запрос.Выполнить().Выбрать();
    
    Пока Результат.Следующий() Цикл
        Объект = Результат.Ссылка.ПолучитьОбъект();
        Объект.Код = "Лев("00000000000"+СтрЗаменить(Объект.<моя строка>, ".", "0"), <НужнаяДлина>)";
        Объект.Записать();
    КонецЦикла;

Я так делал, когда выполняю все просто забивается нулями...

(28) врёшь ты всё. "Лев("00000" у тбя там должно быть

Правда вру, сделал поменьше, заработало)