📄 qcxlcd.mpr
字号:
DEFINE BAR 4 OF 半成品月报 PROMPT "调度机月报表"
DEFINE BAR 5 OF 半成品月报 PROMPT "自动化月报表"
DEFINE BAR 6 OF 半成品月报 PROMPT "\-"
DEFINE BAR 7 OF 半成品月报 PROMPT "维护月报表"
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 "能创月报表"
DEFINE BAR 14 OF 半成品月报 PROMPT "\-"
ON SELECTION BAR 1 OF 半成品月报 ;
DO _2cx0p6b41 ;
IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 2 OF 半成品月报 ;
DO _2cx0p6b42 ;
IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 3 OF 半成品月报 ;
DO _2cx0p6b43 ;
IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 4 OF 半成品月报 ;
DO _2cx0p6b44 ;
IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 5 OF 半成品月报 ;
DO _2cx0p6b45 ;
IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 7 OF 半成品月报 ;
DO _2cx0p6b46 ;
IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 8 OF 半成品月报 ;
DO _2cx0p6b47 ;
IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 10 OF 半成品月报 ;
DO _2cx0p6b48 ;
IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 11 OF 半成品月报 ;
DO _2cx0p6b49 ;
IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 12 OF 半成品月报 ;
DO _2cx0p6b4a ;
IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION BAR 13 OF 半成品月报 ;
DO _2cx0p6b4b ;
IN LOCFILE("\KUFA\QCXLCD" ,"MPX;MPR|FXP;PRG" ,"WHERE is QCXLCD?")
ON SELECTION MENU _MSYSMENU ? 本程序有待编制
ON SELECTION POPUP ALL ? '该采单项还未编制'
* *********************************************************
* *
* * _2CX0P6B1T ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 201
* * Called By: ON SELECTION PAD
* * Prompt: 退出(E)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _2cx0p6b1t
use
erase ys*.*
erase 其它t.*
erase *.bak
clear even
quit
* *********************************************************
* *
* * _2CX0P6B1U ON SELECTION BAR 7 OF POPUP 登记d
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 25
* * Called By: ON SELECTION BAR 7 OF POPUP 登记d
* * Prompt: 月底转帐(Z)
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _2cx0p6b1u
if messagebox("月底转帐操作，把本月库存表的库存量转为上月结存，本月进仓、;
本月领出清零。把本月领料登记表、进仓登记表、库存表按月份备份到《月份数据》文件夹中，清除本月领料登记;
和进仓登记表。确实要进行月底转帐吗？",1+48+256,"月底转帐操作")=1
close all
mdd=ltrim(str((day(date()))))
mdd1=ltrim(str((month(date()))))
if directory("e:\")
if directory("d:\月份数据")
copy file rkdj.dbf to d:\月份数据\rkdj&mdd1&mdd..dbf
copy file rkdj.cdx to d:\月份数据\rkdj&mdd1&mdd..cdx
copy file ckdj.dbf to d:\月份数据\ckdj&mdd1&mdd..dbf
copy file ckdj.cdx to d:\月份数据\ckdj&mdd1&mdd..cdx
copy file kcb.dbf to d:\月份数据\kcb&mdd1&mdd..dbf
copy file kcb.cdx to d:\月份数据\kcb&mdd1&mdd..cdx
copy file bhmc.dbf to d:\月份数据\bhmc&mdd1&mdd..dbf
copy file bhmc.cdx to d:\月份数据\bhmc&mdd1&mdd..cdx
else
md "d:\月份数据"
copy file rkdj.dbf to d:\月份数据\rkdj&mdd1&mdd..dbf
copy file rkdj.cdx to d:\月份数据\rkdj&mdd1&mdd..cdx
copy file ckdj.dbf to d:\月份数据\ckdj&mdd1&mdd..dbf
copy file ckdj.cdx to d:\月份数据\ckdj&mdd1&mdd..cdx
copy file kcb.dbf to d:\月份数据\kcb&mdd1&mdd..dbf
copy file kcb.cdx to d:\月份数据\kcb&mdd1&mdd..cdx
copy file bhmc.dbf to d:\月份数据\bhmc&mdd1&mdd..dbf
copy file bhmc.cdx to d:\月份数据\bhmc&mdd1&mdd..cdx
endif
else
if directory("c:\月份数据")
copy file rkdj.dbf to c:\月份数据\rkdj&mdd1&mdd..dbf
copy file rkdj.cdx to c:\月份数据\rkdj&mdd1&mdd..cdx
copy file ckdj.dbf to c:\月份数据\ckdj&mdd1&mdd..dbf
copy file ckdj.cdx to c:\月份数据\ckdj&mdd1&mdd..cdx
copy file kcb.dbf to c:\月份数据\kcb&mdd1&mdd..dbf
copy file kcb.cdx to c:\月份数据\kcb&mdd1&mdd..cdx
copy file bhmc.dbf to c:\月份数据\bhmc&mdd1&mdd..dbf
copy file bhmc.cdx to c:\月份数据\bhmc&mdd1&mdd..cdx
else
md "c:\月份数据"
copy file rkdj.dbf to c:\月份数据\rkdj&mdd1&mdd..dbf
copy file rkdj.cdx to c:\月份数据\rkdj&mdd1&mdd..cdx
copy file ckdj.dbf to c:\月份数据\ckdj&mdd1&mdd..dbf
copy file ckdj.cdx to c:\月份数据\ckdj&mdd1&mdd..cdx
copy file kcb.dbf to c:\月份数据\kcb&mdd1&mdd..dbf
copy file kcb.cdx to c:\月份数据\kcb&mdd1&mdd..cdx
copy file bhmc.dbf to c:\月份数据\bhmc&mdd1&mdd..dbf
copy file bhmc.cdx to c:\月份数据\bhmc&mdd1&mdd..cdx
endif
endif
set view to kufahj.vue
sele kcb
repl 上月结存 with 库存量,本月进仓 with 0,本月领出 with 0 all
sele rkdj
zap
sele ckdj
zap
endif
* *********************************************************
* *
* * _2CX0P6B1V ON SELECTION BAR 1 OF POPUP 数据备份及
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 10
* * Called By: ON SELECTION BAR 1 OF POPUP 数据备份及
* * Prompt: 备份数据到硬盘
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _2cx0p6b1v
if messagebox("确实要进行数据备份吗？",1+32+256,"备份数据到硬盘")=1
close all
mdd=ltrim(str((day(date()))))
if directory("e:\")
copy file rkdj.dbf to e:\数据备份\rkdj&mdd..dbf
copy file rkdj.cdx to e:\数据备份\rkdj&mdd..cdx
copy file ckdj.dbf to e:\数据备份\ckdj&mdd..dbf
copy file ckdj.cdx to e:\数据备份\ckdj&mdd..cdx
copy file kcb.dbf to e:\数据备份\kcb&mdd..dbf
copy file kcb.cdx to e:\数据备份\kcb&mdd..cdx
copy file bhmc.dbf to e:\数据备份\bhmc&mdd..dbf
copy file bhmc.cdx to e:\数据备份\bhmc&mdd..cdx
endif
set view to kufahj.vue
endif
* *********************************************************
* *
* * _2CX0P6B1W ON SELECTION BAR 3 OF POPUP 数据备份及
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 12
* * Called By: ON SELECTION BAR 3 OF POPUP 数据备份及
* * Prompt: 从A:盘恢复数据
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _2cx0p6b1w
if messagebox("确实要进行数据恢复吗？",1+32+256,"恢复数据到硬盘")=1
close all
if directory("e:\")
copy file a:rkdj.dbf to d:\kufa
copy file a:rkdj.cdx to d:\kufa
copy file a:ckdj.dbf to d:\kufa
copy file a:ckdj.cdx to d:\kufa
copy file a:kcb.dbf to d:\kufa
copy file a:kcb.cdx to d:\kufa
copy file a:bhmc.dbf to d:\kufa
copy file a:bhmc.cdx to d:\kufa
else
copy file a:rkdj.dbf to c:\kufa
copy file a:rkdj.cdx to c:\kufa
copy file a:ckdj.dbf to c:\kufa
copy file a:ckdj.cdx to c:\kufa
copy file a:kcb.dbf to c:\kufa
copy file a:kcb.cdx to c:\kufa
copy file a:bhmc.dbf to c:\kufa
copy file a:bhmc.cdx to c:\kufa
endif
set view to kufahj.vue
endif
* *********************************************************
* *
* * _2CX0P6B1X ON SELECTION BAR 5 OF POPUP 数据备份及
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 14
* * Called By: ON SELECTION BAR 5 OF POPUP 数据备份及
* * Prompt: 备份数据到A:盘
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _2cx0p6b1x
if messagebox("确实要进行数据备份吗？",1+32+256,"备份库存表")=1
close all
copy file rkdj.dbf to a:
copy file rkdj.cdx to a:
copy file ckdj.dbf to a:
copy file ckdj.cdx to a:
copy file kcb.dbf to a:
copy file kcb.cdx to a:
copy file bhmc.dbf to a:
copy file bhmc.cdx to a:
set view to kufahj.vue
endif
* *********************************************************
* *
* * _2CX0P6B1Y ON SELECTION BAR 7 OF POPUP 数据备份及
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 16
* * Called By: ON SELECTION BAR 7 OF POPUP 数据备份及
* * Prompt: 从硬盘恢复数据
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _2cx0p6b1y
if messagebox("确实要进行数据恢复吗？",1+32+256,"从备份硬盘恢复数据到硬盘")=1
close all
mdd=ltrim(str((day(date()))))
if directory("e:\")
copy file e:\数据备份\rkdj&mdd..dbf to rkdj.dbf
copy file e:\数据备份\rkdj&mdd..cdx to rkdj.cdx
copy file e:\数据备份\ckdj&mdd..dbf to ckdj.dbf
copy file e:\数据备份\ckdj&mdd..cdx to ckdj.cdx
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -