|
Запись в регистр сведений | ☑ | ||
---|---|---|---|---|
0
Triton_11
23.04.14
✎
13:04
|
У меня с excel загружаются 2 вида штрих кода мне оба необходимо записать в регистр сведений ШтрихКоды как можно это реализовать во внешней обработке
|
|||
1
Triton_11
23.04.14
✎
13:04
|
(0) у каждого номенклатруры 2 вида штрих кода
|
|||
2
Господин ПЖ
23.04.14
✎
13:04
|
это сильное колдунство
|
|||
3
Ненавижу 1С
гуру
23.04.14
✎
13:06
|
как пробовал, что не получилось?
|
|||
4
Shurjk
23.04.14
✎
13:10
|
(0) Заплатить денег и тебе махом такое реализуют.
|
|||
5
Triton_11
23.04.14
✎
13:11
|
(3)
А = СтрЗаменить(СтрокаТаблицы.Штрихкод,";",Символы.ПС); ЗапросШтр = Новый Запрос; ЗапросШтр.Текст = "ВЫБРАТЬ | Штрихкоды.Штрихкод |ИЗ | РегистрСведений.Штрихкоды КАК Штрихкоды |ГДЕ | Штрихкоды.Владелец = &Владелец"; ЗапросШтр.УстановитьПараметр("Владелец", СтрокаТаблицы.Номенклатура); Если ЗапросШтр.Выполнить().Пустой() Тогда Первый = СтрПолучитьСтроку(А,1); Второй = СтрПолучитьСтроку(А,2); ТекЗапись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи(); ТекЗапись.Владелец = СтрокаТаблицы.Номенклатура; ТекЗапись.ЕдиницаИзмерения = СтрокаТаблицы.Номенклатура.ЕдиницаХраненияОстатков; ТекЗапись.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13; ТекЗапись.Качество = Справочники.Качество.Новый; ТекЗапись.ХарактеристикаНоменклатуры= СтрокаТаблицы.Характеристика; ТекЗапись.Штрихкод = Второй; Если Первый = " " Тогда Первый = СтрПолучитьСтроку(А,1); Второй = СтрПолучитьСтроку(А,2); ТекЗапись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи(); ТекЗапись.Владелец = СтрокаТаблицы.Номенклатура; ТекЗапись.ЕдиницаИзмерения = СтрокаТаблицы.Номенклатура.ЕдиницаХраненияОстатков; ТекЗапись.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13; ТекЗапись.Качество = Справочники.Качество.Новый; ТекЗапись.ХарактеристикаНоменклатуры= СтрокаТаблицы.Характеристика; ТекЗапись.Штрихкод = Второй; Иначе Первый = СтрПолучитьСтроку(А,1); Второй = СтрПолучитьСтроку(А,2); ТекЗапись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи(); ТекЗапись.Владелец = СтрокаТаблицы.Номенклатура; ТекЗапись.ЕдиницаИзмерения = СтрокаТаблицы.Номенклатура.ЕдиницаХраненияОстатков; ТекЗапись.ТипШтрихкода = ПланыВидовХарактеристик.ТипыШтрихкодов.EAN13; ТекЗапись.Качество = Справочники.Качество.Новый; ТекЗапись.ХарактеристикаНоменклатуры= СтрокаТаблицы.Характеристика; ТекЗапись.Штрихкод = Первый; КонецЕсли; Штрих кодов где то 1000 первый иногда пустой вот я так реализовал |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |