0
Enlil
24.03.17
✎
00:19
|
Подскажите почему ругается, вроде все написано верно
Ошибка "{ОбщаяФорма.QR.Форма(6)}:Обращение к процедуре объекта как к функции (ПоказатьСканированиеШтрихКодов)"
Вот мой код:
&НаКлиенте
Процедура Сканировать(Команда)
#Если МобильноеПриложениеКлиент Тогда
Если СредстваМультимедиа.ПоказатьСканированиеШтрихКодов() Тогда
ОпСкан = Новый ОписаниеОповещения("ОбрабСкан", ЭтаФорма);
ОпОткСкан = Новый ОписаниеОповещения("ОбрабОткСкан", ЭтаФорма, "Отказ сканирования");
//СредстваМультимедиа.ПоказатьСканированиеШтрихКодов("Просканируйте код", ОпСкан, ОпОткСкан, ТипШтрихКода.Все);
СредстваМультимедиа.ПоказатьСканированиеШтрихКодов("Сканируйте", ОпСкан, ОпОткСкан, ТипШтрихКода.Все);
Иначе
Сообщить("Сканирование не поддерживается");
КонецЕсли
#КонецЕсли
КонецПроцедуры
Процедура ОбрабСкан(Штрихкод, Результат, Сообщение, ДополнительныеПараметры)
ГСЧ = Новый ГенераторСлучайныхЧисел;
Результат = ГСЧ.СлучайноеЧисло(0,1);
Если Результат Тогда
СтрШтрихкода = Коды.НайтиСтроки(Новый структура("Штрихкод", Штрихкод));
Нов = Коды.Добавить();
Нов.Код = Штрихкод;
Сообщение = "Новая позиция: "+ Штрихкод;
КонецЕсли ;
КонецПроцедуры
Процедура ОбрабОткСкан(Сообщение)
Сообщить(Сообщение);
КонецПроцедуры
|
|