进仓查看.prg

吐血贡献纺织上的进销存原码,功能齐全,给大家吧.

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: 进仓查看.PRG 
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 DEFINE POPUP 快捷菜单 FROM 1.200 , 12 RELATIVE SHORT
 DEFINE BAR 1 OF 快捷菜单 PROMPT '首张' SKIP FOR LCOMMAND(10) KEY CTRL+HOME ,  ;
      'CTRL+HOME'
 DEFINE BAR 2 OF 快捷菜单 PROMPT '上一张' SKIP FOR LCOMMAND(11) KEY CTRL+PGUP ,  ;
      'CTRL+PGUP'
 DEFINE BAR 3 OF 快捷菜单 PROMPT '下一张' SKIP FOR LCOMMAND(12) KEY CTRL+PGDN ,  ;
      'CTRL+PGDN'
 DEFINE BAR 4 OF 快捷菜单 PROMPT '末张' SKIP FOR LCOMMAND(13) KEY CTRL+END , 'CTRL+END'
 DEFINE BAR 5 OF 快捷菜单 PROMPT '\-'
 DEFINE BAR 6 OF 快捷菜单 PROMPT '定位' SKIP FOR LCOMMAND(16) KEY ALT+W , 'ALT+W'
 ON SELECTION BAR 1 OF 快捷菜单 jcd.tool1.command10.click
 ON SELECTION BAR 2 OF 快捷菜单 jcd.tool1.command11.click
 ON SELECTION BAR 3 OF 快捷菜单 jcd.tool1.command12.click
 ON SELECTION BAR 4 OF 快捷菜单 jcd.tool1.command13.click
 ON SELECTION BAR 6 OF 快捷菜单 jcd.tool1.command16.click
 ACTIVATE POPUP 快捷菜单
*