Имя: Пароль:
1C
1С v8
Подключение сканера ms5145 к самописной конфигурации 1с8.3
0 arkber84
 
17.02.15
12:08
Необходимо подключить сканер (подключенный  к COM порту) к самописной конфигурации (режим Управляемое приложение) на платформе 1с8.3. Версия    scanopos.dll 8.0.17. Почитал инет попытался сделать. Ничего не получилось.
В модуле УП пишу следующее
&НаКлиенте
Процедура ПриНачалеРаботыСистемы()
    Попытка
            ПодключитьВнешнююКомпоненту("scanopos.dll", "Сканер");
    Драйвер = Новый("AddIn.Сканер.Scanner");
        Сообщить("Компонента для сканера штрих-кодов загружена!");
    Исключение
        Сообщить ("Невозможно подключить внешнюю компоненту!");
    КонецПопытки;
    
    Попытка
        ВерсияИзДрайвера = Драйвер.ПолучитьНомерВерсии();
    Исключение
        Сообщить ("Невозможно определить версию драйвера!");
    КонецПопытки;
    
    Если Драйвер.Подсоединить("Сканер штрихкода") <> 0 Тогда
        Сообщить ("Ошибка (1) при подключении устройства!");
    КонецЕсли;    

    //сканер настроить - префикса нет, суффикс - CR

    Драйвер.БитДанных  = 8;
    Драйвер.Порт       = 1;
    Драйвер.Скорость   = 9600;
    Драйвер.СтопБит    = 1;
    Драйвер.СтопСимвол = 13; //CR - carriage return

    Драйвер.ИмяСобытия = "ПолученШтрихкод";

        Драйвер.УстройствоВключено = 1;
        Драйвер.ПосылкаДанных      = 1;
        Драйвер.ОчиститьВход();
        Драйвер.ОчиститьВыход();
        Сообщить("Сканер подключен и готов к работе!");
        //Драйвер.ТестУстройства();
        Если Драйвер.УстройствоВключено <> 1 Тогда
            //Отключить();

            Драйвер.УстройствоВключено = 0;
            Драйвер.Освободить();
            Драйвер.Отсоединить();
            Сообщить ("Ошибка (2) при подключении устройства!");
        КонецЕсли;    
КонецПроцедуры

В форме Элемента Спр Номенклатура пишу
&НаКлиенте
Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)    
        Сообщить(Данные);    
КонецПроцедуры

В 1сПредприятии открываю карточку номенклатуры, сканирую штрих код, но сообщения не проходит. Точка останова на строке Сообщить(Данные); не срабатывает.

В типовой УТ11 работатет
1 rotting
 
17.02.15
12:09
Используй БСП
2 arkber84
 
17.02.15
12:12
(1) Что такое БСП?
3 rotting
 
17.02.15
12:14
(2) библиотека стандартных подсистем
4 arkber84
 
17.02.15
14:04
(3) Скачал БСП 2.2.5.23.  Но там нет ничего связного с торговым оборудованием, со сканером ШК.
5 arkber84
 
17.02.15
14:33
ЗагрузитьВнешнююКомпоненту("C:\Program Files\1cv8\8.3.5.1443\bin\ScanOPOS.dll") Выдает ошибку Ошибка при загрузке внешней компоненты. Хотя библиотека лежит в .\8.3.5.1443\bin
6 arkber84
 
18.02.15
09:50
Разобрался  и подключил. Но теперь почему-то ОбработкаВнешнегоСобытия отрабатывает два раза, хотя прописал ее только в форме элемента спр номенклатура. Причем второй раз  параметр Данные - пустой. В чем может быть дело?
7 banco
 
18.02.15
10:55
(1) не БСП, а БПО(Библиотека подключаемого оборудования), там все очень просто.
Независимо от того, куда вы едете — это в гору и против ветра!