Ввод электронной почты при считывании QR кода 1С УТ 11.5.7.367

Форум Учет и отчетность Торговый учет, опт и розница (Торговля)

1С:Управление торговлей 11

1. user1729112 21.03.22 08:23 Сейчас в теме

Добрый день.
Подскажите, пожалуйста.
Установлена 1С Предприятие 8.3.20, на ней Управление Торговлей 11.5.7.367. Настроена отправка чеков по электронной почте. Для того, чтоб облегчить ввод этой самой электронной почты, возможно ли использовать сканер ШК? При генерации электронной почти в QR код и последующего его сканирования на кассе в блокнот подставляет правильное значение, в "Тест устройства" в самой 1С, тоже подставляет значение. А в полее ввода на самой форме, не подставляет. Вообще ничего не происходит. Сканер подключен как клавиатура.

Прикрепленные файлы:

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. user1619761 21.03.22 08:29 Сейчас в теме

(1) добрый день. Какой тип у вас имеет поле, куда вводится почта?

3. user1619761 21.03.22 08:36 Сейчас в теме

И где у вас хранится почта в 1с? Если нигде и вы просто адрес электронной почты привязали к qr коду, то, как вариант, попробовать к qr коду почты привязать набор цифр, например, записать в рс в качестве измерения, и в качестве измерения/ресурса привязать адрес электронной почты, а в 1с в обработке оповещения уже прописывать условия, как пример

&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)

АдресПочты = ПроверитьПочту(Параметр);

Если АдресПочты = Неопределено Тогда

Предупреждение/Сообщить("Адрес почты по данному штрихкоду отсутствует");

КонецЕсли;

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

&НаКлиенте
Функция ПроверитьПочту(Штрихкод)

НаборЗаписей = РегистрыСведений.АдресаЭлектроннойПочты.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Штрихкод,Установить(Штрихкод);
НаборЗаписей.Прочитать();

Если Не НаборЗаписей.Количество() = 0 Тогда

Возврат НаборЗаписей[0].АдресПочты;

Иначе

Возврат Неопределено;

КонецЕсли;

КонецФункции

Показать

Оставьте свое сообщение

E-mail: