📄 qcxlcd.mpr
字号:
* * Called By: ON SELECTION BAR 12 OF POPUP 浏览数据库
* * Prompt: 浏览新品领料表
* * Snippet: 18
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2c
SELECT Bhmc.零件编号, Bhmc.零件名称, Bhmc.规格型号, Ckdj.领料数量,;
Ckdj.领料人, Ckdj.领料日期, Ckdj.ys88a as 新品1, Ckdj.备注;
FROM kfgl!bhmc right JOIN kfgl!ckdj ;
ON Bhmc.零件编号 = Ckdj.零件编号;
WHERE Ckdj.ys88a = .t.
* *********************************************************
* *
* * _2CX0P6B2D ON SELECTION BAR 14 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 41
* * Called By: ON SELECTION BAR 14 OF POPUP 浏览数据库
* * Prompt: 浏览入库登记表(I)
* * Snippet: 19
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2d
&&set view to kk.vue
&&use rkdj
&&browse fields 零件编号:r,入库数量:r,入库日期:r,供货厂家:r,入库编号:r,入库价格:r nomenu
&&set view to kufahj.vue
SELECT Bhmc.零件编号, Bhmc.零件名称, Bhmc.规格型号, Rkdj.入库数量,;
Rkdj.入库价格, Rkdj.入库日期, Rkdj.供货厂家;
FROM kfgl!bhmc right JOIN kfgl!rkdj ;
ON Bhmc.零件编号 = Rkdj.零件编号
* *********************************************************
* *
* * _2CX0P6B2E ON SELECTION BAR 16 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 43
* * Called By: ON SELECTION BAR 16 OF POPUP 浏览数据库
* * Prompt: 查看总库存表(K)
* * Snippet: 20
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2e
set view to kk.vue
use kcb
sort to kcb1 on 零件编号
use kcb1
browse fields 零件编号:r,上月结存:r,本月进仓:r,本月领出:r,库存量:r nomenu
use
erase kcb1.*
set view to kufahj.vue
* *********************************************************
* *
* * _2CX0P6B2F ON SELECTION BAR 17 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 44
* * Called By: ON SELECTION BAR 17 OF POPUP 浏览数据库
* * Prompt: 浏览总库存表(L)
* * Snippet: 21
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2f
sele bhmc.零件编号,零件名称,规格型号,上月结存,本月进仓,本月领出,库存量;
from bhmc,kcb where bhmc.零件编号=kcb.零件编号 order by bhmc.零件编号
* *********************************************************
* *
* * _2CX0P6B2G ON SELECTION BAR 19 OF POPUP 浏览数据库
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 46
* * Called By: ON SELECTION BAR 19 OF POPUP 浏览数据库
* * Prompt: 浏览公司库存表
* * Snippet: 22
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2g
sele bhmc.零件编号,零件名称,规格型号,上月结存,本月进仓,本月领出,库存量;
from bhmc,kcb where bhmc.零件编号=kcb.零件编号;
and (asc(kcb.零件编号)>=0) order by bhmc.零件编号
* *********************************************************
* *
* * _2CX0P6B2H ON SELECTION BAR 6 OF POPUP 查询c
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 84
* * Called By: ON SELECTION BAR 6 OF POPUP 查询c
* * Prompt: 零件库存查错(C)
* * Snippet: 23
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2h
set view to kk.vue
use kcb
browse fields 零件编号:r,上月结存:r,本月进仓:r,本月领出:r,库存量:r nomenu;
for 上月结存+本月进仓-本月领出<>库存量
use
set view to kufahj.vue
* *********************************************************
* *
* * _2CX0P6B2I ON SELECTION BAR 8 OF POPUP 查询c
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 86
* * Called By: ON SELECTION BAR 8 OF POPUP 查询c
* * Prompt: 排序编号库存表
* * Snippet: 24
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2i
set view to kk.vue
use kfgl!kcb
sort to kcb1 on 零件编号
use kcb1
index on 零件编号 tag 零件编号
erase kfgl!kcb.*
use kfgl!bhmc
copy file kcb1.* to kfgl!kcb.*
sort to bhmc1 on 零件编号
use bhmc1
index on 零件编号 tag 零件编号
use
erase kfgl!bhmc.*
copy file bhmc1.* to kfgl!bhmc.*
erase bhmc1.*
erase kcb1.*
set view to kufahj.vue
* *********************************************************
* *
* * _2CX0P6B2J ON SELECTION BAR 1 OF POPUP 入库登记查
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 52
* * Called By: ON SELECTION BAR 1 OF POPUP 入库登记查
* * Prompt: 查询
* * Snippet: 25
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2j
sele bhmc.零件编号,零件名称,规格型号,入库数量,入库日期,供货厂家,入库编号,入库价格;
from bhmc,rkdj where bhmc.零件编号=rkdj.零件编号 order by bhmc.零件编号
* *********************************************************
* *
* * _2CX0P6B2K ON SELECTION BAR 1 OF POPUP 领料登记查
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 64
* * Called By: ON SELECTION BAR 1 OF POPUP 领料登记查
* * Prompt: 查询
* * Snippet: 26
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2k
sele bhmc.零件编号,零件名称,规格型号,领料数量,领料人,领料日期,备注;
from bhmc,ckdj where bhmc.零件编号=ckdj.零件编号 order by bhmc.零件编号
* *********************************************************
* *
* * _2CX0P6B2L ON SELECTION BAR 1 OF POPUP 零件库存查
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 79
* * Called By: ON SELECTION BAR 1 OF POPUP 零件库存查
* * Prompt: 查询
* * Snippet: 27
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2l
sele bhmc.零件编号,bhmc.零件名称,bhmc.规格型号,上月结存,本月进仓,本月领出,库存量;
from bhmc,kcb where bhmc.零件编号=kcb.零件编号 order by bhmc.零件编号
&&brows title '查询所有零件库存表' fields 零件编号:R,bhmc.零件名称:R,bhmc.规格型号:R,上月结存:r,本月进仓:r,本月领出:R,库存量:r all
* *********************************************************
* *
* * _2CX0P6B2M ON SELECTION BAR 1 OF POPUP 预览或打印
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 90
* * Called By: ON SELECTION BAR 1 OF POPUP 预览或打印
* * Prompt: 公司库存报表(G)
* * Snippet: 28
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2m
&&ckdjgcp='总库存'
ckdjgc='银网电气'
report form ykcbb prev
* *********************************************************
* *
* * _2CX0P6B2N ON SELECTION BAR 3 OF POPUP 预览或打印
* *
* * Procedure Origin:
* *
* * From Menu: QCXLCD.MPR, Record: 92
* * Called By: ON SELECTION BAR 3 OF POPUP 预览或打印
* * Prompt: 故障指示月报表
* * Snippet: 29
* *
* *********************************************************
*
PROCEDURE _2cx0p6b2n
ckdjgcp='ys8a'
ckdjgc='故障指示'
do ppbb2
* *********************************************************
* *
* *⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -