Нужно найти номенклатуру по артикулу, и если она есть, то добавить ей штрихкод, делаю так:
Для каждого Строчка из ТаблицаЗначений Цикл
        НоменклатураПоискПоНаименованию = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Строчка.АртикулНом);
        Если НЕ НоменклатураПоискПоНаименованию =  Справочники.Номенклатура.ПустаяСсылка() Тогда
            //Создаем штрихкоды
            Штрихкоды = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
            ШтрихКоды.Владелец = НоменклатураПоискПоНаименованию.Ссылка;
            ШтрихКоды.Штрихкод = Штрихкод;
            ШтрихКоды.ЕдиницаИзмерения = НоменклатураПоискПоНаименованию.ЕдиницаХраненияОстатков;
            ШтрихКоды.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
            Штрихкоды.Качество = Справочники.Качество.Новый;
            Попытка
                ШтрихКоды.Записать();
            Исключение
            КонецПопытки;
        КонецЕсли;

ругается что
Штрихкод: 4602634334795<неиKHHF12    уже имеет владельца "ОБЛОЖКА ДЛЯ ПРАВ,ДОВЕРЕН.".
как сделать чтобы эта ошибка не выводилась?

Если эта тема является обратной операцией v8: Загрузка данных из ПТИУ в тхт файл 1с 8.2 комплексная то не проще нормальную структуру обмена сделать или вообще, объяснить нам, что это такое ты делаешь?

(1) не, это уже другое, там не было штрихкодов)

(1) там не обмен, там просто несколько мини заданий, на выгрузку в файл, и загрузку из файла обработками, вот это последнее осталось, со штрихкодами разобраться) надеюсь на помощь))

Разрешить использовать неуникальные штрихкоды. Или не использовать неуникальные штрихкоды.

(4) а без доработки конфигурации, используя только обработку нельзя что ли?

(3) Я бы взял твою ТЗ, сунул её в запрос... А запрос бы мне выдал только ту номенклатуру, у которой не совпал штрихкод.

(4) и где разрешается использовать эти штрихкоды?

А если сделать проверку на наличие штрихкода? типа если есть то норм, если нет то создавать?

(8) Ну так мы ж не знаем, как тебе надо, а ты не говоришь :)

ШКВНорме = РаботаСТорговымОборудованием.ПроверитьШтрихКод(текШК, ТипШтрихкода);
                Если ШКВНорме = Ложь Тогда
                    Сообщить("Внимание по: "+ Строка.Номенклатура + " ШК = " + текШК + " не прошел проверку и не сможет быть записан в дальнейшем", СтатусСообщения.Важное);
                    БылиОшибки =Истина;
                    продолжить;
                КонецЕсли;
                
                ЗаписьШтрихКоды.Отбор.Владелец.Установить(Строка.Номенклатура);
                ЗаписьШтрихКоды.Отбор.ЕдиницаИзмерения.Установить(?(ЗначениеЗаполнено(Строка.ЕдиницаИзмерения),Строка.ЕдиницаИзмерения,Строка.Номенклатура.ЕдиницаХраненияОстатков));
                ЗаписьШтрихКоды.Отбор.ШтрихКод.Установить(текШК);
                ЗаписьШтрихКоды.Отбор.ХарактеристикаНоменклатуры.Установить(Строка.ХарактеристикаНоменклатуры);
                ЗаписьШтрихКоды.Отбор.ТипШтрихкода.Установить(ТипШтрихкода);
                ЗаписьШтрихКоды.Отбор.Качество.Установить(Справочники.Качество.Новый);
                ЗаписьШтрихКоды.Прочитать();
                                
                Если ЗаписьШтрихКоды.Количество() Тогда
                    Продолжить; // уже есть такая
                КонецЕсли;

(9) нужно, чтобы при загрузке данных из ТЗ в документ происходил поиск загружаемой номенклатуры, не создавая новую, если номенклатура есть такая, то приписывается ей ШК, который так же в ТЗ хранится, вот что нужно)

(11) А если у номенклатуры уже есть ШК?

+(12) А если ШК в базе не совпадает с ШК в ТЗ?

(12) если уже есть, то перезаписываем

(13) главные данные у нас это данные из ТЗ) так что от туда по любому мы берем ШК и перезаписываем его, или пишем в номенклатуру, но вот эти ошибки что типа уже есть владелец вообще достали

(7) в Рознице 2.0 в настройках номенклатуры есть настройка Использовать неуникальные штрихкоды

(16) у меня КА я же писал

(17) В прошлой ветке)

(15) А ты текст ошибки правильно перепостил?

(19)
Начало загрузки цен...
Штрихкод: 4602634334795<неиKHHF12    уже имеет владельца "ОБЛОЖКА ДЛЯ ПРАВ,ДОВЕРЕН.".
{Форма.Форма.Форма(116)}: Ошибка при вызове метода контекста (Записать): Не удалось записать: "Штрихкоды"!
Штрихкод: 4602634334795<неиKHHF12    уже имеет владельца "ОБЛОЖКА ДЛЯ ПРАВ,ДОВЕРЕН.".
{Форма.Форма.Форма(168)}: Ошибка при вызове метода контекста (Записать): Не удалось записать: "Штрихкоды"!
Цены были загружены

Во всей ветке только один толковый пост (4).
дальше google.ru поможет найти.

а какая еще информация есть в "ТаблицаЗначений"?

(20) То есть текст ошибки ты сам сформировал... А причина у тебя не полностью выводится. Покажи полностью.

(22) артикул, наименование, цена оптовая, розничная, штрихкод

Модуль набора записей регистра сведений Штрихкоды. Процедура ПередЗаписью. Там проверка на то, что штрихкод, которй ты хочешь закрепить за данной номенклатурой, уже не закреплен за другой. По ошибке явно видно что закреплен. Дальше уже решать тебе как обрабатывать ситуацию, когда один и тотже штрихкод привязан к двум номенклатура (разрешать, посылать, чистить, медитировать, выбор большой)

(23)
Процедура ОсновныеДействияФормыОсновныеДействияФормыВыполнить(Кнопка)
    
    Сообщить("Начало загрузки цен...");
    
    КЧ = Новый КвалификаторыЧисла(12,2);
    КД = Новый КвалификаторыДаты();
    КС = Новый КвалификаторыСтроки(30);
    КС2 = Новый КвалификаторыСтроки(40);
    Массив = Новый Массив;
    Массив.Добавить(Тип("Дата"));
    ОписаниеТиповД = Новый ОписаниеТипов(Массив, , КД);
    Массив.Очистить();
    Массив.Добавить(Тип("Число"));
    ОписаниеТиповЧ = Новый ОписаниеТипов(Массив, , ,КЧ);
    Массив.Очистить();
    Массив.Добавить(Тип("Строка"));
    ОписаниеТиповС = Новый ОписаниеТипов(Массив, , ,КС);
    Массив.Очистить();
    Массив.Добавить(Тип("Строка"));
    ОписаниеТиповС2 = Новый ОписаниеТипов(Массив, , ,КС2);
    Массив.Очистить();
    ТаблицаЗначений = Новый ТаблицаЗначений;
    ТаблицаЗначений.Колонки.Добавить("АртикулНом",ОписаниеТиповС2 , "Код номенклатуры");
    ТаблицаЗначений.Колонки.Добавить("АртикулБезПрефикса",ОписаниеТиповС2 , "артикул без префикса");
    ТаблицаЗначений.Колонки.Добавить("Номенклатура",ОписаниеТиповС2 , "Описание номенклатуры");
    ТаблицаЗначений.Колонки.Добавить("ЦенаОпт",ОписаниеТиповС2 , "Цена оптовая");
    ТаблицаЗначений.Колонки.Добавить("ЦенаРозн",ОписаниеТиповС2 , "Цена розничная");
    ТаблицаЗначений.Колонки.Добавить("ЦенаРознБезСкидки",ОписаниеТиповС2 , "Цена розничная без скидки");
    ТаблицаЗначений.Колонки.Добавить("Скидка",ОписаниеТиповС2 , "Скидка");
    ТаблицаЗначений.Колонки.Добавить("Штрихкод",ОписаниеТиповС2 , "Штрихкод");

    Текст = Новый ЧтениеТекста(ПутьКФайлу, "cp866");
    Стр = Текст.ПрочитатьСтроку();
    Пока Стр <> Неопределено Цикл
        МассивСтрок = ОбщегоНазначения.РазложитьСтрокуВМассивПодстрок(Стр,"?");
        НоваяТЗ = ТаблицаЗначений.Добавить();
        АртикулНом = МассивСтрок[0];
        НоваяТЗ.АртикулНом = СокрЛП(АртикулНом);
        
        АртикулБезПрефикса = МассивСтрок[1];
        НоваяТЗ.АртикулБезПрефикса = СокрЛП(АртикулБезПрефикса);
        
        Номенклатура = МассивСтрок[2];
        НоваяТЗ.Номенклатура = СокрЛП(Номенклатура);
        
        ЦенаОпт = МассивСтрок[3];
        НоваяТЗ.ЦенаОпт = СокрЛП(ЦенаОпт);
        
        ЦенаРозн = МассивСтрок[4];
        НоваяТЗ.ЦенаРозн = СокрЛП(ЦенаРозн);

        ЦенаРознБезСкидки = МассивСтрок[5];
        НоваяТЗ.ЦенаРознБезСкидки = СокрЛП(ЦенаРознБезСкидки);
        
        Скидка = МассивСтрок[6];
        НоваяТЗ.Скидка = СокрЛП(Скидка);
        
        Штрихкод = МассивСтрок[7];
        НоваяТЗ.Штрихкод = СокрЛП(Штрихкод);
        
        Стр = Текст.ПрочитатьСтроку();
        Если ТипЗнч(Стр) = Неопределено Тогда
            Продолжить;    
        КонецЕсли;
    КонецЦикла;
            
    Документ = Документы.УстановкаЦенНоменклатуры.СоздатьДокумент();
    Документ.Комментарий = Комментарий;
    Документ.Дата = ТекущаяДата();
    СтрокаТиповЦен = Документ.ТипыЦен.Добавить();
    Розничная = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Розничная");
    Оптовая = Справочники.ТипыЦенНоменклатуры.НайтиПоНаименованию("Оптовая");
    СтрокаТиповЦен.ТипЦен = Розничная;

    Для каждого Строчка из ТаблицаЗначений Цикл
        НоменклатураПоискПоРеквизиту = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Строчка.АртикулНом);
        Если НЕ НоменклатураПоискПоРеквизиту =  Справочники.Номенклатура.ПустаяСсылка() Тогда
            Штрихкоды = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
            ШтрихКоды.Владелец = НоменклатураПоискПоРеквизиту.Ссылка;
            ШтрихКоды.Штрихкод = Штрихкод;
            ШтрихКоды.ЕдиницаИзмерения = НоменклатураПоискПоРеквизиту.БазоваяЕдиницаИзмерения;
            ШтрихКоды.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
            Штрихкоды.Качество = Справочники.Качество.Новый;
            Попытка
                ШтрихКоды.Записать();
            Исключение
                Сообщить(ОписаниеОшибки());
            КонецПопытки;
        КонецЕсли;
        НоваяСтрока = Документ.Товары.Добавить();
        НоваяСтрока.ТипЦен = Розничная;
        Валюты = Справочники.Валюты.НайтиПоНаименованию("руб.");
        НоваяСтрока.Валюта = Валюты;
        НоваяСтрока.ЕдиницаИзмерения = НоменклатураПоискПоРеквизиту.ЕдиницаХраненияОстатков;
        НоваяСтрока.Номенклатура = НоменклатураПоискПоРеквизиту.Ссылка;
        НоваяСтрока.Цена = Число(Строчка.ЦенаРозн);
        Попытка
            Документ.Записать();
        Исключение
            Сообщить(ОписаниеОшибки());
        КонецПопытки;
    КонецЦикла;
    
    СтрокаТиповЦен = Документ.ТипыЦен.Добавить();
    СтрокаТиповЦен.ТипЦен = Оптовая;
    
    Для каждого Строчка из ТаблицаЗначений Цикл
            НоменклатураПоискПоРеквизиту = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Строчка.АртикулНом);
        Если НЕ НоменклатураПоискПоРеквизиту =  Справочники.Номенклатура.ПустаяСсылка() Тогда
            Штрихкоды = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
            ШтрихКоды.Владелец = НоменклатураПоискПоРеквизиту.Ссылка;
            ШтрихКоды.Штрихкод = Штрихкод;
            ШтрихКоды.ЕдиницаИзмерения = НоменклатураПоискПоРеквизиту.БазоваяЕдиницаИзмерения;
            ШтрихКоды.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
            Штрихкоды.Качество = Справочники.Качество.Новый;
            Попытка
                ШтрихКоды.Записать();
            Исключение
                Сообщить(ОписаниеОшибки());
            КонецПопытки;
            
        КонецЕсли;
            НоваяСтрока = Документ.Товары.Добавить();
            НоваяСтрока.ТипЦен = Оптовая;
            Валюты = Справочники.Валюты.НайтиПоНаименованию("руб.");
            НоваяСтрока.Валюта = Валюты;
            НоваяСтрока.ЕдиницаИзмерения = НоменклатураПоискПоРеквизиту.ЕдиницаХраненияОстатков;
            НоваяСтрока.Номенклатура = НоменклатураПоискПоРеквизиту;
            НоваяСтрока.Цена = Число(Строчка.ЦенаОпт);
        Попытка
            Документ.Записать();
        Исключение
            Сообщить(ОписаниеОшибки());
        КонецПопытки;
        
    КонецЦикла;    

    Сообщить("Цены были загружены");
КонецПроцедуры   //ОсновныеДействияФормыОсновныеДействияФормыВыполнить

(25) один штрихкод не прикреплен к 2м номенклатурам, просто может быть номенклатура у которой есть штрихкод, а при загрузке моих данных, я перезаписывать должен штрихкод который есть, на мой

(26)Ты реши, что ты с неуникальными кодами хочешь делать, тогда ясно будет как решать проблему.

(27)У тебя есть какая-то другая номенклатура, у которой установлен этот штрихкод.

В общем, нужно следующее:
Если номенклатура есть в базе, то мы ей создаем штрихкод
Если номенклатура есть в базе со штрихкодом, мы перезаписываем штрихкод тот, который у нее есть, на новый, который загружаем

(29) нету, посмотрел по штрихкоду в РС, там он один такой

ТС, ты не понимаешь, что у тебя в ошибке написано?

(27) Так сделай туже самую проверку, что и в ПередЗаписью. Найди ту запись в регистре сведений и удали её. Потом запиши.

ОБЛОЖКА ДЛЯ ПРАВ,ДОВЕРЕН. - у вот этой номенклатуры уже установлен штрихкод 4602634334795.

(32) он пишет, что типа не записать номенклатуру у такой то номенклатуры, потому что у нее уже она есть если в кратце, так как сделать чтобы перезаписывал ее без ошибок?

(33) +запиши новую запись имелось ввиду.

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

37 постов я уже спрашиваю как это сделать) а вы мне про уникальность пишите )

вот с этого момента:
Для каждого Строчка из ТаблицаЗначений Цикл
            НоменклатураПоискПоРеквизиту = Справочники.Номенклатура.НайтиПоРеквизиту("Артикул", Строчка.АртикулНом);
        Если НЕ НоменклатураПоискПоРеквизиту =  Справочники.Номенклатура.ПустаяСсылка() Тогда
как мне потом удалить штрихкод у найденной номенклатуры по коду выше?

(37) После установки измерений, сделай ШтрихКоды.Прочитать(); Тогда предыдущая запись при записи новой удалится автоматически.

(38) Значит так спрашиваешь.
Получи набор записей с отбором по номенклатуре и почисти ее.
Пример:
//Установить курс Валюты USD
КурсыВалют = РегистрыСведений.КурсыВалют;
НаборКурсов = КурсыВалют.СоздатьНаборЗаписей();
Доллар = Справочники.Валюты.НайтиПоНаименованию("USD");
НаборКурсов.Отбор.Валюта.Установить(Доллар);
НаборКурсов.Отбор.Период.Установить(НачалоДня(ТекущаяДата()));
НаборКурсов.Прочитать();
Если НаборКурсов.Количество() = 0 Тогда
    НовыйКурс = НаборКурсов.Добавить();
    НовыйКурс.Валюта = Доллар;
    НовыйКурс.Период = ТекущаяДата();
ИначеЕсли НаборКурсов.Количество() = 1 Тогда
    НовыйКурс = НаборКурсов[0];
Иначе
    Предупреждение("Курс валюты задается один раз в день.", 60);
    Возврат;
КонецЕсли;
НовыйКурс.Курс = 31.44;
НовыйКурс.Кратность = 1;
НаборКурсов.Записать();

(40) теперь такая ошибка:
Начало загрузки цен...
{Форма.Форма.Форма(107)}: Ошибка при вызове метода контекста (Записать): Запись не верна! Значение поля "Владелец" не может быть пустым!: Штрихкоды: , , , , , ,  (Регистр сведений: Штрихкоды)
Цены были загружены
хоть владельца я иуказываю

(42) Укажи измерения, прочитай запись, укажи измерения заново + ресурсы + реквизиты, запиши.

(42) Пробивная очистка регистра по ШК.

    НаборЗаписейШтрихкоды = РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();
    НаборЗаписейСО.Отбор.Штрихкоды.Установить(Штрихкод);
    НаборЗаписейСО.Записать();

После выполнения этого кода, можешь быть уверен, что данного Штрихкода уже ни у одной номенклатуры нет (т.е из регистра он вычищен).

ой... не везде поправил. Исправляюсь.

   НаборЗаписейШтрихкоды = РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();
    НаборЗаписейШтрихкоды.Отбор.Штрихкоды.Установить(Штрихкод);
    НаборЗаписейШтрихкоды.Записать();

(42) вроде получилось, записался штрихкод без ошибок, но потом я его руками поменял, и опять запустил обработку, получилось 2 штрихкода у номенклатуры, это нормально? Так делал:
Штрихкоды = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
ШтрихКоды.Владелец = НоменклатураПоискПоРеквизиту.Ссылка;
ШтрихКоды.Штрихкод = Штрихкод;
            ШтрихКоды.ЕдиницаИзмерения = НоменклатураПоискПоРеквизиту.БазоваяЕдиницаИзмерения;
            ШтрихКоды.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
            Штрихкоды.Качество = Справочники.Качество.Новый;
ШтрихКоды.Прочитать();
ШтрихКоды.Владелец = НоменклатураПоискПоРеквизиту.Ссылка;
ШтрихКоды.Штрихкод = Штрихкод;
            ШтрихКоды.ЕдиницаИзмерения = НоменклатураПоискПоРеквизиту.БазоваяЕдиницаИзмерения;
            ШтрихКоды.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
            Штрихкоды.Качество = Справочники.Качество.Новый;
            Попытка
                ШтрихКоды.Записать();
            Исключение
                Сообщить(ОписаниеОшибки());
            КонецПопытки;

(46) "но потом я его руками поменял"
Вот тут по-подробнее... Что именно сделал.

(46) А что у регистра сведений так много измерений? Я что-то сомневаюсь...

+(48) Лучше сделать так, как предложил (45)

(48) хотя вроде ясно со штрихкодами, но появилась новая проблема: при создании документов все нормально, но когда я их пытаюсь открыть вылезает окно:
{Документ.УстановкаЦенНоменклатуры.Форма.ФормаДокумента.Форма(1268)}: Ошибка при вызове метода контекста (Добавить)
        Кнопки.Добавить("Кнопка_" + НомерСоответствияТекущейКолонки, ТипКнопкиКоманднойПанели.Действие,
по причине:
Не уникальное имя!

а лох я все, понял

спс

(45) а измерения не нужно заполнять?оО

(45) ошибка - {Форма.Форма.Форма(133)}: Поле объекта не обнаружено (Штрихкоды)
            НаборЗаписейШтрихкоды.Отбор.Штрихкоды.Установить(Строчка.Штрихкод);

НаборЗаписейШтрихкоды.Отбор.Штрихкод.Установить(Строчка.Штрихкод);

(55) измерения не нужно заполнять потом?

Фактически ты осуществляешь отбор в наборе по измерению - Штрихкод. После чего осуществляешь запись этого набора. Так как набор пустой, то он автоматически удаляет/вытесняет все имеющиеся записи по установленному отбору.

(56) Потом тебе надо записать Штрихкод как ты делал изначально. Этот код лишь очистка.

(17) И что? Тебе на ИС писали, найди процедуру СформироватьШтрихКод и ПрисвоитьШтрихКод и не парь людям мозг.

(58) типа того:
НаборЗаписейШтрихкоды = РегистрыСведений.Штрихкоды.СоздатьНаборЗаписей();
            НаборЗаписейШтрихкоды.Отбор.Штрихкод.Установить(Строчка.Штрихкод);
            НаборЗаписейШтрихкоды.Записать();
            Штрихкоды = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
            ШтрихКоды.Владелец = НоменклатураПоискПоРеквизиту;
            ШтрихКоды.Штрихкод = Штрихкод;
            ШтрихКоды.ЕдиницаИзмерения = НоменклатураПоискПоРеквизиту.БазоваяЕдиницаИзмерения;
            ШтрихКоды.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
            Штрихкоды.Качество = Справочники.Качество.Новый;
            
            Попытка
                ШтрихКоды.Записать();
            Исключение
                Сообщить(ОписаниеОшибки());
            КонецПопытки;

(60) вполне сойдет. Главное что перед записью каждого нового Штрихкода необходимо очищать по нему регистр.

(61) ошибка все равно летит, что у штрихкода уже есть владелец

Строчка.Штрихкод и Штрихкод - одинаковые данные?

(63) да заметил уже, исправил сейчас смотрю пока обработка отработает

(63) вроде получилось, спасибо

(65) Пожалуйста. Главное чтобы было осозанение почему оно заработало сейчас и не работало раньше :)

(66) потому что для перезаписи нужно было очищать регистр, и не получалось записать новое поверх старого, пока старое не удалено) как то так)