нужно сделать поле "Код" уникальным и по наименованию найти номенклатуру и присвоить ей код
Вот код
Процедура КнопкаВыполнитьНажатие(Кнопка)
Файл = Новый XBASE;
Файл.ОткрытьФайл("D:\Base\SprVino.dbf");
Если Файл.Открыта() Тогда
   Сообщить("Работает");
Файл.Первая();


Пока НЕ Файл.ВКонце() Цикл
   Номер = Файл.CODE;
   Номенклатура = Файл.NAME;
   ШтрихКод = Файл.SCODE;
   Файл.Следующая();
   
ТекНоменклатура = Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура);
Сообщить(ТекНоменклатура);
ТекНоменклатураОбъект = ТекНоменклатура.ПолучитьОбъект();
ТекНоменклатураОбъект.Код = Номер;//"Мой номер";
ТекНоменклатураОбъект.Записать();
КонецЦикла;

КонецЕсли;
Файл.ЗакрытьФайл();
   
   
КонецПроцедуры

(0) 1000 рублей)

(0) благословляю

а вы само благородство, я думал на форуме помогают, а не деньги трясут

(3) иногда помогают, да. а иногда новости рассказывают

Так вот мне нужна помощь) ибо наслышан об этом форуме, говорят только положительные вещи, пришел просить помощи, я новичок

(5) да ты спрашивай, не стесняйся

так проблема сверху написана, первым сообщением =)

(0) Здесь только на внятные вопросы могут дать ответ

там даже код есть, прошу подсказать че делать то мне

+(9) Нам код не нужен, вопрос внятно напиши

Процедура КнопкаВыполнитьНажатие(Кнопка)
Файл = Новый XBASE;
Файл.ОткрытьФайл("D:\Base\SprVino.dbf");
Если Файл.Открыта() Тогда
   Сообщить("Работает");
Файл.Первая();


Пока НЕ Файл.ВКонце() Цикл
   Номер = Файл.CODE;
   Номенклатура = Файл.NAME;
   ШтрихКод = Файл.SCODE;
   Файл.Следующая();
   
ТекНоменклатура = Справочники.Номенклатура.НайтиПоНаименованию(Номенклатура);
Сообщить(ТекНоменклатура);
ТекНоменклатураОбъект = ТекНоменклатура.ПолучитьОбъект();
ТекНоменклатураОбъект.Код = Номер;//"Мой номер";
ТекНоменклатураОбъект.Записать();
КонецЦикла;

КонецЕсли;
Файл.ЗакрытьФайл();
   
   
КонецПроцедуры

он орет, что поле "Код" не уникально. Как это исправить?

(8) проблема понята: надо, а не выходит
(10) пишите, Шура, пишите

(17) а если две номенклатуры с одним наименованием, какой код присвоишь?

(12) присваивать уникальный код, разумеется

(12) Сделать проверку, если код уже существует, присваиваешь другой код)

дак как сделать код уникальным? может каждому коду присвоить префикс?

(17) предварительно поищи такой и подумай, что делать, если есть

ищешь, в существующем поле "Код", если нет то присваивай, если есть, то формируй другой код.

+(16) Тот же код который не уникальный, только с префиксом, потом по префиксу отборы сделаешь и вручную переприсвоишь код на уникальный

да добавь реквизит новый, пронумеруй от 1 до количества номенклатур. Почисти код, перенеси из реквизита в код. Потом зайди в справочник и поставь галку "Уникальный код".

Открой сначала свою ДБФ и там порядок наведи. Даже простым екселем сделай сверную таблицу и будут только уник.коды.
А толку гнать кривые даные в 1с?

(22) Пусть учится делать сразу универсальную обработку)

Спасибо за помощь)

(23) повесится :)