Имя: Пароль:
1C
1С v8
сделать активным штрих код
,
0 _barracuda_
 
20.07.17
16:03
добрый день.управляемой приложение .разместил на форме поле ввода ШК хочу чтобы пользователь сканировал и поле оставалось пустым.у них нет ТСД и они хотят сканировать бесперерыва. разместил ПриИзменении код

&НаКлиенте
Процедура ШКПриИзменении(Элемент)
    ОбработатьШтрихкоды(ШтрихкодированиеНоменклатурыКлиент.ПолучитьСтруктуруДанныхШтрихкода(ШК, 1));
    ШК="";
    ЭтаФорма.ТекущийЭлемент = Элементы.ШК;
КонецПроцедуры


но все равно реквизит не активен после ввода штрих кода
1 Cyberhawk
 
20.07.17
17:07
Сколько платят за решение вопроса?
2 _barracuda_
 
20.07.17
17:07
есть варианты решения?
3 Cyberhawk
 
20.07.17
17:09
А ты там кем?
4 Ц_У
 
20.07.17
17:20
(3) сканером видимо
5 Ц_У
 
20.07.17
17:22
Процедура ШКОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, СтандартнаяОбработка)

    Текст = "";
    ЭтаФорма.ТекущийЭлемент = Элементы.ШК;
КонецПроцедуры
6 Ц_У
 
20.07.17
17:23
(5) ну и СтандартнаяОбработка = ложь
7 _barracuda_
 
20.07.17
17:26
(5) сделал-ничего,и так делал     Элементы.ШК.АктивизироватьПоУмолчанию=Истина;
ничего
8 Ц_У
 
20.07.17
17:28
(7) ты ему это свойство включи, а у остальных выключи
9 _barracuda_
 
20.07.17
17:29
(6) добавил вообще при вводе штрих кода стал писать не найдено

&НаКлиенте
Процедура ШКОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, СтандартнаяОбработка)
    Текст = "";
    ЭтаФорма.ТекущийЭлемент = Элементы.ШК;
    Элементы.ШК.АктивизироватьПоУмолчанию=Истина;
    СтандартнаяОбработка = ложь;
КонецПроцедуры
10 _barracuda_
 
20.07.17
17:31
(8) это свойсвто у всех выключено
11 Ц_У
 
20.07.17
17:35
(9) ты свою лабуду забыл туда вписать по обработке шк
12 Злопчинский
 
20.07.17
17:36
сделай на форме только одно поле на которое может фокус садиться без всяких других активных элементов
13 _barracuda_
 
20.07.17
17:44
(11)

&НаКлиенте
Процедура ШКОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, СтандартнаяОбработка)
    ОбработатьШтрихкоды(ШтрихкодированиеНоменклатурыКлиент.ПолучитьСтруктуруДанныхШтрихкода(ШК, 1));
    Текст = "";
    ЭтаФорма.ТекущийЭлемент = Элементы.ШК;
    Элементы.ШК.АктивизироватьПоУмолчанию=Истина;
    СтандартнаяОбработка = ложь;
КонецПроцедуры


все равно фиг
14 Dvoe4nik
 
20.07.17
17:48
(13)  ОбновитьОтображениеДанных()?
15 Ц_У
 
20.07.17
18:08
я хз.
а так ?

Процедура ШКОкончаниеВводаТекста(Элемент, Текст, ДанныеВыбора, ПараметрыПолученияДанных, СтандартнаяОбработка)
СтандартнаяОбработка = ложь;
Элементы.ШК.АктивизироватьПоУмолчанию=Истина;   ОбработатьШтрихкоды(ШтрихкодированиеНоменклатурыКлиент.ПолучитьСтруктуруДанныхШтрихкода(ШК, 1));
    Текст = "";
    ЭтаФорма.ТекущийЭлемент = Элементы.ШК;
    
    
КонецПроцедуры