Имя: Пароль:
1C
 
Не срабатывает внешнее событие Атол Smart.pro
,
0 YNiS
 
27.12.22
10:19
Всем добрый день и с наступающим!
Может кто знает как решить проблему, если в 2-ух словах, то
1 YNiS
 
27.12.22
10:19
В модуле формы событие проверить работу пытаюсь вот так:

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    
    КомпонентаБуфер = Новый("AddIn.Broadcasts.Clipboard");
    КомпонентаБуфер.Подключить(НомерУстройстваБуфера);
    
КонецПроцедуры

&НаКлиенте
Процедура ВнешнееСобытие(Источник, Событие, Данные)
    
    Сообщить("Работает!!");
    
КонецПроцедуры

Компоненту брал здесь: https://infostart.sterx.info/public/779912/
2 YNiS
 
27.12.22
10:25
Сам ТСД с бубном подключил вот так:
&НаКлиенте
Перем НомерУстройства;

#Если МобильноеПриложениеКлиент ИЛИ МобильноеПриложениеСервер ИЛИ МобильныйКлиент Тогда
    
Процедура ПриНачалеРаботыСистемы()
    ИмяСобытия         = "DATA_SCAN";
    ИмяКатегории     = "android.intent.category.DEFAULT";
        
    ScanDataLabel     = "com.hht.emdk.datawedge.data_string";
    ScanTypeLabel    = "com.hht.emdk.datawedge.label_type";
        
    Если ПодключитьВнешнююКомпоненту("ОбщийМакет.Component", "Broadcasts", ТипВнешнейКомпоненты.Native) Тогда
        Попытка
            Компонента = Новый ("AddIn.Broadcasts.UniversalBroadcast");
            Компонента.УстановитьПараметр("FilterName",ИмяСобытия);
            Компонента.УстановитьПараметр("Category",ИмяКатегории);
            ШаблонДанных = Компонента.ПолучитьШаблонОписанияДанных();
            Barcode = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(ШаблонДанных,
                                                        ScanDataLabel,
                                                        XMLСтрока(Ложь),
                                                        XMLСтрока(0));
            Компонента.УстановитьПараметр("CaptureData",BarCode);
            
            Если Не Компонента.Подключить(НомерУстройства) Тогда
                Сообщить("Не удалось подключить компоненту");
                ТекстОшибки = "";
                КодОшибки = Компонента.ПолучитьОшибку(ТекстОшибки);
                   Сообщить("Код ошибки:" + Строка(КодОшибки) + ", " + ТекстОшибки);
                ЗавершитьРаботуСистемы(Ложь);
            Иначе
                //Сообщить("Компонента Broadcasts подключена!");
                //глКомпонентаВключена = Истина;
            КонецЕсли;
        Исключение
            Сообщить(ОписаниеОшибки());
              Сообщить("Ошибка создания класса Component");
        Конецпопытки;        
    Иначе
        Сообщить("Компонента Component не загружена");
    КонецЕсли;

КонецПроцедуры
#КонецЕсли
Основная теорема систематики: Новые системы плодят новые проблемы.