Имя: Пароль:
1C
1С v8
Помогите с Терминалом сбора данных
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);
                       
                   Иначе
                       
                       Сообщить("Ошибка получения штрихкода: "+Драйвер.ОписаниеРезультата);
                       Драйвер.ПрерватьОперацию();
                       
                       Прервать;
                       
                   КонецЕсли;
                   
               КонецЦикла;
               
               Драйвер.КонецОтчета();
           КонецЕсли;
       КонецЕсли;
   КонецЕсли;
КонецПроцедуры

как только доходит до Драйвер.НачалоОтчета() виснет намертво ....


В чем может быть дело ?
Причем если с тдс удалить все формы и тупо считывать штрихи не ставнивая их с тем что в тдс то все работает .Стоит загрузить формы и ввсе виснет.