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

регистр сведений штрихкод

Автор Sevak, 18 янв 2013, 14:44

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

Sevak

привет всем ....

подскажите пожалуйста как в регистре сведений по штрих коду найти владельца (1c 8.2, розница 1.0).

Я написал функцию `

Функция НаименованиеПоШтрихкоду(Штрихкод)

Запрос = Новый Запрос;
Запрос.Текст =  "ВЫБРАТЬ
| Штрихкоды.Владелец,
| Штрихкоды.Штрихкод
|ИЗ
| РегистрСведений.Штрихкоды КАК Штрихкоды
|ГДЕ
| Штрихкоды.Штрихкод = &ШК; ";
Запрос.УстановитьПараметр("ШК", Штрихкод);
Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
Возврат Выборка.Владелец;
   
КонецФункции


я вызываю функцию вот так` A = НаименованиеПоШтрихкоду("4850089000479");
при установке параметра выдает ошибку ` "переменная не определена (ШК)"????

СветланаCC

Приложение какое? обычное? или управляемое?
Покажите процедуру где вызываете данную функцию
Тазовод)

Sevak

вот и задача ...

у меня есть форма,кнопка и поле ввода...

мне надо нажать кнопку и в другом поле вводе увидит владельца этого штрих кода


Процедура Кнопка1Нажатие()
Запрос = Новый Запрос;

Запрос.Текст =  "ВЫБРАТЬ
| Штрихкоды.Владелец,
| Штрихкоды.Штрихкод
|ИЗ
| РегистрСведений.Штрихкоды КАК Штрихкоды
|ГДЕ
| Штрихкоды.Штрихкод ПОДОБНО &ШК ";

   

Запрос.УстановитьПараметр("ШК", ПолеВвода1);

Результат = Запрос.Выполнить();
Выборка = Результат.Выбрать();
    Выборка.Следующий();
ПолеВвода2 = Выборка.Владелец();   

КонецПроцедуры


СветланаCC

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

СветланаCC


Процедура КнопкаСформироватьНажатие(Кнопка)
// Вставить содержимое обработчика.
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Штрихкоды.Владелец
|ИЗ
| РегистрСведений.Штрихкоды КАК Штрихкоды
|ГДЕ
| Штрихкоды.Штрихкод = &Штрихкод";
Запрос.УстановитьПараметр("Штрихкод",Штрихкод);
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
//если с таб полем - то довавляем всех, кого нашли с этим штрихкодом -
НовСтрока = ТабЧасть.Добавить();
НовСтрока.Владелец = Выборка.Владелец;
КонецЦикла;
КонецПроцедуры
Тазовод)

Теги:

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

Рейтинг@Mail.ru

Поиск