_BAR=1
nGYSZMGL=1
nKHZMGL=1
nCQYSYFKGLNUMBER=1
DEFINE PoPup 快捷菜單 Color Scheme 4   SHORTCUT RELATIVE FROM 1.4,52
IF GYSZMGL=.T.
	DEFINE BAR _BAR OF 快捷菜單 PROMPT "供應商帳目管理(\<Z)" 
	nGYSZMGL=_BAR
	_BAR=_BAR+1
ENDIF

IF KHZMGL=.T.
	DEFINE BAR _BAR OF 快捷菜單 PROMPT "客戶帳目管理(\<J)"
	nKHZMGL=_BAR
	_BAR=_BAR+1
	
	DEFINE BAR _BAR OF 快捷菜單 PROMPT "\-"
	_BAR=_BAR+1
ENDIF

IF CQYSYFKGL=.T.
	DEFINE BAR _BAR OF 快捷菜單 PROMPT "超期應收應付款管理(\<Y)"
	nCQYSYFKGLNUMBER=_BAR
	_BAR=_BAR+1
ENDIF
if GYSZMGL=.f. and KHZMGL=.f. and CQYSYFKGL=.f.
	DEFINE BAR _BAR OF 快捷菜單 PROMPT "       "
endif
ON SELECTION BAR nGYSZMGL OF 快捷菜單;
	DO _MU1 
ON SELECTION BAR nKHZMGL OF 快捷菜單;
	DO _MU2 
ON SELECTION BAR nCQYSYFKGLNUMBER OF 快捷菜單;
	DO _MU3 	
ACTIVATE POPUP 快捷菜單
PROCEDURE _MU1
	do form forms\Frm供應商帳目管理
PROCEDURE _MU2
	do form forms\Frm客戶帳目管理
PROCEDURE _MU3
	do form forms\Frm超期應收應付款設置