|
Процедура Внешнее событие не срабатывает документе Возврат товаров в Розница 2.0
| ☑ |
0
memogolik
03.02.15
✎
17:27
|
База локальная файловая. Сканер штрихкода подключен через USB.Обработчик драйвера - 1С: Сканеры штрихкода. В настройках оборудования через COM1. При этом при нажатии на клавишу поиск по штрихкоду работает штатно.
Хочу чтобы по считыванию определенного ШК программа выполняла некий дополнительный код(снимала блокировку на проведение).
Делаю предопределенную процедуру в модуле формы документа.
&НаКлиенте
Процедура ВнешнееСобытие(Источник, Событие, Данные)
ВнешнееСобытиеНаСервере();
КонецПроцедуры
&НаСервере
Процедура ВнешнееСобытиеНаСервере()
//Вставить содержимое обработчика
КонецПроцедуры
При установке точек останова в любую из вышеперечисленных процедур отладчик не останавливается.
При этом при нажатии на сканере ШК происходит попытка заполнить выделенный реквизит на форме значением ШК со сканера.
Подскажите, как решить проблему? Заранее спасибо за ответы.
|
|
1
Зеленый пень
03.02.15
✎
17:28
|
(0) Значит сканер работает в режиме клавиатурного.
|
|
2
memogolik
03.02.15
✎
17:32
|
И в процедуру ВнешнееСобытие его никак не запихать?
>Хочу чтобы по считыванию определенного ШК программа выполняла некий дополнительный код(снимала блокировку на проведение).
|
|
3
memogolik
03.02.15
✎
17:39
|
ап
|
|
4
Strogg
03.02.15
✎
17:42
|
а сервер ТО подключен точно?
|
|
5
memogolik
03.02.15
✎
17:45
|
(4) это вроде только в ут10
|
|
6
memogolik
03.02.15
✎
17:46
|
&НаКлиенте
Процедура ПриОткрытии(Отказ)
// ПодключаемоеОборудование
Если ИспользоватьПодключаемоеОборудование
И МенеджерОборудованияКлиент.ОбновитьРабочееМестоКлиента() Тогда
ОписаниеОшибки = "";
ПоддерживаемыеТипыВО = Новый Массив();
ПоддерживаемыеТипыВО.Добавить("СканерШтрихкода");
ПоддерживаемыеТипыВО.Добавить("СчитывательМагнитныхКарт");
Если Не МенеджерОборудованияКлиент.ПодключитьОборудованиеПоТипу(УникальныйИдентификатор, ПоддерживаемыеТипыВО, ОписаниеОшибки) Тогда
ТекстСообщения = НСтр("ru = 'При подключении оборудования произошла ошибка:
|""%ОписаниеОшибки%"".'");
ТекстСообщения = СтрЗаменить(ТекстСообщения, "%ОписаниеОшибки%", ОписаниеОшибки);
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(ТекстСообщения);
КонецЕсли;
КонецЕсли;
// Конец ПодключаемоеОборудование
КонецПроцедуры
Никаких ошибок не выдает
|
|