Вот что у меня
Если НовыйЭлемент.Пустая() Тогда
           НовыйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Наименование, Истина);
       КонецЕсли;
//Если не нашли создаем новый
Если НовыйЭлемент.Пустая() Тогда
           
           НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент();
...
//далее подставляю в док
ДокПоступление = НовыйДокПоступление.Товары.Добавить();
ДокПоступление.Номенклатура = НовыйЭлемент.Ссылка;
....

может нету записать

(0) а что не получается то? ты новый элемент то записываешь хоть?

НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент();
НовыйЭлемент.Наименование = Наименование;
НовыйЭлемент.Записать();

После создания, новый элемент надо записать.

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

значит не удовлетворяет условиям поиска

спасибо, уж записать умею))

(5) значит, не находит по наименованию, чо

Отладчик спасет отца русской демократии(С)

Может у тебя длина Наименования 10 символов, а ты туда пихаешь 50?

НовыйЭлемент = Справочники.Номенклатура.ПустаяСсылка();
Если НовыйЭлемент.Пустая() Тогда
           НовыйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Наименование, Истина);
       КонецЕсли;
//Если не нашли создаем новый

Если НовыйЭлемент.Пустая() Тогда
           
           НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент();
...
//далее подставляю в док

ДокПоступление = НовыйДокПоступление.Товары.Добавить();
ДокПоступление.Номенклатура = НовыйЭлемент.Ссылка;

(10) длина наименования 100

(11) 1 + 2 строка - чушшшшь

>>НовыйЭлемент = Справочники.Номенклатура.ПустаяСсылка();
>>Если НовыйЭлемент.Пустая() Тогда

...
ндааа..

Может запросом выбирать по наименованию а дальше если

из (11) нам не видно, что ты пишешь в НовыйЭлемент.Наименование и пишешь ли вообще

(13) (14) а как?

Наименование откуда берешь? Попробуй
НовыйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(СокрЛП(Наименование), Истина);

Ну, а вообще, попробуй привести более полный кусок кода, а то ничего не понятно.

(17)Никак.  вообще убрать.

так:

НовыйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Наименование, Истина);
Если НовыйЭлемент.Пустая() Тогда
    НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент();

(17) Что значит а как? Зачем у тебя проверка на пустую ссылку, если она гарантировано пустая?

Покажи что ты кладешь в наименование, а потом покажи скрин с этим элемента наименованием.

(16) (18)
беру из Эксель
Наименование = ФайлXLS.Sheets(ТекНомер).Cells(1,Наим).Value;
Цвет = ФайлXLS.Sheets(ТекНомер).Cells(1,Цвет1).Value;
Размер = ФайлXLS.Sheets(ТекНомер).Cells(1,Размер1).Value;

********

НовыйЭлемент = Справочники.Номенклатура.ПустаяСсылка();
       // Ищем товар в справочнике по наименованию
       Если НовыйЭлемент.Пустая() Тогда
           НовыйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Наименование, Истина);
       КонецЕсли;
//Если не нашли создаем новый
       Если НовыйЭлемент.Пустая() Тогда
           
НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент();
           
НовыйЭлемент.Наименование = Наименование + " " + Цвет + " " + Размер;

(22) ну ты и дятел! :))))

НовыйЭлемент.Наименование = Наименование + " " + Цвет + " " + Размер;

ищешь то совсем другое

(23) Опередил.

(22)
п е з д е ц. (с)

так и знал что там что-то шедевральное:-)

(22) спаси и сохрани...

рад что развеселил вас, может исправите ошибку?

Если НовыйЭлемент.Пустая() Тогда
           НовыйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Наименование + " " + Цвет + " " + Размер, Истина);
       КонецЕсли;

:)

Справочники.Номенклатура.НайтиПоНаименованию(Наименование + " " + Цвет + " " + Размер, Истина)

(0) Для примера через запрос:
   Запрос = Новый Запрос;
   Запрос.Текст = "ВЫБРАТЬ
   |    ФизическиеЛица.Ссылка
   |ИЗ
   |    Справочник.ФизическиеЛица КАК ФизическиеЛица
   |ГДЕ
   |    ФизическиеЛица.Код = &Код";
       
Запрос.УстановитьПараметр("Код", СокрЛП(УникКод));
               
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
       
Если Выборка.Следующий() Тогда
   Объект = Выборка.Ссылка;
Иначе
   Фіз = Справочники.ФизическиеЛица.СоздатьЭлемент();
   Фіз.Код    = СокрЛП(УникКод);
   Фіз.Наименование = ФИО;
// и остальные реквизиты...
   Фіз.Записать();
   
   Объект = Фіз.Ссылка;
КонецЕсли;
А дальше уже использовать присвоение куда надо: Объект

...

(22) вглядись внимательно:
НовыйЭлемент = Справочники.Номенклатура.ПустаяСсылка();
Если НовыйЭлемент.Пустая() Тогда
   НовыйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Наименование, Истина);
КонецЕсли;

(34) тьфу ты блин, не то

Если НовыйЭлемент=Неопределено Тогда

(30) +100
(36) ты СП почитай, в каких случаях Неопределено возвращается

(37) косанул.

(30) (31) опять дублируется

(39) это ошибка в ДНК, а она уже не лечится - тупо приводит к мутациям и вымиранию

(0) Строго говоря, нужно не по каждой номенклатуре делать: Справочники.Номенклатура.НайтиПоНаименованию(
("запрос в цикле")

Лучше так: собрать всю номенклатуру, например в таблицу значений, затем _одним_ запросом найти все ссылки для этой номенклатуры, не найденные - уже создавать.

(39) Пора уже запустить отладчик и посмотреть, что и как ищеЦо

сорри. исправил как (30) не дублируется, но творится другая херня...

второй раз когда загружаю ту же накладную, в табличной части документа элемент номенклатура выбирается только первая созданная. т.е. есть
наименование артикул цвет      размер
номен1       а1      красный   Л
номен1       а1      красный   М
номен2       а2      желтый    Л
номен2       а2      желтый    М

в док добавляются
номен1       а1      красный   Л
номен1       а1      красный   Л
номен2       а2      желтый    Л
номен2       а2      желтый    Л

ДокПоступление = НовыйДокПоступление.Товары.Добавить();
ДокПоступление.Номенклатура = НовыйЭлемент.Ссылка;
ДокПоступление.Количество = Количество;
ДокПоступление.Цена = Цена;
ДокПоступление.Склад = Склад;
ДокПоступление.ЕдиницаИзмерения = НовыйЭлемент.ЕдиницаХраненияОстатков;
ДокПоступление.Коэффициент = НовыйЭлемент.ЕдиницаХраненияОстатков.Коэффициент;
ДокПоступление.СтавкаНДС = СтавкаНДС;
ДокПоступление.Сумма = Количество * Цена;                    
Сообщить(Наименование+"-"+ШтрихКод+ " -- "+"Элемент записан");

а сама номенклатура создается следующим образом

НовыйЭлемент = Справочники.Номенклатура.ПустаяСсылка();
       // Ищем товар в справочнике по наименованию
       Если НовыйЭлемент.Пустая() Тогда
           НовыйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Наименование + " " + Цвет + " " + Размер, Истина);
       КонецЕсли;
       //Если не нашли создаем новый
       Если НовыйЭлемент.Пустая() Тогда
           
           НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент();
           Родитель = ГрпНом;
           НовыйЭлемент.Родитель = Родитель;
           НовыйЭлемент.Артикул = Артикул;
           НовыйЭлемент.Коллекция = Коллекция;
           НовыйЭлемент.Цвет = Цвет;
           НовыйЭлемент.Размер = Размер;
           НовыйЭлемент.Наименование = Наименование + " " + Цвет + " " + Размер;
           НовыйЭлемент.НаименованиеПолное = Наименование + " " + Цвет + " " + Размер;
           НовыйЭлемент.ВидНоменклатуры = ПолеВвода1;
           НовыйЭлемент.БазоваяЕдиницаИзмерения = ЕдИзмер;        
           НовыйЭлемент.Записать();
           НовыйЕдИзмер = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
           НовыйЕдИзмер.ЕдиницаПоКлассификатору = ЕдИзмер;
           НовыйЕдИзмер.Наименование = ЕдИзмер.Наименование;
           НовыйЕдИзмер.Коэффициент = 1;
           НовыйЕдИзмер.Владелец = НовыйЭлемент.Ссылка;
           НовыйЕдИзмер.Записать();
           НовыйЭлемент.ЕдиницаХраненияОстатков = НовыйЕдИзмер.Ссылка;
           НовыйЭлемент.СтавкаНДС = СтавкаНДС;
           //НовыйЭлемент.ВестиУчетПоХарактеристикам = Истина;
           НовыйЭлемент.Записать();

(45) ты достиг совершенства в части теоремы БЖ-Соболя

(46)я не 1С-ник, а пользователь

(44) и гдг тут добавляется первая? Вроде не первая.

попробуй не наименование пользовать а СокрЛП(Наименование)

(47) это не помешало достичь совершенства :)

может надо и этот реквизит ТЧ заполнять. ХарактеристикаНоменклатуры

(51) не та опера.
А весь цикл. где ты записал и потом добавляешь. покажи.

нашел ошибку)

(49) хорошая вещь, только не знаю как использовать. куда ее вставить?

НовыйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Наименование, Истина);

(51) первоначально так и хотел, но не знаю как добавить в характеристики. а то добавляю эти характеристики в наименование номенклатуры. а можно штрихкоды к характеристикам привязать? т.е. номенклатура одна, а характеристики разные, т.е. цвет, коллекция, размер, и разных характеристиках разные ШК

(55)
исходя из (47)
мудрый совет: не надо.

+(56)
позовите программиста. (с)

если размер и цвет прямо в наименование заносятся, то характеристики тогда не нужны.

если по феншую то надо, а так зачем лишний гемор :)

(58) ясное дело, я и не заношу. такое ощущение что код разваливается. не знаю проверял ли раньше, ШК не записывается

НовыйЭлемент = Справочники.Номенклатура.ПустаяСсылка();
       // Ищем товар в справочнике по наименованию
       Если НовыйЭлемент.Пустая() Тогда
           НовыйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Наименование + " " + Цвет + " " + Размер);
       КонецЕсли;
       //Если не нашли создаем новый
       Если НовыйЭлемент.Пустая() Тогда
           
           НовыйЭлемент = Справочники.Номенклатура.СоздатьЭлемент();
           Родитель = ГрпНом;
           НовыйЭлемент.Родитель = Родитель;
           НовыйЭлемент.Артикул = Артикул;
           НовыйЭлемент.Коллекция = Коллекция;
           НовыйЭлемент.Цвет = Цвет;
           НовыйЭлемент.Размер = Размер;
           НовыйЭлемент.Наименование = СокрЛП(Наименование + " " + Цвет + " " + Размер);
           НовыйЭлемент.НаименованиеПолное = СокрЛП(Наименование + " " + Цвет + " " + Размер);
           НовыйЭлемент.ВидНоменклатуры = ПолеВвода1;
           НовыйЭлемент.БазоваяЕдиницаИзмерения = ЕдИзмер;        
           НовыйЭлемент.Записать();
           НовыйЕдИзмер = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
           НовыйЕдИзмер.ЕдиницаПоКлассификатору = ЕдИзмер;
           НовыйЕдИзмер.Наименование = ЕдИзмер.Наименование;
           НовыйЕдИзмер.Коэффициент = 1;
           НовыйЕдИзмер.Владелец = НовыйЭлемент.Ссылка;
           НовыйЕдИзмер.Записать();
           НовыйЭлемент.ЕдиницаХраненияОстатков = НовыйЕдИзмер.Ссылка;
           НовыйЭлемент.СтавкаНДС = СтавкаНДС;
           //НовыйЭлемент.ВестиУчетПоХарактеристикам = Истина;
           НовыйЭлемент.Записать();
           
             //Запись РегистраСведений Штрихкоды
           
           ЗаписьШК = Истина;
           РегСведШК = РегистрыСведений.Штрихкоды;
           ВыборкаРегСведШК = РегистрыСведений.Штрихкоды.Выбрать();
           Пока ВыборкаРегСведШК.Следующий() Цикл
               Если ВыборкаРегСведШК.Штрихкод = ШтрихКод Тогда
                   ЗаписьШК = Ложь;
               КонецЕсли;
           КонецЦикла;
           ЗаписьВРегистрСвед = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
           ЗаписьВРегистрСвед.Владелец = НовыйЭлемент.Ссылка;
           ЗаписьВРегистрСвед.ЕдиницаИзмерения = НовыйЭлемент.ЕдиницаХраненияОстатков;
           ЗаписьВРегистрСвед.Штрихкод = ШтрихКод;
           ЗаписьВРегистрСвед.ТипШтрихкода = ЭлементыФормы.ТипШК.Значение;//ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13;
           ЗаписьВРегистрСвед.Качество = Справочники.Качество.Новый;
           Если (ШК = 0) или (ШК > КолКолонок) Тогда
           Сообщить("ШтрихКод не будет добавлен к данному элементу: "+Наименование);
           ИначеЕсли ЗаписьВРегистрСвед.Выбран() Тогда
           ЗаписьВРегистрСвед.Записать();
           КонецЕсли;
       иначе
           НовыйЭлемент = Справочники.Номенклатура.НайтиПоНаименованию(Наименование + " " + Цвет + " " + Размер, Истина);
       КонецЕсли;        
       
       //Создадим Док Поступления товаров и услуг
       
       ДокПоступление = НовыйДокПоступление.Товары.Добавить();
       ДокПоступление.Номенклатура = НовыйЭлемент.Ссылка;
       ДокПоступление.Количество = Количество;
       ДокПоступление.Цена = Цена;
       ДокПоступление.Склад = Склад;
       ДокПоступление.ЕдиницаИзмерения = НовыйЭлемент.ЕдиницаХраненияОстатков;
       ДокПоступление.Коэффициент = НовыйЭлемент.ЕдиницаХраненияОстатков.Коэффициент;
       ДокПоступление.СтавкаНДС = СтавкаНДС;
       ДокПоступление.Сумма = Количество * Цена;                    
       Сообщить(Наименование+"-"+ШтрихКод+ " -- "+"Элемент записан");
       
       ////////////////////////////////////////////////////////
       //Создадим Док Поступления товаров и услуг

(59)
v8: Заполнение рек. ХарактеристикиНоменклатуры в таб. части документа

ТС таки ведь положит базу...

(60) ну вот эту строчку выбросьте

   ИначеЕсли ЗаписьВРегистрСвед.Выбран() Тогда
       

на какой фиг вы проверяете выбран или не выбран, вам нужно ведь записать - так и записывайте.

(63) ее не было, а добавил потому что есть некоторые повторяющие шрихкоды, обработка ругалась владелец ШК уже существует

(64) так она всегда не выбран(). Вы же не выбирали ее.

(65) а как сделать так чтобы если находила идентичный ШК все равно добавляла к другой номенклатуре?

(63) проверил без
ИначеЕсли ЗаписьВРегистрСвед.Выбран() Тогда

не добавляет

минутку, разве ЗаписьШК = Ложь; не оно?
Пока ВыборкаРегСведШК.Следующий() Цикл
               Если ВыборкаРегСведШК.Штрихкод = ШтрихКод Тогда
                   ЗаписьШК = Ложь;
               КонецЕсли;
           КонецЦикла;

(68) ну она у вас Ложь. Это правда. Но дальше по программе вы нигде к ней не обращаетесь. Вашей программе в дальнейшем глубоко наплевать ложь там или не Ложь.

(68) ладно к черту проверка...а почему не записывает существующие?

(69)

ну еще проверка

   Если (ШК = 0) или (ШК > КолКолонок) Тогда

похоже там не те ШК и КолКолонок. Вам же говорили использвать отладчик, вы не хотите.

(72) бинго!)) ШК это значение полученная из эксель, только ШК это имя поля ввода, а сама переменная называется ШтрихКод

ШтрихКод = ФайлXLS.Sheets(ТекНомер).Cells(1,ШК).Value;

только теперь ругается

Штрихкод: хххххххх уже имеет владельца уууууууу". как принудительно записать?