📄 sysmenu.mpr
字号:
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
* 文件名: SYSMENU.MPR
* 说 明: 系统菜单
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD MPAD1 OF MSYSMENU PROMPT '信息管理(\<F)' COLOR SCHEME 3 KEY ALT+F , ''
DEFINE PAD MPAD2 OF MSYSMENU PROMPT '编辑(\<E)' COLOR SCHEME 3 KEY ALT+E , ''
DEFINE PAD MPAD3 OF MSYSMENU PROMPT '白坯管理(\<G)' COLOR SCHEME 3 KEY ALT+G , ''
DEFINE PAD MPAD4 OF MSYSMENU PROMPT '色坯库存(\<K)' COLOR SCHEME 3 KEY ALT+K , ''
DEFINE PAD MPAD5 OF MSYSMENU PROMPT '销售管理(\<X)' COLOR SCHEME 3 KEY ALT+X , ''
DEFINE PAD MPAD6 OF MSYSMENU PROMPT '财务管理(\<C)' COLOR SCHEME 3 KEY ALT+C , ''
DEFINE PAD MPAD7 OF MSYSMENU PROMPT '综合管理(\<Z)' COLOR SCHEME 3 KEY ALT+Z , ''
DEFINE PAD MPAD8 OF MSYSMENU PROMPT '帮助(\<H)' COLOR SCHEME 3 KEY ALT+H , ''
ON PAD MPAD1 OF MSYSMENU ACTIVATE POPUP 信息管理F
ON PAD MPAD2 OF MSYSMENU ACTIVATE POPUP 编辑E
ON PAD MPAD3 OF MSYSMENU ACTIVATE POPUP 白坯管理G
ON PAD MPAD4 OF MSYSMENU ACTIVATE POPUP 色坯库存K
ON PAD MPAD5 OF MSYSMENU ACTIVATE POPUP 销售管理X
ON PAD MPAD6 OF MSYSMENU ACTIVATE POPUP 财务管理C
ON PAD MPAD7 OF MSYSMENU ACTIVATE POPUP 综合管理Z
ON PAD MPAD8 OF MSYSMENU ACTIVATE POPUP 帮助H
DEFINE POPUP 信息管理F COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 信息管理F PROMPT '基本信息维护(\<S)'
DEFINE BAR 2 OF 信息管理F PROMPT '\-'
DEFINE BAR 3 OF 信息管理F PROMPT '系统维护(\<W)'
DEFINE BAR 4 OF 信息管理F PROMPT '\-'
DEFINE BAR 5 OF 信息管理F PROMPT '更换操作员(\<Z)' HALFHEIGHT 'BMP\min.bmp'
DEFINE BAR 6 OF 信息管理F PROMPT '口令设置(\<K)' HALFHEIGHT 'BMP\密码.bmp'
DEFINE BAR 7 OF 信息管理F PROMPT '\-'
DEFINE BAR _MFI_REVRT OF 信息管理F PROMPT '另存为(\<A)...' MESSAGE '用新文件名保存当前改动了的文件'
DEFINE BAR 9 OF 信息管理F PROMPT '\-'
DEFINE BAR _MFI_IMPORT OF 信息管理F PROMPT '页面设置(\<U)...' MESSAGE '修改页面布局和打印机设置'
DEFINE BAR _MFI_PGSET OF 信息管理F PROMPT '打印预览(\<V)' MESSAGE '在打印前显示整个页面'
DEFINE BAR _MFI_PRNTONECPY OF 信息管理F PROMPT '打印(\<P)...' MESSAGE '打印一个文本文件，报表，标签、命令窗口的内容或剪贴板上的内容'
DEFINE BAR 13 OF 信息管理F PROMPT '\-'
DEFINE BAR 14 OF 信息管理F PROMPT '注销...' HALFHEIGHT ;
'BMP\注销.bmp'
DEFINE BAR 15 OF 信息管理F PROMPT '\-'
DEFINE BAR 16 OF 信息管理F PROMPT '\'
DEFINE BAR 17 OF 信息管理F PROMPT '\-'
DEFINE BAR 18 OF 信息管理F PROMPT '退出' KEY CTRL+Q , 'CTRL+Q' HALFHEIGHT ;
'BMP\退出.bmp'
ON BAR 1 OF 信息管理F ACTIVATE POPUP 基本信息维
ON BAR 3 OF 信息管理F ACTIVATE POPUP 系统维护W
ON SELECTION BAR 5 OF 信息管理F ;
DO _0up0qxdua IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 6 OF 信息管理F ;
DO _0up0qxdub IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 14 OF 信息管理F ;
DO _0up0qxduc IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 18 OF 信息管理F quit
DEFINE POPUP 基本信息维 COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 基本信息维 PROMPT '(\<1)操作人员录入' SKIP FOR .NOT. ADMICZY ;
HALFHEIGHT 'BMP\min.bmp'
DEFINE BAR 2 OF 基本信息维 PROMPT '(\<2)业务人员录入' SKIP FOR .NOT. QX(1) .OR. SN ;
HALFHEIGHT 'BMP\min.bmp'
DEFINE BAR 3 OF 基本信息维 PROMPT '\-'
DEFINE BAR 4 OF 基本信息维 PROMPT '(\<3)仓库设置' SKIP FOR .NOT. QX(1) .OR. SN ;
HALFHEIGHT 'BMP\进仓单.bmp'
DEFINE BAR 5 OF 基本信息维 PROMPT '(\<4)地区设置' SKIP FOR .NOT. QX(1) .OR. SN ;
HALFHEIGHT 'BMP\地区.bmp'
DEFINE BAR 6 OF 基本信息维 PROMPT '\-'
DEFINE BAR 7 OF 基本信息维 PROMPT '(\<5)商品类别设置' SKIP FOR .NOT. QX(1) .OR. SN ;
HALFHEIGHT 'BMP\类别.bmp'
DEFINE BAR 8 OF 基本信息维 PROMPT '(\<6)商品代码设置' SKIP FOR .NOT. QX(1) .OR. SN
DEFINE BAR 9 OF 基本信息维 PROMPT '\-'
DEFINE BAR 10 OF 基本信息维 PROMPT '(\<7)供货单位录入' SKIP FOR .NOT. QX(1) ;
HALFHEIGHT 'BMP\dbtable.bmp'
DEFINE BAR 11 OF 基本信息维 PROMPT '(\<8)客户单位录入' SKIP FOR .NOT. QX(1)
ON SELECTION BAR 1 OF 基本信息维 ;
DO _0up0qxduf IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 2 OF 基本信息维 ;
DO _0up0qxdug IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 4 OF 基本信息维 ;
DO _0up0qxduh IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 5 OF 基本信息维 ;
DO _0up0qxdui IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 7 OF 基本信息维 ;
DO _0up0qxduj IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 8 OF 基本信息维 ;
DO _0up0qxdup IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 10 OF 基本信息维 ;
DO _0up0qxduq IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 11 OF 基本信息维 ;
DO _0up0qxdur IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 系统维护W COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 系统维护W PROMPT '(\<A)修改系统设置' SKIP FOR .NOT. QX(7) HALFHEIGHT ;
'BMP\dblview.bmp'
DEFINE BAR 2 OF 系统维护W PROMPT '\-'
DEFINE BAR 3 OF 系统维护W PROMPT '(\<B)报表格式设计...' SKIP FOR .NOT. QX(7) ;
HALFHEIGHT 'BMP\打开设计.bmp'
DEFINE BAR 4 OF 系统维护W PROMPT '\-'
DEFINE BAR 5 OF 系统维护W PROMPT '(\<C)自动修复错误...' SKIP FOR .NOT. QX(7) ;
HALFHEIGHT 'BMP\修改错误.bmp'
DEFINE BAR 6 OF 系统维护W PROMPT '(\<D)数据整理' SKIP FOR .NOT. QX(7) HALFHEIGHT ;
'..\jxc通用7\bmp\数据整理.bmp'
DEFINE BAR 7 OF 系统维护W PROMPT '(\<E)数据备份与恢复' SKIP FOR .NOT. QX(7) ;
HALFHEIGHT '..\jxc通用7\bmp\disk.bmp'
DEFINE BAR 8 OF 系统维护W PROMPT '\-'
DEFINE BAR 9 OF 系统维护W PROMPT '(\<F)进仓单数据检查' SKIP FOR .NOT. QX(7) ;
HALFHEIGHT 'BMP\参照.bmp'
DEFINE BAR 10 OF 系统维护W PROMPT '\-'
DEFINE BAR 11 OF 系统维护W PROMPT '(\<G)清空系统数据...' SKIP FOR .NOT. QX(7) ;
HALFHEIGHT 'BMP\清空.bmp'
DEFINE BAR 12 OF 系统维护W PROMPT '\-'
DEFINE BAR 13 OF 系统维护W PROMPT '(\<H)查看系统用户...' HALFHEIGHT ;
'BMP\用户.bmp'
DEFINE BAR 14 OF 系统维护W PROMPT '\-'
DEFINE BAR 15 OF 系统维护W PROMPT '(\<I)系统二次开发' SKIP FOR .NOT. QX(7) HALFHEIGHT ;
'BMP\类别.bmp'
ON SELECTION BAR 1 OF 系统维护W ;
DO _0up0qxdv0 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 3 OF 系统维护W ;
DO _0up0qxdv4 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 5 OF 系统维护W ;
DO _0up0qxdv8 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 6 OF 系统维护W ;
DO _0up0qxdv9 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 7 OF 系统维护W ;
DO _0up0qxdva IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 9 OF 系统维护W ;
DO _0up0qxdve IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 11 OF 系统维护W ;
DO _0up0qxdvf IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 13 OF 系统维护W ;
DO _0up0qxdvg IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 15 OF 系统维护W ;
DO _0up0qxdvh IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 编辑E COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR _MED_REDO OF 编辑E PROMPT '撤消(\<U)' MESSAGE '撤消上一次命令或操作' KEY ;
CTRL+Z , 'Ctrl+Z' O肙F;1虳ELETE;1腞ECYCLE; _MED_REDO
DEFINE BAR _MED_SP100 OF 编辑E PROMPT '重做(\<D)' MESSAGE '重复上一次命令或操作' KEY ;
CTRL+R , 'Ctrl+R' O肙F;1虳ELETE;1腞ECYCLE; _MED_SP100
DEFINE BAR 3 OF 编辑E PROMPT '\-'
DEFINE BAR _MED_COPY OF 编辑E PROMPT '剪切(\<T)' MESSAGE '移去选定内容并将其放入剪贴板' ;
KEY CTRL+X , 'Ctrl+X' O肙F;1虳ELETE;1腞ECYCLE; _MED_COPY
DEFINE BAR _MED_PASTE OF 编辑E PROMPT '复制(\<C)' MESSAGE '将选定内容复制到剪贴板上' ;
KEY CTRL+C , 'Ctrl+C' O肙F;1虳ELETE;1腞ECYCLE; _MED_PASTE
DEFINE BAR _MED_PSTLK OF 编辑E PROMPT '粘贴(\<P)' MESSAGE '粘贴剪贴板上的内容' KEY ;
CTRL+V , 'Ctrl+V' O肙F;1虳ELETE;1腞ECYCLE; _MED_PSTLK
DEFINE BAR 7 OF 编辑E PROMPT '\-'
DEFINE BAR 8 OF 编辑E PROMPT '计算器...' KEY F9 , 'F9' HALFHEIGHT ;
'BMP\cacl.bmp'
DEFINE BAR 9 OF 编辑E PROMPT '增值税计算器' KEY F10 , 'F10' HALFHEIGHT ;
'BMP\calc.bmp'
ON SELECTION BAR 8 OF 编辑E ;
DO _0up0qxdvt IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 9 OF 编辑E ;
DO _0up0qxdvu IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 白坯管理G COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 白坯管理G PROMPT '白坯采购入库' SKIP FOR .NOT. QX(2) .OR. SN .OR. SYQM ;
KEY F5 , 'F5' O肙F;1虳ELETE;1腞ECYCLE; _MFI_OPEN
DEFINE BAR 2 OF 白坯管理G PROMPT '染厂库存转厂...' SKIP FOR .NOT. QX(2) .OR. SN ;
HALFHEIGHT 'BMP\结转.bmp'
DEFINE BAR 3 OF 白坯管理G PROMPT '\-'
DEFINE BAR 4 OF 白坯管理G PROMPT '染厂库存核销....' SKIP FOR .NOT. QX(2) .OR. SN KEY ;
CTRL+G , 'CTRL+G' HALFHEIGHT 'BMP\删除.bmp'
DEFINE BAR 5 OF 白坯管理G PROMPT '染厂库存核销统计...' SKIP FOR .NOT. QX(2) ;
HALFHEIGHT 'BMP\出库统计.bmp'
DEFINE BAR 6 OF 白坯管理G PROMPT '\-'
DEFINE BAR 7 OF 白坯管理G PROMPT '染厂设置' SKIP FOR .NOT. QX(2) .OR. SN ;
O肙F;1虳ELETE;1腞ECYCLE; _MVI_TOOLB
DEFINE BAR 8 OF 白坯管理G PROMPT '染厂期初余额录入...' SKIP FOR .NOT. QX(2) .OR. SN ;
HALFHEIGHT 'BMP\凭证.bmp'
DEFINE BAR 9 OF 白坯管理G PROMPT '\-'
DEFINE BAR 10 OF 白坯管理G PROMPT '染厂库存明细帐....' SKIP FOR .NOT. QX(2) ;
HALFHEIGHT 'BMP\明细1.bmp'
DEFINE BAR 11 OF 白坯管理G PROMPT '染厂库存收付存统计....' SKIP FOR .NOT. QX(2) ;
HALFHEIGHT 'BMP\部门统计.bmp'
DEFINE BAR 12 OF 白坯管理G PROMPT '\-'
DEFINE BAR 13 OF 白坯管理G PROMPT '白坯进货统计...' SKIP FOR .NOT. QX(2) HALFHEIGHT ;
'BMP\入库统计.bmp'
ON SELECTION BAR 1 OF 白坯管理G ;
DO _0up0qxdvx IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 2 OF 白坯管理G ;
DO _0up0qxdvy IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 4 OF 白坯管理G ;
DO _0up0qxdvz IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 5 OF 白坯管理G ;
DO _0up0qxdw0 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 7 OF 白坯管理G ;
DO _0up0qxdw1 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 8 OF 白坯管理G ;
DO _0up0qxdw2 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 10 OF 白坯管理G ;
DO _0up0qxdw3 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 11 OF 白坯管理G ;
DO _0up0qxdw4 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 13 OF 白坯管理G ;
DO _0up0qxdw5 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 色坯库存K COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 色坯库存K PROMPT '收货单(色坯入库)....' SKIP FOR ;
.NOT. QX(4) .OR. SN .OR. SYQM KEY F6 , 'F6' O肙F;1虳ELETE;1腞ECYCLE; _MWI_COLOR
DEFINE BAR 2 OF 色坯库存K PROMPT '\-'
DEFINE BAR 3 OF 色坯库存K PROMPT '色坯返修' SKIP FOR .NOT. QX(4) HALFHEIGHT ;
'BMP\undo.bmp'
DEFINE BAR 4 OF 色坯库存K PROMPT '\-'
DEFINE BAR 5 OF 色坯库存K PROMPT '收货统计...' SKIP FOR .NOT. QX(4) HALFHEIGHT ;
'BMP\tjx.bmp'
DEFINE BAR 6 OF 色坯库存K PROMPT '\-'
DEFINE BAR 7 OF 色坯库存K PROMPT '库存商品数量日报表' SKIP FOR .NOT. QX(4) KEY CTRL+A , ;
'CTRL+A' HALFHEIGHT 'BMP\dbtable.bmp'
DEFINE BAR 8 OF 色坯库存K PROMPT '库存进销存统计报表' SKIP FOR .NOT. QX(4) KEY CTRL+B , ;
'CTRL+B' HALFHEIGHT 'BMP\多栏式.bmp'
DEFINE BAR 9 OF 色坯库存K PROMPT '\-'
DEFINE BAR 10 OF 色坯库存K PROMPT '查询商品明细帐' SKIP FOR .NOT. QX(4) KEY CTRL+Z , ;
'CTRL+Z' HALFHEIGHT 'BMP\wzlocate.bmp'
DEFINE BAR 11 OF 色坯库存K PROMPT '打印商品明细簿' SKIP FOR .NOT. QX(4) KEY CTRL+M , ;
'CTRL+M' HALFHEIGHT 'BMP\print.bmp'
DEFINE BAR 12 OF 色坯库存K PROMPT '\-'
DEFINE BAR 13 OF 色坯库存K PROMPT '转库...' SKIP FOR .NOT. QX(4) .OR. SN
DEFINE BAR 14 OF 色坯库存K PROMPT '盘点...' SKIP FOR .NOT. QX(4) .OR. SN
DEFINE BAR 15 OF 色坯库存K PROMPT '\-'
DEFINE BAR 16 OF 色坯库存K PROMPT '(\<Q)色坯期初余额录入...' SKIP FOR ;
.NOT. QX(4) .OR. SN
ON SELECTION BAR 1 OF 色坯库存K ;
DO _0up0qxdw7 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON BAR 3 OF 色坯库存K ACTIVATE POPUP 色坯返修
ON SELECTION BAR 5 OF 色坯库存K ;
DO _0up0qxdw8 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 7 OF 色坯库存K ;
DO _0up0qxdw9 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 8 OF 色坯库存K ;
DO _0up0qxdwa IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 10 OF 色坯库存K ;
DO _0up0qxdwb IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 11 OF 色坯库存K ;
DO _0up0qxdwc IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 13 OF 色坯库存K ;
DO _0up0qxdwd IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 14 OF 色坯库存K ;
DO _0up0qxdwe IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 16 OF 色坯库存K ;
DO _0up0qxdwf IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 色坯返修 COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 色坯返修 PROMPT '色坯返修录入'
DEFINE BAR 2 OF 色坯返修 PROMPT '色坯返修交入'
DEFINE BAR 3 OF 色坯返修 PROMPT '\-'
DEFINE BAR 4 OF 色坯返修 PROMPT '色坯返修明细帐'
DEFINE BAR 5 OF 色坯返修 PROMPT '色坯返修统计'
DEFINE BAR 6 OF 色坯返修 PROMPT '\-'
DEFINE BAR 7 OF 色坯返修 PROMPT '色坯返修期初数'
ON SELECTION BAR 1 OF 色坯返修 ;
DO _0up0qxdwg IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 2 OF 色坯返修 ;
DO _0up0qxdwh IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 4 OF 色坯返修 ;
DO _0up0qxdwi IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 5 OF 色坯返修 ;
DO _0up0qxdwj IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 7 OF 色坯返修 ;
DO _0up0qxdwk IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 销售管理X COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 销售管理X PROMPT '码单录入' SKIP FOR .NOT. QX(3) .OR. SN .OR. SYQM KEY ;
CTRL+M , 'CTRL+M' HALFHEIGHT 'BMP\dblview.bmp'
DEFINE BAR 2 OF 销售管理X PROMPT '码单查询...' SKIP FOR .NOT. QX(3) HALFHEIGHT ;
'BMP\wzlocate.bmp'
DEFINE BAR 3 OF 销售管理X PROMPT '\-'
DEFINE BAR 4 OF 销售管理X PROMPT '销售日报表...' SKIP FOR .NOT. QX(3) HALFHEIGHT ;
'BMP\凭证.bmp'
DEFINE BAR 5 OF 销售管理X PROMPT '\-'
DEFINE BAR 6 OF 销售管理X PROMPT '销售成本计算...' SKIP FOR .NOT. QX(3) .OR. SN ;
HALFHEIGHT 'BMP\命令.bmp'
DEFINE BAR 7 OF 销售管理X PROMPT '\-'
DEFINE BAR 8 OF 销售管理X PROMPT '销售统计...' SKIP FOR .NOT. QX(3) HALFHEIGHT ;
'BMP\出库统计.bmp'
ON SELECTION BAR 1 OF 销售管理X ;
DO _0up0qxdwm IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 2 OF 销售管理X ;
DO _0up0qxdwn IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 4 OF 销售管理X ;
DO _0up0qxdwo IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 6 OF 销售管理X ;
DO _0up0qxdwp IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 8 OF 销售管理X ;
DO _0up0qxdwq IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 财务管理C COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 财务管理C PROMPT '供货单位往来'
DEFINE BAR 2 OF 财务管理C PROMPT '\-'
DEFINE BAR 3 OF 财务管理C PROMPT '客户单位往来'
DEFINE BAR 4 OF 财务管理C PROMPT '\-'
DEFINE BAR 5 OF 财务管理C PROMPT '财务收支管理'
DEFINE BAR 6 OF 财务管理C PROMPT '\-'
DEFINE BAR 7 OF 财务管理C PROMPT '货币资金管理'
DEFINE BAR 8 OF 财务管理C PROMPT '\-'
DEFINE BAR 9 OF 财务管理C PROMPT '费用支出统计'
DEFINE BAR 10 OF 财务管理C PROMPT '\-'
DEFINE BAR 11 OF 财务管理C PROMPT '经营成果统计...' HALFHEIGHT ;
'BMP\sum.bmp'
ON BAR 1 OF 财务管理C ACTIVATE POPUP 供货单位往
ON BAR 3 OF 财务管理C ACTIVATE POPUP 客户单位往
ON BAR 5 OF 财务管理C ACTIVATE POPUP 费用利润管
ON BAR 7 OF 财务管理C ACTIVATE POPUP 货币资金管
ON BAR 9 OF 财务管理C ACTIVATE POPUP 费用支出统
ON SELECTION BAR 11 OF 财务管理C ;
DO _0up0qxdwt IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 供货单位往 COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 供货单位往 PROMPT '供货单位付款单...' SKIP FOR .NOT. QX(5) .OR. SN ;
HALFHEIGHT 'BMP\dbtable.bmp'
DEFINE BAR 2 OF 供货单位往 PROMPT '\-'
DEFINE BAR 3 OF 供货单位往 PROMPT '供货单位余额表' SKIP FOR .NOT. QX(5) HALFHEIGHT ;
'BMP\dbtable.bmp'
DEFINE BAR 4 OF 供货单位往 PROMPT '\-'
DEFINE BAR 5 OF 供货单位往 PROMPT '供货单位明细帐' SKIP FOR .NOT. QX(5) HALFHEIGHT ;
'BMP\dbtable.bmp'
DEFINE BAR 6 OF 供货单位往 PROMPT '\-'
DEFINE BAR 7 OF 供货单位往 PROMPT '打印供货单位明细帐' SKIP FOR .NOT. QX(5) ;
HALFHEIGHT 'BMP\print.bmp'
ON SELECTION BAR 1 OF 供货单位往 ;
DO _0up0qxdww IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 3 OF 供货单位往 ;
DO _0up0qxdwx IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 5 OF 供货单位往 ;
DO _0up0qxdwy IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 7 OF 供货单位往 ;
DO _0up0qxdwz IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
DEFINE POPUP 客户单位往 COLOR SCHEME 4 SHADOW MARGIN RELATIVE
DEFINE BAR 1 OF 客户单位往 PROMPT '客户单位收款单...' SKIP FOR .NOT. QX(5) .OR. SN ;
HALFHEIGHT 'BMP\dbtable.bmp'
DEFINE BAR 2 OF 客户单位往 PROMPT '\-'
DEFINE BAR 3 OF 客户单位往 PROMPT '代垫费用录入...' SKIP FOR .NOT. QX(5) HALFHEIGHT ;
'BMP\dbtable.bmp'
DEFINE BAR 4 OF 客户单位往 PROMPT '\-'
DEFINE BAR 5 OF 客户单位往 PROMPT '客户单位余额表' SKIP FOR .NOT. QX(5) HALFHEIGHT ;
'BMP\dbtable.bmp'
DEFINE BAR 6 OF 客户单位往 PROMPT '\-'
DEFINE BAR 7 OF 客户单位往 PROMPT '客户单位明细帐' SKIP FOR .NOT. QX(5) HALFHEIGHT ;
'BMP\dbtable.bmp'
DEFINE BAR 8 OF 客户单位往 PROMPT '\-'
DEFINE BAR 9 OF 客户单位往 PROMPT '打印客户单位明细帐' SKIP FOR .NOT. QX(5) ;
HALFHEIGHT 'BMP\print.bmp'
ON SELECTION BAR 1 OF 客户单位往 ;
DO _0up0qxdx2 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 3 OF 客户单位往 ;
DO _0up0qxdx3 IN LOCFILE("\JXC\SYS_MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is SYS_MENU?")
ON SELECTION BAR 5 OF 客户单位往 ;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -