• 15 апреля стартует «Курс «SQL-injection Master» ©» от команды The Codeby

    За 3 месяца вы пройдете путь от начальных навыков работы с SQL-запросами к базам данных до продвинутых техник. Научитесь находить уязвимости связанные с базами данных, и внедрять произвольный SQL-код в уязвимые приложения.

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

    Запись на курс до 25 апреля. Получить промодоступ ...

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

  • Автор темы 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:
 
Мы в соцсетях:

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