Мобильная платформа 1С используется стандартный ввод-вывод и при сканировании штрих-кода длиной 68 символов (например алкомарка) на это уходить более 4-х секунд.
Данная программа обходит стандартный ввод-вывод и передает штрих-код на прямую в мобильную платформу 1С это занимает доли секунды.
Совместимое оборудование:
Драйвер разработан для использования в оборудовании на котором стоит SDK hht.emdk. Ну или иными словами если стоит утилина datawedge или datascan то скорее всего данный драйвер будет работать с вашим оборудованием.
Драйвер тестировался на оборудовании: АТОЛ Smart.Droid на android 4.4
Драйвер тестировался когда мобильные конфигруации 1C располагаются на веб сервере
Описание как пользоваться:
1. Установить драйвер сканера 1С
2. Установить мобильную платформу 1С (тестировалось на 8.3.10)
2.1. Прописать в константах ID мобильной базы
2.2. Организовать взаимодействие между мобильной платформой и драйвером :
2.2.1. обратиться из 1С к драйверу при открытии например так: см. ниже процедуру ПриОткрытии()
данным кодом вы передаете ID базы из которой происходит сканирование в драйвер сканера штрих-код
в ответ драйвер при сканировании будет передавать штрих-код именно по ID этой базы
( если же ID базы не передавать то штрих-код мобильная платформа не примет! )
ниже описан кода как пользоваться драйвером из 1С. Описан разбор отсканированного штрих-кода который пришел в мобильную платформу 1С из драйвера.
========================================================================
&НаКлиенте
Процедура ПриОткрытии(Отказ)
#Если МобильноеПриложениеКлиент Тогда
УстановитьПараметрыВДрайвереСканераТСД(ИдентификаторБазы Истина);
Параметр = Неопределено;
ОП = Новый ОписаниеОповещения("ОбработкаУведомлений" ЭтаФорма Параметр);
ДоставляемыеУведомления.ПодключитьОбработчикУведомлений(ОП);
#КонецЕсли
КонецПроцедуры
&НаКлиенте
Процедура УстановитьПараметрыВДрайвереСканераТСД(ИдентификаторБазы ПередаватьШтрихКодИзДрайвераВ1С)
#Если МобильноеПриложениеКлиент Тогда
Приложение = Новый ЗапускПриложенияМобильногоУстройства();
Приложение.ИмяКласса = "ru.palpet.scandriver1c.ViewActivity";
Приложение.Приложение = "ru.palpet.scandriver1c";
Приложение.Действие = "ru.palpet.scandriver1c.intent.action.MAIN";
Приложение.ДополнительныеДанные.Добавить("DB_ID" ИдентификаторБазы );
Приложение.ДополнительныеДанные.Добавить("transferBarcodeTo1C" ПередаватьШтрихКодИзДрайвераВ1С );
Приложение.Запустить(Ложь);
#КонецЕсли
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаУведомлений(Уведомление Локальное Показано ДопПараметры) Экспорт
СтруктураШтрихКода = Новый Структура("type length Barcode");
Текст = СтрЗаменить(Уведомление.Данные " " "");
Текст = СтрЗаменить(Текст "{" "");
Текст = СтрЗаменить(Текст "}" "");
Текст = СтрЗаменить(Текст "" Символы.ПС);
Для к = 1 По СтрЧислоСтрок(Текст) Цикл
ТекущаяСтрока = СтрПолучитьСтроку(Текст к);
ТекущаяСтрока = СтрЗаменить(ТекущаяСтрока """" "");
ТекущаяСтрока = СтрЗаменить(ТекущаяСтрока ":" Символы.ПС);
Если СтрПолучитьСтроку(ТекущаяСтрока 1) = "type" Тогда
СтруктураШтрихКода.Вставить("type" СтрПолучитьСтроку(ТекущаяСтрока 2) );
ИначеЕсли СтрПолучитьСтроку(ТекущаяСтрока 1) = "length" Тогда
СтруктураШтрихКода.Вставить("length" СтрПолучитьСтроку(ТекущаяСтрока 2) );
ИначеЕсли СтрПолучитьСтроку(ТекущаяСтрока 1) = "Barcode" Тогда
СтруктураШтрихКода.Вставить("Barcode" СтрПолучитьСтроку(ТекущаяСтрока 2) );
КонецЕсли;
КонецЦикла;
Если Не СтруктураШтрихКода.Свойство("Barcode") Тогда
Возврат;
КонецЕсли;
Сообщение = "";
АлкоКод = РасшифроватьМарку(СтруктураШтрихКода.Barcode);
Результат = ДобавитьТоварПоШтрихКоду(АлкоКод Сообщение СтруктураШтрихКода.Barcode);
КонецПроцедуры
========================================================================

The mobile platform is 1C standard I / O is used and when scanning a barcode with a length of 68 characters (for example an alkomark) it takes more than 4 seconds.
This program bypasses the standard input-output and transfers the barcode directly to the mobile platform 1C it takes a split second.
  Compatible hardware:
  The driver is designed for use in the hardware on which stands the SDH hht.emdk. Well in other words if you are using datawedge or datascan then most likely this driver will work with your hardware.
  The driver was tested on the hardware: ATOL Smart.Droid on android 4.4
  The driver was tested when the mobile 1C configurations are located on the web server
  Description of how to use:
  1. Install the 1C scanner driver
  2. Install the mobile platform 1C (tested on 8.3.10)
  2.1. Register in mobile database ID constants
  2.2. Organize the interaction between the mobile platform and the driver:
  2.2.1. turn from 1C to the driver when opening for example: see the procedure below for the opening ()
With this code you pass the database ID from which the bar code scanner is scanned to the driver
in response the driver will send a barcode to the scan using the ID of that database
(if the base ID does not transmit then the mobile platform will not accept the barcode!)
The following code describes how to use the driver from 1C. Describes the analysis of the scanned barcode that came to the mobile platform 1C from the driver.
================================================== ======================
& OnClient
Procedure for Disclosure (Waiver)
# If the Mobile Application Client then
Set the Parameters in the Scanner Driver TDD (Boolean ID True);
Parameter = Undefined;
OP = New Description of Alert ("Notification Processing" This Form Parameter);
Deliverable Notifications. Connect the Notification Handler (OP);
#Finally
End of the procedure
& OnClient
The procedure to set the parameters in the Scanner driver is TDD (BID ID Send Barcode ID to B1C driver)
# If the Mobile Application Client then
Appendix = New Application Launch of the Mobile Device ();
Attachment.Class name = "en.palpet.scandriver1c.ViewActivity";
Attachment = "ru.palpet.scandriver1c";
Attachment. Action = "en.palpet.scandriver1c.intent.action.MAIN";
Appendix. Additional Data. Add ("DB_ID" Identifier of the Database);
Appendix. Additional Data. Add ("transferBarcodeTo1C" TransmitStartCodificeB Driver);
Application. Start (False);
#Finally
End of the procedure
& OnClient
Procedure for processing Notifications (Notification Local Displayed Additional Parameters) Export
Structure of Bar Code = New Structure ("type length Barcode");
Text = String (Notification. Data "" "" ");
Text = String (Text "{" "");
Text = String (Text "}" "");
Text = String Replace (Text "" Symbols. PC);
For k = 1 According to String Number (Text) Cycle
CurrentString = StringChildLine (Text to);
CurrentString = StringChange (CurrentString "" "" "");
CurrentString = StringChange (CurrentString ":" Characters.PS);
If you receive a string (CurrentString 1) = "type" Then
Structure of the Bar Code. Insert ("type" StringChildLine (CurrentString 2));
Otherwise If the String is a String (CurrentString 1) = "length" Then
Structure of the Bar Code. Insert ("length" StringListString (CurrentString 2));
Otherwise If the String is a String (CurrentString 1) = "Barcode" Then
Structure of the Bar Code. Insert ("Barcode" StringListString (CurrentString 2));
End If;
End of the cycle;
If Not the Structure of String Codes. The property ("Barcode") Then
Return;
End If;
Message = "";
AlcoCod = Decrypt the Mark (Structure of Bar Code.Barcode);
Result = Add Product to SHARED CODE (AlcoCode Message StringCode.Barcode structure);
End of the procedure
================================================== ======================