📄 qcxlcd.mpr
字号:
copy file e:\数据备份\kcb&mdd..dbf to kcb.dbf
copy file e:\数据备份\kcb&mdd..cdx to kcb.cdx
copy file e:\数据备份\bhmc&mdd..dbf to bhmc.dbf
copy file e:\数据备份\bhmc&mdd..cdx to bhmc.cdx
else
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
copy file e:\数据备份\kcb&mdd..dbf to kcb.dbf
copy file e:\数据备份\kcb&mdd..cdx to kcb.cdx
copy file e:\数据备份\bhmc&mdd..dbf to bhmc.dbf
copy file e:\数据备份\bhmc&mdd..cdx to bhmc.cdx
endif
set view to kufahj.vue
endif
* *********************************************************
* *
* * _2CX0P6B21 ON SELECTION BAR 1 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 28
* * Called By: ON SELECTION BAR 1 OF POPUP 浏览数据库
* * Prompt: 浏览总领料表(C)
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _2cx0p6b21
SELECT Bhmc.零件编号, Bhmc.零件名称,Ckdj.领料数量,;
Ckdj.领料人, Ckdj.领料日期, Ckdj.ysdd, Ckdj.ys8a as 故障指示, Ckdj.ys88 as 成品, Ckdj.ys88a as 新品1,;
Ckdj.网络 as 新品2, Ckdj.ys89a as 配变, Ckdj.电源 as 不对称电流源, Ckdj.载波, Ckdj.自动化, Ckdj.维护, Ckdj.能创 as 能尚,;
Ckdj.ys201 as 负控, Ckdj.备注;
FROM kfgl!bhmc right JOIN kfgl!ckdj;
ON Bhmc.零件编号 = Ckdj.零件编号
* *********************************************************
* *
* * _2CX0P6B22 ON SELECTION BAR 2 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 29
* * Called By: ON SELECTION BAR 2 OF POPUP 浏览数据库
* * Prompt: 浏览公司领料表
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _2cx0p6b22
&&set view to kk.vue
&&use ckdj
&&browse fields 零件编号:r,领料数量:r,领料人:r,领料日期:r,ysdd:H='调度':r,自动化:r,ys8a:r,;
&&ys88:r,ys88a:r,yswf:H='误防':r,维护:r,其它:r,备注:r nomenu for ysdd=.t. or 自动化=.t. or ys8a=.t. ;
&&or ys88=.t. or ys88a=.t. or yswf=.t. or 维护=.t. or 其它=.t.
&&set view to kufahj.vue
SELECT Bhmc.零件编号, Bhmc.零件名称,Bhmc.规格型号,Ckdj.领料数量,;
Ckdj.领料人, Ckdj.领料日期, Ckdj.ysdd as 调度机, Ckdj.ys8a as 故障指示, Ckdj.ys88 as 成品, Ckdj.ys88a as 新品1,;
Ckdj.ys89a as ,Ckdj.自动化, Ckdj.维护,Ckdj.能创 as 能尚,Ckdj.ys201 as 负控, Ckdj.备注;
FROM kfgl!bhmc right JOIN kfgl!ckdj ON Bhmc.零件编号 = Ckdj.零件编号;
* *********************************************************
* *
* * _2CX0P6B23 ON SELECTION BAR 3 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 30
* * Called By: ON SELECTION BAR 3 OF POPUP 浏览数据库
* * Prompt: 浏览新品2领料表
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _2cx0p6b23
SELECT Bhmc.零件编号, Bhmc.零件名称, Bhmc.规格型号, Ckdj.领料数量,;
Ckdj.领料人, Ckdj.领料日期, Ckdj.网络 as 新品2, Ckdj.备注;
FROM kfgl!bhmc right JOIN kfgl!ckdj ;
ON Bhmc.零件编号 = Ckdj.零件编号;
WHERE Ckdj.网络 = .t.
* *********************************************************
* *
* * _2CX0P6B24 ON SELECTION BAR 4 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 31
* * Called By: ON SELECTION BAR 4 OF POPUP 浏览数据库
* * Prompt: 浏览不对称电流源领料表
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _2cx0p6b24
SELECT Bhmc.零件编号, Bhmc.零件名称, Bhmc.规格型号, Ckdj.领料数量,;
Ckdj.领料人, Ckdj.领料日期, Ckdj.电源 as 不对称电流源, Ckdj.备注;
FROM kfgl!bhmc right JOIN kfgl!ckdj ;
ON Bhmc.零件编号 = Ckdj.零件编号;
WHERE Ckdj.电源 = .t.
* *********************************************************
* *
* * _2CX0P6B25 ON SELECTION BAR 5 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 32
* * Called By: ON SELECTION BAR 5 OF POPUP 浏览数据库
* * Prompt: 浏览载波领料表
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _2cx0p6b25
SELECT Bhmc.零件编号, Bhmc.零件名称, Bhmc.规格型号, Ckdj.领料数量,;
Ckdj.领料人, Ckdj.领料日期, Ckdj.载波, Ckdj.备注;
FROM kfgl!bhmc right JOIN kfgl!ckdj ;
ON Bhmc.零件编号 = Ckdj.零件编号;
WHERE Ckdj.载波 = .t.
* *********************************************************
* *
* * _2CX0P6B26 ON SELECTION BAR 6 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 33
* * Called By: ON SELECTION BAR 6 OF POPUP 浏览数据库
* * Prompt: 浏览成品领料表
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _2cx0p6b26
SELECT Bhmc.零件编号, Bhmc.零件名称, Bhmc.规格型号, Ckdj.领料数量,;
Ckdj.领料人, Ckdj.领料日期, Ckdj.ys88 as 成品, Ckdj.备注;
FROM kfgl!bhmc right JOIN kfgl!ckdj ;
ON Bhmc.零件编号 = Ckdj.零件编号;
WHERE Ckdj.ys88 = .t.
* *********************************************************
* *
* * _2CX0P6B27 ON SELECTION BAR 7 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 34
* * Called By: ON SELECTION BAR 7 OF POPUP 浏览数据库
* * Prompt: 浏览维护领料表
* * Snippet: 13
* *
* *********************************************************
*
PROCEDURE _2cx0p6b27
SELECT Bhmc.零件编号, Bhmc.零件名称, Bhmc.规格型号, Ckdj.领料数量,;
Ckdj.领料人, Ckdj.领料日期, Ckdj.维护, Ckdj.备注;
FROM kfgl!bhmc right JOIN kfgl!ckdj ;
ON Bhmc.零件编号 = Ckdj.零件编号;
WHERE Ckdj.维护 = .t.
* *********************************************************
* *
* * _2CX0P6B28 ON SELECTION BAR 8 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 35
* * Called By: ON SELECTION BAR 8 OF POPUP 浏览数据库
* * Prompt: 浏览负控领料表
* * Snippet: 14
* *
* *********************************************************
*
PROCEDURE _2cx0p6b28
SELECT Bhmc.零件编号, Bhmc.零件名称, Bhmc.规格型号, Ckdj.领料数量,;
Ckdj.领料人, Ckdj.领料日期, Ckdj.ys201 as 负控终端, Ckdj.备注;
FROM kfgl!bhmc right JOIN kfgl!ckdj ;
ON Bhmc.零件编号 = Ckdj.零件编号;
WHERE Ckdj.ys201 = .t.
* *********************************************************
* *
* * _2CX0P6B29 ON SELECTION BAR 9 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 36
* * Called By: ON SELECTION BAR 9 OF POPUP 浏览数据库
* * Prompt: 浏览配变领料表
* * Snippet: 15
* *
* *********************************************************
*
PROCEDURE _2cx0p6b29
SELECT Bhmc.零件编号, Bhmc.零件名称, Bhmc.规格型号, Ckdj.领料数量,;
Ckdj.领料人, Ckdj.领料日期, Ckdj.ys89a as 配变终端, Ckdj.备注;
FROM kfgl!bhmc right JOIN kfgl!ckdj ;
ON Bhmc.零件编号 = Ckdj.零件编号;
WHERE Ckdj.ys89a = .t.
* *********************************************************
* *
* * _2CX0P6B2A ON SELECTION BAR 10 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 37
* * Called By: ON SELECTION BAR 10 OF POPUP 浏览数据库
* * Prompt: 浏览故障指示领料表
* * Snippet: 16
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2a
SELECT Bhmc.零件编号, Bhmc.零件名称, Bhmc.规格型号, Ckdj.领料数量,;
Ckdj.领料人, Ckdj.领料日期, Ckdj.ys8a as 故障指示, Ckdj.备注;
FROM kfgl!bhmc right JOIN kfgl!ckdj ;
ON Bhmc.零件编号 = Ckdj.零件编号;
WHERE Ckdj.ys8a = .t.
* *********************************************************
* *
* * _2CX0P6B2B ON SELECTION BAR 11 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 38
* * Called By: ON SELECTION BAR 11 OF POPUP 浏览数据库
* * Prompt: 浏览自动化领料表
* * Snippet: 17
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2b
SELECT Bhmc.零件编号, Bhmc.零件名称, Bhmc.规格型号, Ckdj.领料数量,;
Ckdj.领料人, Ckdj.领料日期, Ckdj.自动化, Ckdj.备注;
FROM kfgl!bhmc right JOIN kfgl!ckdj ;
ON Bhmc.零件编号 = Ckdj.零件编号;
WHERE Ckdj.自动化 = .t.
* *********************************************************
* *
* * _2CX0P6B2C ON SELECTION BAR 12 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 39
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -