|
Пишу загрузку в Штрих м Магазин-массив приход. накладной , | ☑ | ||
---|---|---|---|---|
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
|
все сделала)
|
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |