Имя: Пароль:
1C
1С v8
Подскажите по штрих коду пожалуйста
0 max805
 
16.09.13
02:55
Люди помогите дятлу плиз.
Нужно в печатную форму вывести штрих-код (не картинку а цыфры что в справочнике номенклатуры) Как  сделать запрос  на штрих-код?
1 Чайник Рассела
 
16.09.13
03:06
в УТ есть готовая процедура получения штрихкода
2 Aleksey
 
16.09.13
03:11
Как сделать запрос к регистру сведений?
3 max805
 
16.09.13
03:21
Aleksey да
4 max805
 
16.09.13
03:36
UP
5 Balabass
 
16.09.13
03:37
Правой кнопкой по полю щелкнуть и выбрать пункт меню запрос.
6 max805
 
16.09.13
03:54
Balabass где нужно щелкнуть? щелкнул нет такого пункта
7 Rie
 
модератор
16.09.13
03:57
(6) Назовите конфигурацию, с которой работаете, - этим Вы дадите возможность отвечать Вам в терминах Вашей конфигурации.
8 Rie
 
16.09.13
03:59
+(7) Но даже назвав конфигурацию - не поленитесь сообщить, где (в каком регистре) хранятся у Вас штрих-коды, какие у этого регистра есть измерения и ресурсы, по каким имеющимся у Вас данным Вы намерены получать штрих-код.
9 max805
 
16.09.13
04:01
УТ 10.3
10 max805
 
16.09.13
04:02
РегистрСведений.Штрихкод
11 max805
 
16.09.13
04:02
все типовое
12 Rie
 
16.09.13
04:05
ВЫБРАТЬ
    ШтрихКоды.ШтрихКод
ИЗ
    РегистрСведений.ШтрихКоды КАК ШтрихКоды
ГДЕ
    ШтрихКоды.Номенклатура=&Номенклатура
    И ШтрихКоды.ЕдиницаИзмерения=&Единица
// а может быть, потребуются ещё условия - в зависимости
// от того, используются ли у Вас характеристики, серии и т.п.
13 Aleksey
 
16.09.13
04:06
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
|    ШтрихкодыНоменклатуры.Штрихкод                    КАК Штрихкод,
|ИЗ
|    РегистрСведений.ШтрихкодыНоменклатуры КАК ШтрихкодыНоменклатуры
|ГДЕ
|    ШтрихкодыНоменклатуры.Номенклатура = Номенклатура
|and    ШтрихкодыНоменклатуры.Характеристика = Характеристика
|and    ШтрихкодыНоменклатуры.Упаковка = Упаковка
|";
    
Запрос.УстановитьПараметр("Номенклатура", Номенклатура);
Запрос.УстановитьПараметр("Характеристика", Характеристика);
Запрос.УстановитьПараметр("Упаковка", Упаковка);
14 Aleksey
 
16.09.13
04:08
ТекРег = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьНаборЗаписей();
ТекРег.Отбор.Номенклатура.Установить(Номенклатура);
ТекРег.Отбор.Характеристика.Установить(Характеристика);
ТекРег.Отбор.Упаковка.Установить(Упаковка);
ТекРег.Прочитать();
Если ТекРег.Количество()=0 тогда
  ТекШтрихКод="";
Иначе
  ТекШтрихКод=ТекРег[0].Штрихкод;
КонецЕсли;