ИнфоАптека ®

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

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

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


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

Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

user:vmsirenko:закрыть_колонку_в_таблице_на_кассе [2018/10/16 17:22] (текущий)
Владимир Сиренко создано
Строка 1: Строка 1:
 +====== Закрыть колонку в таблице на кассе ======
 +
 +Для уменьшения пересортицы,​ поставлена задача усложнить возможность ввода внутреннего штрих-кода,​ с помощью скрытия соответствующей колонки в окне "​Запасы отдела"​ модуля Касса. Так как касс больше 150 и если уделять каждой не более 5 минут для настройки,​ то ударными темпами и за два рабочих дня можно выполнить задачу.
 +
 +Для оперативного решения задачи я написал скрипт на [[wp>​ru:​Visual_Basic_Scripting_Edition|VBScript]],​ который будет запускаться перед запуском кассового модуля и изменять соответствующее значение в реестре. Действие скрипта можно расширить на: настройку цвета, фильтры и другие параметры хранящиеся в реестре.
 +
 +===== Скрипт =====
 +
 +<file 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
 +</​file>​
 +
 +{{tag>​реестр колонки фильтр}}
 +
 +
 +~~DISCUSSION~~
  
user/vmsirenko/закрыть_колонку_в_таблице_на_кассе.txt · Последние изменения: 2018/10/16 17:22 — Владимир Сиренко