• Курсы Академии Кодебай, стартующие в мае - июне, от команды The Codeby

    1. Цифровая криминалистика и реагирование на инциденты
    2. ОС Linux (DFIR) Старт: 16 мая
    3. Анализ фишинговых атак Старт: 16 мая Устройства для тестирования на проникновение Старт: 16 мая

    Скидки до 10%

    Полный список ближайших курсов ...

Поиск документа в журналах документов

  • Автор темы pinhead
  • Дата начала
P

pinhead

Имеется журнал документов, в модуле формы журнала документов выполняется процедура "ОбработкаВнешнегоСобытия(Источник, Событие, Данные)", при выполнении которой в параметре "Данные" имеется число (номер документа).
Необходимо, чтобы в процессе выполнения прцедуры указатель переместился на документ с номером записанном в параметре "Данные".
Проще: имеется считыватель штрих кодов, надо чтобы после сканирования указатель в журнале документов позиционировался на документ с номером считанным сканером.
 
T

TimeDontWait

тоесть вы просто хотите поменять координаты мыши в определенный момент, или я не правильно понял ? а если так, то зачем стоко расписывать...
 
P

pinhead

тоесть вы просто хотите поменять координаты мыши в определенный момент, или я не правильно понял ? а если так, то зачем стоко расписывать...
Под указателем я понимаю не указатель мыши а вот это -
 

Вложения

  • Clipboard01.jpg
    Clipboard01.jpg
    33,6 КБ · Просмотры: 285
G

Gluk8888

Процедура ОбработкаВнешнегоСобытия(Источник,Событие,Данные)
Если Событие="BarCodeValue" Тогда
ТаблицаДоков = ПолучитьДокументыПоШтрихкоду(Данные); --- должна быть ваша обработка данных полученных со сканера ШК, в итоге должна получится таблица значений
Если ТаблицаДоков.КоличествоСтрок() <> 0 Тогда
Док = СоздатьОбъект("Документ");
Док.НайтиДокумент(ТаблицаДоков.ПолучитьЗначение(1,1));
Если Док.ДатаДок < НачалоИнтервала() Тогда
УстановитьИнтервал(Док.ДатаДок,КонецИнтервала(),1);
КонецЕсли;
Если Док.ДатаДок > КонецИнтервала() Тогда
УстановитьИнтервал(НачалоИнтервала(),Док.ДатаДок,1);
КонецЕсли;
АктивизироватьОбъект(Док.ТекущийДокумент());
КонецЕсли;
КонецЕсли;
КонецПроцедуры // ОбработкаВнешнегоСобытия
 
U

unknown181538

Между прочим, автор не указал платформу:) Конечно, по скрину видно...
:happy:
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!