Возникла ситуация: 5 юзеров работают в 1С 7.7 под терминалом, на каждом рабочем месте присутствует ридер магнитных карт, подключенный через com-порт.
Праздный вопрос: как работать ридерами из 1С, которая стоит на сервере?
Вариантов решения данной проблемы в инете довольно много, предлагаю на Ваш суд еще один способ. Вот кусочек кода из глобальника при старте системы:
Это все прекрасно работает 2000 и 2003 серверах, для Citrix необходимо вместо "tsclient" использовать "client".
Таким способом подключал сканера штрих-кодов, ридеры, терминалы сбора данных, весы.
Праздный вопрос: как работать ридерами из 1С, которая стоит на сервере?
Вариантов решения данной проблемы в инете довольно много, предлагаю на Ваш суд еще один способ. Вот кусочек кода из глобальника при старте системы:
НомерПорта= 0
; Network= СоздатьОбъект("WScript.Network")
; WshShell=СоздатьОбъект("WScript.Shell")
;Если
СокрЛП(
Network.
UserName) = "kassa1" Тогда//определили имя терминального пользователя
НомерПорта= 1
; WshShell.
Run("cmd /c "+"net use /delete com1",0)
;//удалили com1, оставшийся от пред.сеанса
WshShell.
Run("cmd /c "+"net use com1 \\tsclient\com1",0)
;//добавили com1, для тек.пользователя ИначеЕсли
СокрЛП(
Network.
UserName) = "kassa2" Тогда
НомерПорта= 2
; WshShell.
Run("cmd /c "+"net use /delete com2",0)
; WshShell.
Run("cmd /c "+"net use com2 \\tsclient\com1",0)
;КонецЕсли
;Если
НомерПорта<> 0 Тогда //тут полет программерской мысли... Иначе //а вот здесь непредвиденная ситуация... КонецЕсли
;
Это все прекрасно работает 2000 и 2003 серверах, для Citrix необходимо вместо "tsclient" использовать "client".
Таким способом подключал сканера штрих-кодов, ридеры, терминалы сбора данных, весы.
