Имя: Пароль:
1C
1С v8
Обращение к процедуре объекта как к функции
0 Enlil
 
24.03.17
00:19
Подскажите почему ругается, вроде все написано верно
Ошибка "{ОбщаяФорма.QR.Форма(6)}:Обращение к процедуре объекта как к функции (ПоказатьСканированиеШтрихКодов)"

Вот мой код:


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

Процедура ОбрабСкан(Штрихкод, Результат, Сообщение, ДополнительныеПараметры)
    
ГСЧ = Новый ГенераторСлучайныхЧисел;
Результат = ГСЧ.СлучайноеЧисло(0,1);
    Если Результат Тогда
    
        СтрШтрихкода = Коды.НайтиСтроки(Новый структура("Штрихкод", Штрихкод));
        Нов = Коды.Добавить();
        Нов.Код = Штрихкод;
        Сообщение = "Новая позиция: "+ Штрихкод;
        
    КонецЕсли ;

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

Процедура ОбрабОткСкан(Сообщение)
    
Сообщить(Сообщение);

КонецПроцедуры
1 Enlil
 
24.03.17
00:21
Тьфу ты, простите за мою невнимательность и отнятое время
Поняла где не то написала
2 Zamestas
 
24.03.17
02:04
(1) Да не за что - помогли чем смогли.