Имя: Пароль:
1C
1С v8
Пишу загрузку в Штрих м Магазин-массив приход. накладной ,
0 anisa8310
 
19.11.13
02:27
Процедура КнопкаВыполнитьНажатие(Кнопка)
        
/////////////открытие 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]);
               Сообщить(НовыйШитрихКод.Наименование);          
              
               НовыйШитрихКод.Единица=Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("Владелец", НоваяНоменклатура.Ссылка);
                   
                
              
                 Сообщить (НовыйШитрихКод.Единица);
               НовыйШитрихКод.Записать();
               НоваяНоменклатура.Записать();
1 anisa8310
 
19.11.13
02:27
серьги оникс, родирование
2005191360016
Нельзя создать штрих-код без указания единицы
2 anisa8310
 
19.11.13
02:28
НовыйШитрихКод = Справочники.ШтрихКоды.СоздатьЭлемент();
                     
               НовыйШитрихКод.Владелец=НоваяНоменклатура.Ссылка;
               Сообщить(НовыйШитрихКод.Владелец);
               НовыйШитрихКод.Наименование = Строка(Массив[17]);
               Сообщить(НовыйШитрихКод.Наименование);          
              
               НовыйШитрихКод.Единица=Справочники.ЕдиницыИзмерения.НайтиПоРеквизиту("Владелец", НоваяНоменклатура.Ссылка);
3 anisa8310
 
19.11.13
02:29
как выйти на владельца справочника Единицыизмерения-ведь уже есть элемент он параллельно создается при создании номенклатуры и в ТЧ номенклатуры виден!
4 anisa8310
 
19.11.13
02:29
Всем доброй ночки)
5 anisa8310
 
19.11.13
02:50
все сделала)
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой