На главную ] Наверх ] Связаться ] Поиск ]


Штрих-код

 

 

На главную
Наверх

Вот еще один пример удачной автоматизации рутинной работы, в результате которой экономится до 1 часа рабочего времени ежедневно.

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

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

Все бы было так просто, если бы мы не использовали терминал-сервер. Как известно, работа сканера штрих-кодов в терминальном режиме сопряжена с достаточно большими трудностями. Мы не стали городить огород и написали свою внешнюю компоненту, которая принимает данные по определенному TCP/IP порту и генерирует событие 1С. Так же была написана программа, которая сидит в трее, слушает COM-порт и отправляет данные, полученные из COM-порта по установленному соединению компоненте.

Демо-версию можно загрузить здесь

В архиве два файла:

connector.exe - его надо запускать на рабочей станции. Пример запуска

connector.exe 1 4500

Где 1 - номер COM-порта (по умолчанию 1)

4500 - номер порта TCP (по умолчанию 4000)

AddIn.dll - собственно внешняя компонента для 1С

Перем Сканер;

Процедура ПриНачалеРаботыСистемы()
    ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"AddIn.dll");
    Сканер=СоздатьОбъект("AddIn.NetScaner");
    Сканер.УстановитьСоединение(4500,"5-MISHA");
// 2 параметра - номер порта для соединения и имя компа, с которым надо соединиться.
//Оба параметра необязательные (по умолчанию 4000 и значение переменной "ClientName"
КонецПроцедуры

Ну а далее - ОбработкаВнешнегоСобытия

 

На главную ] Наверх ]

Copyright © 2004 Андрей Попов сотоварищи
Last modified: ноября 02, 2004
Сайт управляется системой uCoz