Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
11 дек 2024, 21:39

Как получить штрихкод в ТиС?

Автор bespe4niy, 24 мар 2011, 21:49

0 Пользователей и 1 гость просматривают эту тему.

bespe4niy

Подскажите, пожалуйста, как в торговле и складе получить штрихкод? Я что то запутался, как он там завязан.
Вообщем, как в таблицу перенести штрихкод?

chirs

не соовсем ясный вопрос. Штрихкод - это определенное количество цифр (для некоторых типов и букв тоже), т.е. может быть занесен в обычный текстовый реквизит справочника. Так вот, где именно Вы хотите получить штрихкод ? в каком справочнике или документе ? поточнее напишите, где именно и что именно хотите добиться.

bespe4niy

Ну суть вот в чем. Мне надо перенести номенклатуру в другую конфигурацию.
это кусок обработки, она записывает номенклатуру в XBASE объект.
   сп=СоздатьОбъект("Справочник.Номенклатура");
   сц=СоздатьОбъект("Справочник.Цены");
   сп.ВыбратьЭлементы();
   сп.ПорядокКодов();
   сп.ОбратныйПорядок(1);
   дб.Добавить();
   Пока сп.ПолучитьЭлемент()=1 Цикл
      Если сп.ЭтоГруппа()=0 Тогда
         Состояние("Ном. код: "+сп.код);
         сц.ИспользоватьВладельца(сп.ТекущийЭлемент());
         Если сц.НайтиПоРеквизиту("ТипЦен",ТипЦены,0)=1 Тогда
            дб.Добавить();
           дб.kod=сп.код;
           дб.name=сп.наименование;
           дб.KodRod=сп.родитель.код;
            дб.EI=сц.Единица.Получить(РабочаяДата()).ОКЕИ.наименование;// Тут вот получаем единицу, но она есть в справочнике цены
            дб.Price=сц.цена.Получить(РабочаяДата());
            дб.prDate=РабочаяДата();

Вот мне теперь бы понять, как получить штрихкод, что бы тоже его перенести. Я так понял, что сам штрихкод является реквизитом справочника "единицы".

Вот кусок глПолучитьТоварПоШтрихкоду

   ОбЕдиница = СоздатьОбъект("Справочник.Единицы");
      ВремШтрихкод = глСформироватьШтрихкод(глПрефиксВесовогоШтрихкода, Сред(Штрихкод, 3, 5) + "00000");
      Рез = ОбЕдиница.НайтиПоРеквизиту("ШтрихКод", ВремШтрихкод, 1);
      
      Если Рез = 1 Тогда
         пТовар      = ОбЕдиница.Владелец;
         пЕдиница   = ОбЕдиница.ТекущийЭлемент();
         пКоличество   = Число(Сред(Штрихкод, 8, 5)) / 1000;
      КонецЕсли;

Тут  наименование, единица, цена там чуть дальше в обраболтке-получается через штрихкод, а вот как наоборот сделать чтобы бралось наименование,грубо говоря, и получался штрихкод этого товара. Вообщем надо получить штрихкод по товару))

prog1c7.7

для того, чтобы перенести номенклатуру,
надо перенести базовую единицу - спр единицы,
не будем забывать что этот справочник подчинен спр. номенклатура.
в спр единицы есть реквизит штрихкод - строка длины  13 ,
с нее и формируется РеквШтрихкодБазовой

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск