0
irlandets1980
06.10.11
✎
16:42
|
В наличии ТДС opticon phl-1300 и 1с 8.2
для загрузки данных написал процедуру:
Процедура КнопкаВыполнитьНажатие(Кнопка)
//
Попытка
ПодключитьВнешнююКомпоненту("AddIn.Terminals");
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
Попытка
Драйвер = Новый("AddIn.Terminals");
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
Драйвер.НомерПорта = Порт;
Драйвер.НомерФормы = 1;
Сообщить("Порт: COM"+Драйвер.НомерПорта);
Драйвер.УстройствоВключено = 1;
Сообщить("Включение: "+Драйвер.ОписаниеРезультата);
Сообщить("Получение параметров устройства: "+Драйвер.ОписаниеРезультата);
Если Драйвер.Результат = 0 Тогда
Если Драйвер.ОчиститьБуферТаблицы() = 0 Тогда
Если Драйвер.НачалоОтчета() <> 0 Тогда
Для ТекЗапись = 1 по Драйвер.КоличествоЗаписей Цикл
Драйвер.ПолучитьЗапись();
Если Драйвер.Результат = 0 Тогда
Сообщить("Получен штрихкод: "+Драйвер.Поле1);
Иначе
Сообщить("Ошибка получения штрихкода: "+Драйвер.ОписаниеРезультата);
Драйвер.ПрерватьОперацию();
Прервать;
КонецЕсли;
КонецЦикла;
Драйвер.КонецОтчета();
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПроцедуры
как только доходит до Драйвер.НачалоОтчета() виснет намертво ....
В чем может быть дело ?
Причем если с тдс удалить все формы и тупо считывать штрихи не ставнивая их с тем что в тдс то все работает .Стоит загрузить формы и ввсе виснет.
|
|