Имя: Пароль:
1C
1С v8
Запись в регистр сведений
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 первый иногда пустой вот я так реализовал
Основная теорема систематики: Новые системы плодят новые проблемы.