Приветствую!

1С 7.7, сервер терминалов Win2003, сканер Honeywell, дрова Атол 6.5.3.
В доке Расход, при считывании ШК, добавляется новый товар в ТЧ документа. Все работает как часы, кроме одного НО:
Когда сканируются быстро разные ШК, сканер может пропустить один ШК, т.е. он пищит но новый товар не добавляется в документе и его надо просканировать еще раз.
В чем может быть проблема?

А если штрих код не найден 1С об этом говорит ? Штрих код случаем не красный ? чёрный ?

(0) дрова от сканера не на клиента поставьте, а не сервер в теминалку ))

просто терминал за сканером не успевает...

(1) Говорит

(2) Все так и есть

(0) имхо 1с не успевает отрабатывать событие , видимо долго у вас поиск номенклатуры происходит или еще чего там

+(4) если открыть блокнот и туда сканировать , все шк добавятся ?

(4) Да, список номенклатуры большой....
В блокнот сканирует

(6) смотри процедуру внешнего события , может получится что то оптимизировать , ну или скажи , что б сканировали чуть помедленнее

Глоб мод:

Процедура ПриНачалеРаботыСистемы()

Если ЗагрузитьВнешнююКомпоненту("Scaner1C.DLL") = 0 Тогда
        Сообщить("Не удалось загрузить внешнюю компоненту Scaner1C.DLL");
    Иначе
        Попытка
            Сканер = СоздатьОбъект("AddIn.Scaner45");
        Исключение
        КонецПопытки;
        
        Если ПустоеЗначение(Сканер) = 1 Тогда
            Сообщить("Не удалось создать объект внешней компоненты с программым идентификатром AddIn.Scaner45");
        Иначе  
            
            Сканер.AutoDisable = 1;
            Сканер.DataEventEnabled = 1;
            //Сканер.УстройcтвоВключено = 0;
            Сканер.УстройствоВключено = 1;
            
            Если Сканер.Результат <> 0 Тогда
                Сообщить("Не удалось включить устройство");
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;

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

Модуль формы дока:

Процедура ПриОткрытии()

    Если ЗагрузитьВнешнююКомпоненту("Scaner1C.DLL") = 0 Тогда
        Сообщить("Не удалось загрузить внешнюю компоненту Сканер");
    Иначе
        Попытка
            Сканер = СоздатьОбъект("AddIn.Scaner45");
        Исключение
        КонецПопытки;
        
        Если ПустоеЗначение(Сканер) = 1 Тогда
            Сообщить("Не удалось создать объект внешней компоненты с программым идентификатром AddIn.Scaner45");
        Иначе  
            
            Сканер.AutoDisable = 1;
            Сканер.DataEventEnabled = 1;
            //Сканер.УстройcтвоВключено = 0;
            Сканер.УстройствоВключено = 1;
            
            Если Сканер.Результат <> 0 Тогда
                Сообщить("Не удалось включить Сканер");
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;

    Для i = 1 По Сканер.DataCount Цикл
        Сканер.EventNumber = i;
        Сканер.DeleteEvent();
    КонецЦикла;      

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


Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные) Экспорт
    
    Если Событие = "BarCodeValue" Тогда
        вар = 0;
        Тов = СоздатьОбъект("Справочник.Товары");

        Сканер.DataEventEnabled = 1;
        
        ШК = Сканер.ScanData;
        
        Если (Тов.НайтиПоРеквизиту("ШтрихКод",ШК,1)) = 1 Тогда    
             НоваяСтрока();  
                  ТМЦ1 = Тов.ТекущийЭлемент();  
        КонецЕсли;            
        
        Для i = 1 По Сканер.DataCount Цикл
            Сканер.EventNumber = i;
            Сканер.DeleteEvent();
        КонецЦикла;    
    КонецЕсли;
КонецПроцедуры

+(8) Вот какой у меня код

(8)(9) в "ОбработкаВнешнегоСобытия" засунь Сообщить("ШК "+ШК );

после
ШК = Сканер.ScanData;
и перед
Если (Тов.НайтиПоРеквизиту("ШтрихКод",ШК,1)) = 1 Тогда

затем устрой стресс-тестирование и проверь все ли ШК считались

форму документа обновляй, возможно, ты просто не видишь новуюстроку, хотя она ужо есть

(11) угу а еще может не видно новой строки потому что такой ШК уже забит ))
и просто кол-во увеличивается в одной из старых строк да? ))

(12) Для этого есть код (я просто его не вставил сюда)

Для ном=1 По КоличествоСтрок() Цикл
  ПолучитьСтрокуПоНомеру(КоличествоСтрок()-Ном+1);
     Если СокрЛП(ТМЦ1.ШтрихКод) = СокрЛП(ШК) Тогда
       Количество = Количество + 1;  
     КонецЕсли;
КонецЦикла;

(11) Спасибо, уважаемый  (оффтоп: так что там на счет СбросМодифицированности() - вы так и не ответили  :)

(13) на счет модифицированности, что за ветка то хоть ?

(14) c форума 1c++

аа... я не помню ужо, но на счет именно формековского метода - он видать криво отрабатывает в форме нового дока, ежели док записан - то всё ровно, метод работает.

ОК,спс.
На счет сканера есть еще другие мысли?

17) окромя как вставить в окошко сообщения что товар найден/не найден/добавлен не добавлен - нема..

да еще, ежели дрова с атолла, то не последние, надеюсь ?
А то они платные и в них стоит задержка на событие от сканёра..

на сколько я помню, DTO6_2009_02_11
вот эти последние халявные.

и рабочие