_BAR=1
nDDGL=1
nXSGL=1
nxsthgl=1
DEFINE popup 快捷菜單 Color Scheme 4  SHORTCUT RELATIVE FROM 1.4,10 
IF DDGL=.T.
	DEFINE BAR _BAR OF 快捷菜單 PROMPT "訂貨管理(\<D)" KEY CTRL+D, "CTRL+D"
	nDDGL=_BAR
	_BAR=_BAR+1
ENDIF
IF XSGL=.T.
	DEFINE BAR _BAR OF 快捷菜單 PROMPT "銷售管理(\<X)" KEY CTRL+X, "CTRL+X"
	nXSGL=_BAR
	_BAR=_BAR+1
ENDIF
IF XSTHGL=.T. 
	DEFINE BAR  _BAR OF 快捷菜單 PROMPT "銷售退貨管理(\<S)"
	nXSTHGL=_BAR
	_BAR=_BAR+1
ENDIF
if ddgl=.f. and xsgl=.f. and xsthgl=.f.
	DEFINE BAR _BAR OF 快捷菜單 PROMPT "    "
endif
ON SELECTION BAR nddgl OF 快捷菜單 ;
	DO _MU1 	
ON SELECTION BAR nxsgl OF 快捷菜單 ;
	DO _MU2 	
ON SELECTION BAR NXSTHGL OF 快捷菜單 ;
	DO _MU3 

ACTIVATE POPUP 快捷菜單	
PROCEDURE _MU1
	do form forms\frm訂單
PROCEDURE _MU2
	do form forms\frm銷售管理
PROCEDURE _MU3
	do form forms\frm銷售退貨