Вход | Регистрация

1С:Предприятие ::

Метки: 

Программное изменение штрикхода

Я
   Tumakota
 
18.07.18 - 10:02
Появилась задача, изменить штрихкода в районе 5000 тысяч, руками конечно это нереально. (Конфигурация Управление торговлей 11.4). В регистре штрихкод, теперь одно измерение это сам штрихкод.
        Набор = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьНаборЗаписей();
        Набор.Отбор.Штрихкод.Установить(СокрЛП((Excel.Cells(НачальнаяСтрока,КолонкаШтрихкодаПоиск).Text)));
        Набор.прочитать();
        если Набор.количество() > 0 тогда 
            для каждого запись из Набор Цикл
                запись.ШтрихКод = СокрЛП((Excel.Cells(НачальнаяСтрока,КолонкаШтрихкодЗамена).Text));
            конеццикла
        КонецЕсли;
        
        Набор.Записать();


Поэтому при записи он выдает мне ошибку что новая запись не соответствует отбору. Как программно перезаписать штрихкод в УТ 11
 
  Рекламное место пустует
   hhhh
 
1 - 18.07.18 - 10:03
(0) создать новый штрихкод, старый стереть.
   Cool_Profi
 
2 - 18.07.18 - 10:12
Через менеджер записи попробуй. Или тупо скулем.
   hhhh
 
3 - 18.07.18 - 10:14
(0) просто штрихкод - это измерение. Набор по одному значению измерения. Значит два набора должно быть.
   Tumakota
 
4 - 18.07.18 - 10:18
В принципе все норм вот тут только не удаляет)

        Набор = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьНаборЗаписей();
        Набор.Отбор.Штрихкод.Установить(СокрЛП((Excel.Cells(НачальнаяСтрока,КолонкаШтрихкодаПоиск).Text)));
        Набор.прочитать();
        если Набор.количество() > 0 тогда 
            для каждого запись из Набор Цикл
                Номенклатура = Запись.Номенклатура;
                Характеристика = Запись.Характеристика;
                Единица = Запись.Упаковка;
            конеццикла;
            
        Набор.Удалить(Запись);
        КонецЕсли;
        
        
        новШк = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьМенеджерЗаписи();
        новШк.Номенклатура     = Номенклатура;
        новШк.Упаковка = Единица;
        новШк.Характеристика     =    Характеристика;
        новШк.Штрихкод = СокрЛП((Excel.Cells(НачальнаяСтрока,КолонкаШтрихкодЗамена).Text));
        новШк.Период = ТекущаяДата();
        Попытка
            новШк.Записать();
        Исключение
        КонецПопытки;
   hhhh
 
5 - 18.07.18 - 10:20
(4) набор.записать()

забыл
   Tumakota
 
6 - 18.07.18 - 10:22
Все всем спкасибо:)


Список тем форума
Рекламное место пустует  
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Рекламное место пустует