Пишу загрузку в Штрих м Магазин-массив приход. накладной ,

Процедура КнопкаВыполнитьНажатие(Кнопка)

/////////////открытие xls-документа
    Док = ПолучитьCOMОбъект(Путь);
    счСтроки = 1;

    ///////////Создаем новый документ
        НовыйДокумент= Документы.ПриходнаяНакладная.СоздатьДокумент();
        НовыйДокумент.Фирма = Справочники.Фирмы.НайтиПоКоду("0000001") ;
        НовыйДокумент.Дата = ДатаДокумента;
        НовыйДокумент.Контрагент =Контрагент;
        НовыйДокумент.Договор = Договор;
        НовыйДокумент.Склад = Справочники.Склады.НайтиПоНаименованию("Основной");
        НовыйДокумент.Валюта = Справочники.Валюты.НайтиПоКоду("643");
        НовыйДокумент.ТипЦен = Справочники.ТипыЦен.НайтиПоКоду("2");
        НовыйДокумент.Курс = "1";
        НовыйДокумент.Кратность = "1";
        НовыйДокумент.КурсВзаиморасчетов = "1";
        НовыйДокумент.КратностьВзаиморасчетов = "1";
        НовыйДокумент.ВходящаяДатаДокумента = ДатаВходДока;
        НовыйДокумент.ВходящийНомерДокумента = НомерВходДока;
        НовыйДокумент.ТорговыйОбъект = Справочники.ТорговыеОбъекты.НайтиПоКоду("00001");
        НовыйДокумент.ВариантРасчетаНДС=Перечисления.ВариантыРасчетаНДС.БезНДС;


    /////////////////////////Перебор строк

Пока Док.Sheets(1).Cells(счСтроки,1).Value <>Неопределено Цикл
    Стр=Док.Sheets(1).Cells(счСтроки,1).Value;
    //////////////Формирование массива товары
    Массив = Новый Массив(17);
           Для Сч=1 По 17 Цикл
            Позиция = Найти(Стр, "|");
            Массив.Вставить(сч,Сред(Стр, 1, Позиция-1));
            стр = Сред(Стр, Позиция + 1);
           КонецЦикла;



    /////////Создаем строку табличной части услуги
    Товары = НовыйДокумент.Товары.Добавить();
     ///////////////Выбираем/Создаем номенклатуру


     ЗагружаемаяНоменклатура=Справочники.ШтрихКоды.НайтиПоНаименованию(Массив[17]);
     Если ЗагружаемаяНоменклатура.Пустая()= Истина Тогда

               НоваяНоменклатура = Справочники.Номенклатура.СоздатьЭлемент();
              НоваяНоменклатура.Наименование = Строка(Массив[2]+" "+Массив[4]);
              НоваяНоменклатура.код1 = Строка(Массив[1]);
              НоваяНоменклатура.Артикул = Строка(Массив[3]);
              НоваяНоменклатура.Размер = Строка(Массив[6]);
              НоваяНоменклатура.Коллекция = Строка(Массив[7]);
              НоваяНоменклатура.вес = Строка(Массив[12]);
              НоваяНоменклатура.ГородСтрана = Строка(Массив[15]);
              НоваяНоменклатура.ДлиныйНомер = Строка(Массив[16]);
              НоваяНоменклатура.код2 = Строка(Массив[18]);
              НоваяНоменклатура.ВидНоменклатуры = Перечисления.ВидыНоменклатуры.Товар;
              НоваяНоменклатура.БазоваяЕдиницаПоКлассификатору = Справочники.КлассификаторЕдиницИзмерения.НайтиПоНаименованию("шт");
              НоваяНоменклатура.Комментарий = "Загруженая";
              НоваяНоменклатура.СтавкаНДС = Справочники.СтавкиНДС.НайтиПоКоду("50");
              НоваяНоменклатура.ОсновнойШтрихКод =  Строка(Массив[17]);
              НоваяНоменклатура.Записать();


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

               НовыйШитрихКод.Владелец=НоваяНоменклатура.Ссылка;
               Сообщить(НовыйШитрихКод.Владелец);
               НовыйШитрихКод.Наименование = Строка(Массив[17]);
               Сообщить(НовыйШитрихКод.Наименование);

               НовыйШитрихКод.Единица=Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("Владелец", НоваяНоменклатура.Ссылка);



                 Сообщить (НовыйШитрихКод.Единица);
               НовыйШитрихКод.Записать();
               НоваяНоменклатура.Записать();