0
егаис
03.07.13
✎
11:29
|
ТиС 77
Процедура ПоискПоШК()
СтрокаШК = "";
Если ВвестиСтроку(СтрокаШК, "Введите штрихкод",13,0) = 1 Тогда
Запрос = СоздатьОбъект("Запрос");
ТекстЗапроса = "//{{ЗАПРОС(ШК)
|Владелец = Справочник.Единицы.Владелец;
|ШтрихКод = Справочник.Единицы.ШтрихКод;
|Группировка Владелец без Групп;
|Условие(ШтрихКод = СтрокаШК);
|"//}}ЗАПРОС
;
Если Запрос.Выполнить(ТекстЗапроса) = 1 Тогда
Если Запрос.Группировка(1) = 1 Тогда
АктивизироватьОбъект(Запрос.Владелец);
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Что не так, не ищет по введенному ШК ((
|
|