qcxlcd.mpr

企业生产库房管理系统,主要企业的材料进出管理,自动生成报表.

DEFINE BAR 13 OF 预览或打印 PROMPT "不对称电流源"
DEFINE BAR 14 OF 预览或打印 PROMPT "载波月报表"
DEFINE BAR 15 OF 预览或打印 PROMPT "能尚月报表"
DEFINE BAR 16 OF 预览或打印 PROMPT "\-"
DEFINE BAR 17 OF 预览或打印 PROMPT "预览或打印进仓报表"
DEFINE BAR 18 OF 预览或打印 PROMPT "预览或易耗品"
ON SELECTION BAR 1 OF 预览或打印 ;
	DO _2cx0p6b2m ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 3 OF 预览或打印 ;
	DO _2cx0p6b2n ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 4 OF 预览或打印 ;
	DO _2cx0p6b2o ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 5 OF 预览或打印 ;
	DO _2cx0p6b2p ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 6 OF 预览或打印 ;
	DO _2cx0p6b2q ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 7 OF 预览或打印 ;
	DO _2cx0p6b2r ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 8 OF 预览或打印 ;
	DO _2cx0p6b2s ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 9 OF 预览或打印 ;
	DO _2cx0p6b2t ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 10 OF 预览或打印 ;
	DO _2cx0p6b2u ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 12 OF 预览或打印 ;
	DO _2cx0p6b2v ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 13 OF 预览或打印 ;
	DO _2cx0p6b2w ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 14 OF 预览或打印 ;
	DO _2cx0p6b2x ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 15 OF 预览或打印 ;
	DO _2cx0p6b2y ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON BAR 17 OF 预览或打印 ACTIVATE POPUP _0uq16s933
ON BAR 18 OF 预览或打印 ACTIVATE POPUP 预览或易耗

DEFINE POPUP _0uq16s933 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _0uq16s933 PROMPT "银网进汇总报表"
ON SELECTION BAR 1 OF _0uq16s933 ;
	DO _2cx0p6b2z ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")

DEFINE POPUP 预览或易耗 MARGIN RELATIVE SHADOW COLOR SCHEME 4
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 "维护易耗品"
ON SELECTION BAR 1 OF 预览或易耗 ;
	DO _2cx0p6b30 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 2 OF 预览或易耗 ;
	DO _2cx0p6b31 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 3 OF 预览或易耗 ;
	DO _2cx0p6b32 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 4 OF 预览或易耗 ;
	DO _2cx0p6b33 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 5 OF 预览或易耗 ;
	DO _2cx0p6b34 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 6 OF 预览或易耗 ;
	DO _2cx0p6b35 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")

DEFINE POPUP 修改编号表 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 修改编号表 PROMPT "增加原器件编号"
DEFINE BAR 2 OF 修改编号表 PROMPT "\-"
DEFINE BAR 3 OF 修改编号表 PROMPT "删除原器件编号"
ON SELECTION BAR 1 OF 修改编号表 do form zjbh
ON SELECTION BAR 3 OF 修改编号表 do form scbh

DEFINE POPUP 修改数据库 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 修改数据库 PROMPT "设置修改数据库密码"
DEFINE BAR 2 OF 修改数据库 PROMPT "打开修改数据库菜单"
DEFINE BAR 3 OF 修改数据库 PROMPT "\-"
DEFINE BAR 4 OF 修改数据库 PROMPT "修改领料登记表" ;
	SKIP FOR password1<>password2 ;
	MESSAGE "修改、浏览领料登记表"
DEFINE BAR 5 OF 修改数据库 PROMPT "修改进仓登记表" ;
	SKIP FOR password1<>password2 ;
	MESSAGE "修改、浏览进仓登记表"
DEFINE BAR 6 OF 修改数据库 PROMPT "修改库存表" ;
	SKIP FOR password1<>password2 ;
	MESSAGE "修改、浏览库存表"
DEFINE BAR 7 OF 修改数据库 PROMPT "修改编号名称价格表" ;
	SKIP FOR password1<>password2
ON SELECTION BAR 1 OF 修改数据库 do form pass4
ON SELECTION BAR 2 OF 修改数据库 do form pass5
ON BAR 4 OF 修改数据库 ACTIVATE POPUP 修改领料登
ON BAR 5 OF 修改数据库 ACTIVATE POPUP 修改进仓登
ON BAR 6 OF 修改数据库 ACTIVATE POPUP 修改库存表
ON SELECTION BAR 7 OF 修改数据库 ;
	DO _2cx0p6b36 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")

DEFINE POPUP 修改领料登 MARGIN RELATIVE SHADOW COLOR SCHEME 4
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 "按编号"
ON SELECTION BAR 1 OF 修改领料登 ;
	DO _2cx0p6b37 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 2 OF 修改领料登 do form larq
ON SELECTION BAR 3 OF 修改领料登 do form larqd
ON SELECTION BAR 4 OF 修改领料登 do form laxm
ON SELECTION BAR 5 OF 修改领料登 do form labh

DEFINE POPUP 修改进仓登 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 修改进仓登 PROMPT "无条件"
DEFINE BAR 2 OF 修改进仓登 PROMPT "按日期"
DEFINE BAR 3 OF 修改进仓登 PROMPT "按日期段"
DEFINE BAR 4 OF 修改进仓登 PROMPT "按编号"
ON SELECTION BAR 1 OF 修改进仓登 ;
	DO _2cx0p6b38 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 2 OF 修改进仓登 do form rarq
ON SELECTION BAR 3 OF 修改进仓登 do form rarqd
ON SELECTION BAR 4 OF 修改进仓登 do form rabh

DEFINE POPUP 修改库存表 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 修改库存表 PROMPT "无条件"
DEFINE BAR 2 OF 修改库存表 PROMPT "按编号"
DEFINE BAR 3 OF 修改库存表 PROMPT "删除无用库存记录"
ON SELECTION BAR 1 OF 修改库存表 ;
	DO _2cx0p6b39 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 2 OF 修改库存表 do form kabh
ON SELECTION BAR 3 OF 修改库存表 ;
	DO _2cx0p6b3a ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")

DEFINE POPUP 数据库表ex MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据库表ex PROMPT "公司库存表转换"
ON SELECTION BAR 1 OF 数据库表ex ;
	DO _2cx0p6b3b ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")

DEFINE POPUP 半成品x MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 半成品x PROMPT "半成品库存"
DEFINE BAR 2 OF 半成品x PROMPT "半成品领料"
DEFINE BAR 3 OF 半成品x PROMPT "半成品进仓"
DEFINE BAR 4 OF 半成品x PROMPT "半成品月报表"
ON BAR 1 OF 半成品x ACTIVATE POPUP 半成品库存
ON BAR 2 OF 半成品x ACTIVATE POPUP 半成品领料
ON SELECTION BAR 3 OF 半成品x ;
	DO _2cx0p6b3c ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON BAR 4 OF 半成品x ACTIVATE POPUP 半成品月报

DEFINE POPUP 半成品库存 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 半成品库存 PROMPT "公司库存"
DEFINE BAR 2 OF 半成品库存 PROMPT "ys8a库存"
DEFINE BAR 3 OF 半成品库存 PROMPT "ys88a库存"
DEFINE BAR 4 OF 半成品库存 PROMPT "ys88库存"
DEFINE BAR 5 OF 半成品库存 PROMPT "调度机库存"
DEFINE BAR 6 OF 半成品库存 PROMPT "自动化库存"
DEFINE BAR 7 OF 半成品库存 PROMPT "Ys89a库存"
DEFINE BAR 8 OF 半成品库存 PROMPT "\-"
DEFINE BAR 9 OF 半成品库存 PROMPT "电源库存"
DEFINE BAR 10 OF 半成品库存 PROMPT "载波库存"
DEFINE BAR 11 OF 半成品库存 PROMPT "网络库存"
DEFINE BAR 12 OF 半成品库存 PROMPT "能创库存"
DEFINE BAR 13 OF 半成品库存 PROMPT "\-"
ON SELECTION BAR 1 OF 半成品库存 ;
	DO _2cx0p6b3d ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 2 OF 半成品库存 ;
	DO _2cx0p6b3e ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 3 OF 半成品库存 ;
	DO _2cx0p6b3f ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 4 OF 半成品库存 ;
	DO _2cx0p6b3g ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 5 OF 半成品库存 ;
	DO _2cx0p6b3h ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 6 OF 半成品库存 ;
	DO _2cx0p6b3i ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 7 OF 半成品库存 ;
	DO _2cx0p6b3j ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 9 OF 半成品库存 ;
	DO _2cx0p6b3k ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 10 OF 半成品库存 ;
	DO _2cx0p6b3l ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 11 OF 半成品库存 ;
	DO _2cx0p6b3m ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 12 OF 半成品库存 ;
	DO _2cx0p6b3n ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")

DEFINE POPUP 半成品领料 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 半成品领料 PROMPT "总领料"
DEFINE BAR 2 OF 半成品领料 PROMPT "ys8a领料"
DEFINE BAR 3 OF 半成品领料 PROMPT "ys88a领料"
DEFINE BAR 4 OF 半成品领料 PROMPT "ys88领料"
DEFINE BAR 5 OF 半成品领料 PROMPT "调度机领料"
DEFINE BAR 6 OF 半成品领料 PROMPT "自动化领料"
DEFINE BAR 7 OF 半成品领料 PROMPT "Ys89a领料"
DEFINE BAR 8 OF 半成品领料 PROMPT "维护领料"
DEFINE BAR 9 OF 半成品领料 PROMPT "Ys201领料"
DEFINE BAR 10 OF 半成品领料 PROMPT "\-"
DEFINE BAR 11 OF 半成品领料 PROMPT "电源领料"
DEFINE BAR 12 OF 半成品领料 PROMPT "载波领料"
DEFINE BAR 13 OF 半成品领料 PROMPT "网络领料"
DEFINE BAR 14 OF 半成品领料 PROMPT "能创领料"
DEFINE BAR 15 OF 半成品领料 PROMPT "\-"
ON SELECTION BAR 1 OF 半成品领料 ;
	DO _2cx0p6b3o ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 2 OF 半成品领料 ;
	DO _2cx0p6b3p ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 3 OF 半成品领料 ;
	DO _2cx0p6b3q ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 4 OF 半成品领料 ;
	DO _2cx0p6b3r ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 5 OF 半成品领料 ;
	DO _2cx0p6b3s ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 6 OF 半成品领料 ;
	DO _2cx0p6b3t ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 7 OF 半成品领料 ;
	DO _2cx0p6b3u ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 8 OF 半成品领料 ;
	DO _2cx0p6b3v ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 9 OF 半成品领料 ;
	DO _2cx0p6b3w ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 11 OF 半成品领料 ;
	DO _2cx0p6b3x ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 12 OF 半成品领料 ;
	DO _2cx0p6b3y ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 13 OF 半成品领料 ;
	DO _2cx0p6b3z ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 14 OF 半成品领料 ;
	DO _2cx0p6b40 ;
	IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")

DEFINE POPUP 半成品月报 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 半成品月报 PROMPT "ys8a月报表"
DEFINE BAR 2 OF 半成品月报 PROMPT "ys88a月报表"
DEFINE BAR 3 OF 半成品月报 PROMPT "ys88月报表"