Адаптируя РМК Розницы под "тачи" столкнулся с проблемой отсутствия нормальной символьно-цифровой экранной клавиатуры в конфигурации. В общем-то и не ожидал ее там найти. Попытался использовать Osk (стандартная клавиатура Windows), VK (бесплатная клавиатура). Можно использовать с большой натяжкой. Требуется указывать фокус на элемент ввода. И самое неприятное — их нельзя программно закрыть. По крайней мере ссылок на команды управления ими я не нашел.
Принял трудное решение написать свою "Экранку". Предлагаю вашему вниманию клавиатуру с открытым кодом для управляемых форм.
Обработка может открываться как файл и может быть подключена как дополнительная.
В комплекте также представлена обработка с примером вызова клавиатуры с обработкой оповещения нажатия на клавиши.
Клавиатура возвращает события: "Enter" и "Текст".
Если событие "Текст", то в параметре обработки оповещения содержится весь текст, набираемый на клавиатуре (не отдельный символ, а именно весь текст). Это обусловлено тем, что мы не имеем доступа к редактируемому тексту со стороны клавиатуры, но хотим использовать спец символы табуляция и "забой", передача которых в основную форму вызовет необходимость писать дополнительную обработку этих действий, что нам не хочется делать, ибо лень.
Событие "Enter" также вернет весь текст. По получению данного события можно программно закрыть клавиатуру (на усмотрение программиста) и выполнить требуемые действия с полученным текстом. По событию "Enter" буфер текста на стороне клавиатуры обнуляется.
Пример обработки оповещения:
//Оповещение срабатывает по нажатию клавиш во внешней обработке
&НаКлиенте
Процедура ОбработкаОповещения(ИмяСобытия, Параметр, Источник)
Если Источник = "Виртуальная клавиатура" Тогда
Если ИмяСобытия = "Текст" Тогда
ТекстоваяСтрока = Параметр.Текст;
ИначеЕсли ИмяСобытия = "Enter" Тогда
ТекстоваяСтрокаПриИзменении(Неопределено);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
Пример открытия клавиатуры:
//Вызов клавиатуры
&НаКлиенте
Процедура Клавиатура(Команда)
Попытка
//Если подключена как внешняя обработка
ОткрытьФорму("ВнешняяОбработка.ВиртуальнаяКлавиатура.Форма.Форма");
Исключение
//Откроем как файл.
//Помещаем обработку во временном хранилище
АдресХранилища = "";
Результат = ПоместитьФайл(АдресХранилища, ПутьКФайлуОбработки, , Ложь);
ИмяОбработки = ПодключитьВнешнююОбработку(АдресХранилища);
// Откроем форму подключенной внешней обработки
ОткрытьФорму("ВнешняяОбработка."+ ИмяОбработки +".Форма");
КонецПопытки;
КонецПроцедуры
&НаСервере
Функция ПодключитьВнешнююОбработку(АдресХранилища)
Возврат ВнешниеОбработки.Подключить(АдресХранилища);
КонецФункции
Тестировалось на платформе 8.3.13. Работает на любых конфигурациях на управляемых формах.
Файлы в архиве:
ВиртуальнаяКлавиатура.epf — основной файл. Обработка "Виртуальная клавиатура".
ВызовКлавиатуры.epf — пример вызова виртуальной клавиатуры.
Related Posts
Получение логина и пароля техподдержки 1С из базы
Класс для вывода отчета в Excel
Счет-фактура для УПП
Библиотека классов для создания внешней компоненты 1С на C#- Акт об оказании услуг (со скидками) — внешняя печатная форма для Управление торговлей 11.1.10.86
Прайс-лист с артикулом в отдельной колонке
Добавил возможность скрывать/показывать дополнительную цифровую клавиатуру кнопкой NUM.
еще бы хорошо бы чтоб были только цифры или только нужная раскладка.
(2) Только цифровую — сделаю. Если Вы скачали, скину изменение на почту (сообщите в ЛС). Только нужная раскладка — не совсем понятно. Сделал все раскладки, даже реакцию на шифт и капс. Убирайте ненужные группы раскладок кнопок и все.
ну я имел ввиду при вызове указывать типа только цифры , только цифры и знаки , только русские , только латинские , можно еще комбинации 🙂
(4) Понял. Сделаю. Только если мы не будем вызывать отдельную форму клавиатуры, а наложим ее в свою форму, то клавиатура растянется и кнопки будут прямоугольные.
Всем скачивающим клавиатуру прошу скинуть в ЛС электронную почту, чтобы я смог отправлять обновления.
Здравствуйте Евгений. Не могу писать вам ЛС
Можно пообщаться в вайбере? +992 92 756 66 05
Плохо, что ваша клавиатура не умеет работать с позицией курсора. Добавляет символ — только в конец строки. Удаляет — тоже только с конца.
(9) Это точно! Плохо.
Однако, клавиатура ни с чем не работает. Она всего лишь присылает в вашу форму нажатые клавиши. Далее программист сам должен организовать доставку символов в нужное поле.
При открытии обработки фокус переносится с активного элемента открывающей формы на открываемую. Открываемая не знает, где находился фокус. Даже если бы знала, она ничего не сможет сделать, к примеру, с полем табличной формы. И что с того, что она напишет в него букву А. Событие поиска не сработает, если программист не напишет свое событие обработки ввода символа с виртуальной клавиатуры.
ЗЫ. Думал, что Вы говорите про позицию курсора в вызывающей форме. Но это не меняет суть дела. Мы не можем отправить в форму клавиатуры позицию курсора в строке текста. Только, если организовать кэш ввода.
(9) Однако, можно пойти дальше. Можно воспользоваться скриптами, чтобы не присылать символы форме-владельцу, а имитировать нажатия на кнопки клавиатуры. Но, я не владею.
(11) Отправлять нажатия клавиш не сложно. Главное — установить активность в нужном поле ввода.
Например, вот такая команда обрабатывает нажатие кнопки Backspace.
Wsh = Новый COMОбъект(«WScript.Shell»); Wsh.SendKeys(«{BS}»);(12) Появится денек-другой, посмотрю, что еще можно сделать.
(12) Да, и еще. В момент нажатия на кнопку активна форма клавиатуры а не форма владелец. Вопрос. Как WScript-у дать понять в какую форму и в какой реквизит формы, и в какую часть текста этого реквизита надо кидать BS. Фокуса уже нет на этом реквизите! Кроме того, если клавиатура вызвана для редактирования строки ТЧ (например, ТЧ чека) Чтобы начать (начать, т.к. фокус пропал на строку) редактирование этой строки надо последовательно сделать 2х клик по строке (она станет выделена) щелкнуть по нужному месту строки (где до этого стоял курсор), и только после этого передавать данные с клавиатуры.