ИнфоАптека ®

Автоматизация аптек и аптечных сетей

Инструменты пользователя

Инструменты сайта


user:vmsirenko:закрыть_колонку_в_таблице_на_кассе

Закрыть колонку в таблице на кассе

Для уменьшения пересортицы, поставлена задача усложнить возможность ввода внутреннего штрих-кода, с помощью скрытия соответствующей колонки в окне «Запасы отдела» модуля Касса. Так как касс больше 150 и если уделять каждой не более 5 минут для настройки, то ударными темпами и за два рабочих дня можно выполнить задачу.

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

Скрипт

reg_kassa.vbs
Dim IID
Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
' Закрывает колонку "Штрих-код" в окне "Запасы" модуля Касса с фискальным регистратором Штрих и поддержкой ФЗ-54
IID = Split(WshShell.RegRead("HKCU\Software\infoapteka\Strih2\FormsM\TfrmStock\MainGrid\MainGrid.IID"),",",7)
WshShell.RegWrite "HKCU\Software\infoapteka\Strih2\FormsM\TfrmStock\MainGrid\MainGrid.IID", IID(0) & "," & IID(1) & "," & IID(2) & ",0," & IID(4) & "," & IID(5) & "," & IID(6), "REG_SZ"
WScript.Quit
Только авторизованные участники могут оставлять комментарии.
user/vmsirenko/закрыть_колонку_в_таблице_на_кассе.txt · Последние изменения: 2018/10/16 17:22 — Владимир Сиренко