|
Подскажите по штрих коду пожалуйста |
☑ |
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
|
|
|
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].Штрихкод;
КонецЕсли;
|
|
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший