Эмулятор работы сканера штрих-кода

Здесь уже есть эмулятор работы сканера штрих-кода, позволяющего эмулировать посылку штрих-кода любого выбранного товара, но мне он показался черезчур громоздким, поэтому написал простой:

&НаКлиенте
Процедура ПослатьКод(Команда)
ПодключитьОбработчикОжидания("ПослатьКодВСистему", 5, Ложь);
КонецПроцедуры

&НаКлиенте
Процедура ПослатьКодВСистему()
МассивПосыла = Новый Массив;
МассивПосыла.Вставить(0, "4605246009327"); //Это и есть штрихкод
МассивПосыла.Вставить(1, Неопределено);
Оповестить("ScanData", МассивПосыла, "ПодключаемоеОборудование");
КонецПроцедуры

Порядок работы. Вызвать обработку — откроется на закладке (см.скрин). Вызвать тот объект, штрих-код которого будет получен, в данном случае справочник Номенклатура (см.скрин). Перейти на закладку с обработкой и нажать кнопку «Послать код». Перейти на закладку с объектом и увидеть получение кода (в данном случае спустя 5 сек).

Можно заменить штрих-код на свой, можно вывести на форму, можно дописать посылку сразу нескольких ШК с выбранными интервалами — в общем, кому как потребуется. Ну, а кому лень писать даже простой код, могут скачивать.