销售管理.mpr

来自「“现代流通企业综合管理系统”是专门针对中小型企业各项管理业务而开发的通用性很强的」· MPR 代码 · 共 38 行

_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销售退货