У меня есть данные на текстовом документе
1.Конфеты;Черный;16;5
2.Булочки;Сладкий;900;25
3.Печенье;Соленый;958;12
4.Шоколад;Горький;6;14
5.Куртка;Синтипон;3;30
6.Брюки;Коричневый;24;20
7.лопата;совковая;2;2000
8.лопата;плохая;6;789
9.ведро;черный;6;785
и у меня есть внешняя обработка с табличным полем
             колонки табличного поля
Номенклатура Характеристики Количество Цена Сумма

Тип значения у колонки Номенклатура СправочникСсылкаНоменклатура
Тип знаечния у у колонки Характеристики СправочникСсылкаХарктеристикиНоменклатуры

данные с 1 по 6 реально существуют в справочнике номенклатура
а данные с 7 по 9 не сушествуют в справочнике номенклатура
мне необходимо при нажатий кнопки автоматически создать номенклатуру и
характеристики которые не сушествуют в справочнике номенклатура и характеристики номенклатуры
Как это можно реализовать

позвать программиста

(0) Это программировать надо...

(0)[мне необходимо при нажатий кнопки ]
купи эту кнопку

пятый день пошёл что со знаками препинания

вот у меня прям щас есть код читающий с файла и есть код создающий отсутствующую номенклатуту справишься

(4) норм
примерно покажите програмный код чтоб хоть предствление имел

(5) Пробелы тоже с мопеда! Только хардкор!))

вотуменяпрямщасестькодчитающийсфайлаиестькодсоздающийотсутствующуюноменклатутусправишься

v8: Прочитать файл с символами 00

(6) Ну, если примерно, то так:

Процедура СделатьВсё()
    Предупреждение("Позовите специалиста");
КонецПроцедуры

а это чтоб не копипастил
http://i.imgur.com/ow0TbtZ.png

лопата;плохая;6;789
ведро;черный;6;785

а хорошо!

(10) кстати, хвастаюсь цветовой схемой

(12) Ацтой)

(10)(12) после 5 секунд просмотра заболела голова

(14) врёшь ведь :)

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Товары.Очистить();
    Тек = Новый ЧтениеТекста("C:\pos.rep");
    стр = Тек.ПрочитатьСтроку();
    Пока стр <> неопределено Цикл
        Д = Товары.Добавить();
        Стр1 = СтрЗаменить(Стр,";",Символы.ПС);
        Стр = тек.ПрочитатьСтроку();
        А = СтрПолучитьСтроку(Стр1,1);
        Б = СтрПолучитьСтроку(Стр1,2);
        Для каждого Р Из Товары Цикл
            Если Р.Номенклатура  = Справочники.Номенклатура.ПустаяСсылка()И Р.Характеристики = Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка() Тогда
                Если А = Справочники.Номенклатура.ПустаяСсылка() И Б = Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка() Тогда
                    Спр = Справочники.Номенклатура.СоздатьЭлемент();
                    Спр.Наименование = А;
                    Спр.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("Инвентарь");
                    Спр.БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
                    Спр.Записать();
                    СпрЕдИзм = Справочники.ЕдиницыИзмерения.СоздатьЭлемент();
                    СпрЕдИзм.Владелец = Справочники.Номенклатура.НайтиПоНаименованию(А);
                    СпрЕдИзм.Наименование = "шт";
                    СпрЕдИзм.ЕдиницаПоКлассификатору = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
                    СпрЕдИзм.Коэффициент = 1;
                    СпрЕдИзм.Записать();
                    Спр.ЕдиницаДляОтчетов = СпрЕдИзм.Ссылка;
                    Спр.ЕдиницаХраненияОстатков = СпрЕдИзм.Ссылка;
                    Спр.ВестиУчетПоХарактеристикам = Истина;
                    Спр.Артикул = "Л1";
                    Спр.НаименованиеПолное = "Лопата";
                    Спр.Записать();
                    Спр1 = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
                    Спр1.Владелец = Справочники.Номенклатура.НайтиПоНаименованию(А);
                    Спр1.Наименование = Б;
                    Спр1.Записать();
                КонецЕсли;    
            КонецЕсли;
            Д.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(СтрПолучитьСтроку(Стр1,1));
            Д.Характеристики = Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(СтрПолучитьСтроку(Стр1,2));
            Д.Количество = СтрПолучитьСтроку(Стр1,3);
            Д.Цена = СтрПолучитьСтроку(Стр1,4);
            Д.Сумма = Д.Количество * Д.Цена;
        КонецЦикла;
    КонецЦикла;
КонецПроцедуры

(16) код необходимо исправить чтоб правильно работал не знаю как

(16) >>Спр.НаименованиеПолное = "Лопата";<<

ты что-ж, каждую строку файла вносишь в код модуля?

я так и думал не склеил готовые куски кода

(17) что именно неправильно работает? Не у всех новых элементов в полное наименование "Лопата" записывается? Здесь не "Битва экстрасенсов".

(20) скорей всего - наоборот, все элементы - "Лопата" "Плохая"

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Товары.Очистить();
    Тек = Новый ЧтениеТекста("C:\pos.rep");
    стр = Тек.ПрочитатьСтроку();
    Пока стр <> неопределено Цикл
        Д = Товары.Добавить();
        Стр1 = СтрЗаменить(Стр,";",Символы.ПС);
        Стр = тек.ПрочитатьСтроку();
        А = СтрПолучитьСтроку(Стр1,1);
        Б = СтрПолучитьСтроку(Стр1,2);
        Для каждого Р Из Товары Цикл
        Если Р.Номенклатура = неопределено И Р.Характеристики = неопределено Тогда
            спр = Справочники.Номенклатура.СоздатьЭлемент();
            спр.Наименование = Р.Номенклатура;
            спр.Записать();
            спр1 = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
            спр1.Наименование = Р.Характеристики;
            спр1.Записать();
            Д.Номенклатура = спр.Ссылка;
            Д.Характеристики = спр1.Ссылка;
        КонецЕсли;    
            Д.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(СтрПолучитьСтроку(Стр1,1));
            Д.Характеристики = Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(СтрПолучитьСтроку(Стр1,2));
            Д.Количество = СтрПолучитьСтроку(Стр1,3);
            Д.Цена = СтрПолучитьСтроку(Стр1,4);
            Д.Сумма = Д.Количество * Д.Цена;
        КонецЦикла;
    КонецЦикла;
КонецПроцедуры

(22) и? работает? не работает? работает, но не так?

(23)  работает, но не так? т.е неправильно

как можно сделать так чтоб код работал плз помогите

(25) извини, но такое впечатление, что ты не знаком с понятием "алгоритмы" в программировании..

ЗЫ. алгоритм = порядок выполнения действий для решения поставленной задачи.
я в свое время рисовал квадратики, прямоугольнички, ромбики и стрелочки :) Когда занимался сложными условиями, было такое дело.

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

1. ты, допустим в цикле, прочел данные из файла, к этим данным можешь обратиться, увидеть их в своих переменных "А" и "Б"

2. предусматриваешь место, куда данные надо записать (РС, или что другое) готовишь структуру, пишешь туда данные из "А" или "Б" (кстати, так и не увидел, чтобы ты их куда-то пихал.. прочел - и всё.. забыл!..)

3.записываешь в рс из структуры.

4. если цикл не кончился (строки не все прочтены) переходишь к п.1

5. выход из цикла.

ЗЗЫ.. мда...

к примеру: http://informaks.narod.ru/algo_baz.htm

(26) + отладчик помогает пошагово пройти код и увидеть почему не работает.

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

(29) отладчик всегда работает правильно.
он и показывает неправильный порядок выполнения задачи по шагам

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Товары.Очистить();
    Тек = Новый ЧтениеТекста("C:\pos.rep");
    стр = Тек.ПрочитатьСтроку();
    Пока стр <> неопределено Цикл
        Д = Товары.Добавить();
        Стр1 = СтрЗаменить(Стр,";",Символы.ПС);
        Стр = тек.ПрочитатьСтроку();
        А = СтрПолучитьСтроку(Стр1,1);
        Б = СтрПолучитьСтроку(Стр1,2);
        ВыбНом = Справочники.Номенклатура.Выбрать();
        ВыбХар = Справочники.ХарактеристикиНоменклатуры.Выбрать();
        Пока ВыбНом.Следующий() Цикл
            Пока ВыбХар.Следующий() Цикл
                Х = ВыбХар.Наименование;
                Н = ВыбНом.Наименование;
            КонецЦикла;
        КонецЦикла;
        Если А <> Н И Б <> Х Тогда
            спр = Справочники.Номенклатура.СоздатьЭлемент();
            спр.ВестиУчетПоХарактеристикам = Истина;
            спр.Наименование = А;
            спр.БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
            спр.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("товар");
            спр.Записать();
            спр1 = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
            спр1.Наименование = Б;
            спр1.Владелец = спр.Ссылка;
            спр1.Записать();
            Д.Номенклатура = спр.Ссылка;
            Д.Характеристики = спр1.Ссылка;
        КонецЕсли;
        Д.Номенклатура = Справочники.Номенклатура.НайтиПоНаименованию(СтрПолучитьСтроку(Стр1,1));
        Д.Характеристики = Справочники.ХарактеристикиНоменклатуры.НайтиПоНаименованию(СтрПолучитьСтроку(Стр1,2));
        Д.Количество = СтрПолучитьСтроку(Стр1,3);
        Д.Цена = СтрПолучитьСтроку(Стр1,4);
        Д.Сумма = Д.Количество * Д.Цена;
    КонецЦикла;
КонецПроцедуры
вот код он верен на половину
вместе с не сушесвуюшими позициями номенклатуры создает сушествуюшие в чем ошибка

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

в результате для каждой строки прочтенного файла ты получаешь два наименования последнего элемента справочника хар
и с ними сравниваешь?

вроде-б надо поискать в справочнике товаров, если нет - добавлять

(32) я сравниваю данные с текстового документа данными которые есть на справочнике

(33) ну ты посмотри, друже: опять повторю: в результате работы цикла ты получаешь ПОСледние значения, и только с ними сравниваешь, и так для каждой строки

+34 вот потому-то и появляются уже записанные ранее элементы.. условие
Если А <> Н И Б <> Х Тогда
выполняется ВСЕГДА

а как должно быть правильно Amigo подскажи блин целый день над этой задачей сижу

подскажите через че можно сравнить список в текстовом документе и список в справочнике и создать недостаюшие

(37)

Процедура КнопкаВыполнитьНажатие(Кнопка)
    
    ВыбНом = Справочники.Номенклатура;
    ВыбХар = Справочники.ХарактеристикиНоменклатуры;
    
    Текст = Новый ЧтениеТекста("C:\pos.ref", КодировкаТекста.ANSI);
    Стр = Текст.ПрочитатьСтроку();
    Пока Стр <> Неопределено Цикл // строки читаются до символа перевода строки
        
        Стр1 = СтрЗаменить(Стр,";",Символы.ПС);
        А = СтрПолучитьСтроку(Стр1,1);
        Б = СтрПолучитьСтроку(Стр1,2);
        НайденнаяНоменклатура = Выбном.НайтиПоНаименованию(А, Ложь); //с отрезанием левых символов
        Если НайденнаяНоменклатура.Пустая() Тогда
            //Такого Наименования Номенклатуры не найдено
            //организовать запись в Номенклатуру
            //...
            //записали..
            ы=0;
        Иначе
            //Есть такое значение в справочнике Номенклатура
            //не делать ничего, переход к следующей строке файла
            // если нет надобности проверять наличие Характеристики в ВыбХар
            //иначе - позаботиться о проверке и записи Характеристики из текущей строки
            
            // НайденнаяНоменклатура = ... : // Значение записанного элемента! убрать "//"
            
            НайденнаяХарактеристика = ВыбХар.НайтиПоНаименованию(Б, Ложь, , НайденнаяНоменклатура);
            
            Если НайденнаяХарактеристика.Пустая() Тогда
                //Создать новую запись в Спр Характеристик
                //...
                //...
                
            КонецЕсли;
            
            
        КонецЕсли;
        
        Стр = Текст.ПрочитатьСтроку(); //следующая
        
    КонецЦикла;    
    Текст.Закрыть();
    
КонецПроцедуры

+38 уважаемые форумчане, прошу покорнейше извинить за г-код, я надеюсь, ТС подправит его под себя.

или выклодывайте свои светлые варианты

(39) +
приведенный код - если НайденнаяХарактеристика должна быть записана только для нового (несуществующего) элемента спр.Номенклатуры.

если НайденнаяХарактеристика должна проверяться на наличие и для существующего элемента - тогда проверку
Если НайденнаяХарактеристика.Пустая() Тогда
//...
КонецЕсли;

надо вынести за "КонецЕсли" условия по проверке наличия наименования в спр.Номенклатуры

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Текст = Новый ЧтениеТекста("C:\pos.rep");
    Стр = Текст.ПрочитатьСтроку();
    Д = Товары.Добавить();
    Пока Стр <> Неопределено Цикл
        ВыбНом = Справочники.Номенклатура;
        ВыбХар = Справочники.ХарактеристикиНоменклатуры;
        Стр1 = СтрЗаменить(Стр,";",Символы.ПС);
        А = СтрПолучитьСтроку(Стр1,1);
        Б = СтрПолучитьСтроку(Стр1,2);
        НайденнаяНоменклатура = Выбном.НайтиПоНаименованию(А,Ложь);
        Если  НайденнаяНоменклатура.Пустая() Тогда
            спр = Справочники.Номенклатура.СоздатьЭлемент();
            спр.ВестиУчетПоХарактеристикам = Истина;
            спр.Наименование = А;
            спр.БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
            спр.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("товар");
            спр.Записать();
            Стр = Текст.ПрочитатьСтроку();
        КонецЕсли;
        НайденнаяХарактеристика = ВыбХар.НайтиПоНаименованию(Б,, , НайденнаяНоменклатура);
        Если НайденнаяХарактеристика.Пустая() Тогда
            спр1 = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
            спр1.Наименование = Б;
            спр1.Владелец = спр.Ссылка;
            спр1.Записать();
        КонецЕсли;
        Д.Номенклатура = спр.Ссылка;
        Д.Характеристики = СтрПолучитьСтроку(Стр1,2);
        Д.Количество = СтрПолучитьСтроку(Стр1,3);
        Д.Цена = СтрПолучитьСтроку(Стр1,4);
        Д.Сумма = Д.Количество * Д.Цена;
    КонецЦикла;
КонецПроцедуры

код че то не работает

(41) рабоатет же. ипофих, что строка в ТЧ одна, ты так захотел

(42) как вернее будет?

добавлять строку вТЧ несколько раз

(44) Wobland программно напиши как плз

Конкретная задача решается типовыми средствами в три шага.
1. Текст (а по факту это csv) преобразуется в Excel - таблицу.
2. Стандартной обработкой "загрузка данных из табличного документа" загружаются недостающие позиции в справочник номенклатуры.
3. Той же обработкой загружается таблица в регистр (или документ).

(46) надо считать с текстового документа без excel

вот так я в документ грузил

    Для й=15 По ПоследняяСтрока Цикл
        ОбработкаПрерыванияПользователя();
        ЭлементыФормы.Индикатор.Значение=ЭлементыФормы.Индикатор.Значение+1;
        Наименование=СокрЛП(Sheet.Cells(й, 2).Value);
        спр=Справочники.Номенклатура.НайтиПоНаименованию(Наименование);
        Если Sheet.Cells(й, 3).Value=Неопределено Тогда
            Продолжить;
        КонецЕсли;
        Если спр.Пустая() Тогда
            Сообщить("Номенклатура "+Наименование+" не найдена");
            Продолжить;
        КонецЕсли;
        Количество=Sheet.Cells(й, 4).Value;
        Количество=?(Цел(Количество)=Количество, Количество/1000, Количество);
        
        НоваяСтрока=Поступление.Товары.Добавить();
        НоваяСтрока.Номенклатура=спр;
        НоваяСтрока.ЕдиницаИзмерения=спр.ЕдиницаХраненияОстатков;
        НоваяСтрока.Коэффициент=1;
        НоваяСтрока.Количество=Количество;
        НоваяСтрока.Цена=Sheet.Cells(й, 5).Value;
        НоваяСтрока.Сумма=НоваяСтрока.Количество*НоваяСтрока.Цена;
        
        НоваяСтрока=Спецификация.Состав.Добавить();
        НоваяСтрока.Номенклатура=спр;
        НоваяСтрока.ЕдиницаИзмерения=спр.ЕдиницаХраненияОстатков;
        НоваяСтрока.Количество=Количество;
    КонецЦикла;

(48) wobland в моем как будет выглядеть я с excel гружу но пользуюсь готовой обработкой мне надо загрузить с текстового документа

(41) в чем ошибка? как строку добавлять в ТЧ несколько раз

(49) можно я не буду за тебя работать?

(51) плз подскажи как мне хотя бы сегодня эту задачу решить      
буду при многом благодарен

Стр1 = СтрЗаменить(Стр,";",Символы.ПС);
зачем?

(53) надо с текстового документа поместить на табличное поле вот из-за чего я делю

Надо разбирать строку, а ты наоборот в кучу лепишь

(55) мне хоть так а то код (41) не работает мне надо ее исправить

В общих модулях типовой конфигурации наверняка есть функция, которая из строки с разделителями выдаёт массив. А вот разбирая массив ты уже можешь дальше двигаться.

(56) Начни сначала: опиши алгоритм, что хочешь и откуда получить. Посмотри, что наваял в соответствии с твоим планом. Исправь ошибки и запускай с отладчиком по каждому шагу алгоритма. А "хоть так а то код не работает" - это детский лепет

(57) хотя бы так без массива (44) мне необходимо добавлять строку вТЧ несколько раз как не могу додуматься

(47)почему именно из текстового? текстовый файл создается для обмена какой-то сторонней системой?
в общем случае, сама постановка задачи некорректна - дополнять справочники НСИ на основании поиска по наименованию - это ярчайший пример гов№окода. Потом будете удивляться откуда в справочнике номенклатуры 5 ведер, а в справочнике характеристик 6 черных.

чтобы добавить строку в ТЧ используй метод .Добавить()

(60) это простая задача взять с текстового для начала потом можно и с excel И word и access поработать мне хоть с текстового документа для начала

(62) на вопрос-то можно ответить?
если пишется код автоматической обработки без участия оператора - то будет ровно так, как я описал.
если участие оператора подразумевается, то проще не плодить код, а пользоваться стандартными средствами.

(62)Наивный. Судя по твоим постам для тебе это не простая задача.

(63) ну будет че будет хоть так надо посмотреть че получиться

Нажми буковку Я рядом с сабжем. Там есть мильон примеров

(66) подскажи в чем проблема код почему не работает

(65) то есть это просто обучающая задача?
я бы разбил задачу на несколько частей.
1. Вывести форму с ТЧ и заполнить ТЧ данными текстового документа.
2. По значениям в ТЧ найти недостающие позиции справочников и дополнить их.
3. Заменить строковые значения в ТЧ на ссылки (включая дополненные значения в справочниках.
4. Заполнить целевой регистр (или документ).

(68) я ее почти решил необходимо в коде разобраться че там не работает

(69) ну навскидку по коду я вижу, что условие неправильное...
есть два разных независимых справочника, и проверять наличие в них записей нужно по отдельности.
потому что в твоем алгоритме если номенклатурной позиции (Ведро) нет, а характеристика (черный) есть - то новая номенклатурная позиция не создастся...

+ (70) не заметил второй вариант кода...
но он странный какой-то.
почему не пробежаться два раза по всем строкам, получить подстроку между 1-м и вторым вхождением символа ";" (т.е. номенклатуры), а потом между 2-м и 3-м (характеристики).

(53)
код

Стр1 = СтрЗаменить(Стр,";",Символы.ПС);

вполне логичен, т.к. за ним следуют две функции

А = СтрПолучитьСтроку(Стр1,1);
Б = СтрПолучитьСтроку(Стр1,2);

для определения позиции "строки в строке" и вырезки подстроки..

для первой строки из файла
А= "Конфеты"
Б=" Черный"
т.е. всё применено путём.

ну, а через массив или сз - это из 7-рочки :)

Процедура КнопкаВыполнитьНажатие(Кнопка)
    Товары.Очистить();
    ВыбНом = Справочники.Номенклатура;
    ВыбХар = Справочники.ХарактеристикиНоменклатуры;
    Текст = Новый ЧтениеТекста("C:\pos.rep");
    Стр = Текст.ПрочитатьСтроку();
    Пока Стр <> неопределено Цикл
        Стр = Текст.ПрочитатьСтроку();
        Если стр = неопределено Тогда
            прервать;
        КонецЕсли;
        Стр1 = СтрЗаменить(Стр,";",Символы.ПС);
        Д = Товары.Добавить();
        А = СтрПолучитьСтроку(Стр1,1);
        Б = СтрПолучитьСтроку(Стр1,2);
        НайденнаяНоменклатура = Выбном.НайтиПоНаименованию(А,Истина);
        НайденнаяХарактеристика = ВыбХар.НайтиПоНаименованию(Б,Истина);
        Если  НайденнаяНоменклатура.Пустая() И НайденнаяХарактеристика.Пустая() ИЛИ НЕ НайденнаяНоменклатура.Пустая() И НайденнаяХарактеристика.Пустая() ИЛИ НайденнаяНоменклатура.Пустая() И НЕ НайденнаяХарактеристика.Пустая() Тогда
            спр = Справочники.Номенклатура.СоздатьЭлемент();
            спр.ВестиУчетПоХарактеристикам = Истина;
            спр.Наименование = А;
            спр.БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
            спр.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("товар");
            спр.Записать();
            спр1 = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
            спр1.Наименование = Б;
            спр1.Владелец = спр.Ссылка;
            спр1.Записать();
        КонецЕсли;
        Если  НайденнаяНоменклатура.Пустая() И НайденнаяХарактеристика.Пустая() ИЛИ НЕ НайденнаяНоменклатура.Пустая() И НайденнаяХарактеристика.Пустая() ИЛИ  НайденнаяНоменклатура.Пустая() И НЕ НайденнаяХарактеристика.Пустая() Тогда
            Д.Номенклатура = Спр.Ссылка;
            Д.Характеристики = Спр1.Ссылка;
            Д.Количество = СтрПолучитьСтроку(Стр1,3);
            Д.Цена = СтрПолучитьСтроку(Стр1,4);
            Д.Сумма = Д.Количество * Д.Цена;
        Иначе
            Д.Номенклатура = НайденнаяНоменклатура.Ссылка;
            Д.Характеристики = НайденнаяХарактеристика.Ссылка;
            Д.Количество = СтрПолучитьСтроку(Стр1,3);
            Д.Цена = СтрПолучитьСтроку(Стр1,4);
            Д.Сумма = Д.Количество * Д.Цена;
        КонецЕсли;    
    КонецЦикла;
КонецПроцедуры

Вроде получилось и выходит
но он для одинаковой номенклатуры но с разными характеристиками создает заново эту же номенклатуру

(73) кто-нибудь что понял:
Если  НайденнаяНоменклатура.Пустая() И НайденнаяХарактеристика.Пустая() ИЛИ НЕ НайденнаяНоменклатура.Пустая() И НайденнаяХарактеристика.Пустая() ИЛИ НайденнаяНоменклатура.Пустая() И НЕ НайденнаяХарактеристика.Пустая() Тогда

а И б ИЛИ НЕ а И б ИЛИ а И НЕ б
морзянка какая-то

(75) :))

(75) работает зато

он создает номенклатуру которая уже есть в системе
одну номенклатуру с разными характеристиками он заново создает

(77) поздравлять?

(77) так это выражение эквивалентно: НЕ а И НЕ б
"Если Не НайденнаяНоменклатура.Пустая() И Не НайденнаяХарактеристика.Пустая() "

ахах выкладывать код скриншотом - это вы забавно придумали

(80) видал дополнительную строку в Если? копеечка. а их там две. казалось бы мелочь, но за строки плятят

(80) тогда уж надо:
Если  НайденнаяНоменклатура.Пустая() Тогда
....
ИначеЕсли НайденнаяХарактеристика.Пустая() Тогда

и т.д

(78) понятно что он создает ее на каждый чих... в этих условиях (И/ИЛИ/НЕ) черт ногу сломит.
сделай последовательную проверку - нашел номенклатуру - переходи к характеристике, нашел характеристику - переходи к следующей строке.

Сделал
Процедура КнопкаВыполнитьНажатие(Кнопка)
    Товары.Очистить();
    ВыбНом = Справочники.Номенклатура;
    ВыбХар = Справочники.ХарактеристикиНоменклатуры;
    Текст = Новый ЧтениеТекста("C:\pos.rep");
    Стр = Текст.ПрочитатьСтроку();
    Пока Стр <> неопределено Цикл
        Стр = Текст.ПрочитатьСтроку();
        Если стр = неопределено Тогда
            прервать;
        КонецЕсли;
        Стр1 = СтрЗаменить(Стр,";",Символы.ПС);
        Д = Товары.Добавить();
        А = СтрПолучитьСтроку(Стр1,1);
        Б = СтрПолучитьСтроку(Стр1,2);
        НайденнаяНоменклатура = Выбном.НайтиПоНаименованию(А,Истина);
        НайденнаяХарактеристика = ВыбХар.НайтиПоНаименованию(Б,Истина,,НайденнаяНоменклатура);
        Если  НайденнаяНоменклатура.Пустая() И НайденнаяХарактеристика.Пустая() Тогда
            спр = Справочники.Номенклатура.СоздатьЭлемент();
            спр.ВестиУчетПоХарактеристикам = Истина;
            спр.Наименование = А;
            спр.БазоваяЕдиницаИзмерения = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
            спр.ВидНоменклатуры = Справочники.ВидыНоменклатуры.НайтиПоНаименованию("товар");
            спр.Записать();
            спр1 = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
            спр1.Наименование = Б;
            спр1.Владелец = спр.Ссылка;
            спр1.Записать();
        ИначеЕсли НЕ НайденнаяНоменклатура.Пустая() И НайденнаяХарактеристика.Пустая() Тогда
            спр1 = Справочники.ХарактеристикиНоменклатуры.СоздатьЭлемент();
            спр1.Наименование = Б;
            спр1.Владелец = НайденнаяНоменклатура.Ссылка;
            спр1.Записать();
        КонецЕсли;
        Если НайденнаяНоменклатура.Пустая() И НайденнаяХарактеристика.Пустая() Тогда
            Д.Номенклатура = Спр.Ссылка;
            Д.Характеристики = Спр1.Ссылка;
            Д.Количество = СтрПолучитьСтроку(Стр1,3);
            Д.Цена = СтрПолучитьСтроку(Стр1,4);
            Д.Сумма = Д.Количество * Д.Цена;
        ИначеЕсли НЕ НайденнаяНоменклатура.Пустая() И НайденнаяХарактеристика.Пустая() Тогда        
            Д.Номенклатура = НайденнаяНоменклатура.Ссылка;
            Д.Характеристики = спр1.Ссылка;
            Д.Количество = СтрПолучитьСтроку(Стр1,3);
            Д.Цена = СтрПолучитьСтроку(Стр1,4);
            Д.Сумма = Д.Количество * Д.Цена;
        Иначе
            Д.Номенклатура = НайденнаяНоменклатура.Ссылка;
            Д.Характеристики = НайденнаяХарактеристика.Ссылка;
            Д.Количество = СтрПолучитьСтроку(Стр1,3);
            Д.Цена = СтрПолучитьСтроку(Стр1,4);
            Д.Сумма = Д.Количество * Д.Цена;
        КонецЕсли;    
    КонецЦикла;
КонецПроцедуры

проверял с отсутствующей номенклатурой?

(86) ошибку выдает

экий я хороший бесплатный тестировщик

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

(89) и дальше считает номенклатуру не найденной

(90) да

Зачем ты одновременно проверяешь наличие и номенклатуры и характеристики.
Создай в первом цикле вю недостающую номенклатуру (и пофиг на характеристики), во втором - все недостающие характеристики (номенклатура уже вся будет.