?? xsbx.prg
字號:
*銷售保修管理模塊
*程序名:xsbx
*程序員:莊稼
*開發日期:1997.12.7
*最后修改日期:
*修改記錄
*變量說明
*ckfh:是否查看未返回的數據
*rqn:需要打開的日期年份
*rqy:需要打開的日期月份
*qd:確定是否打開
private all except p_*
jytg=.t.
do dksjk with 'xsbx','xsbx'
do dksjk with 'spk','spk'
do dksjk with 'ysk','ysk'
if reccount()=0
dhxx='顏色庫中沒有顏色,不能打開'
jytg=.f.
endif
if jytg
rqn=year(date())
rqy=month(date())
qd=.t.
ckfh=1
do form xsbxdk1 name xsbxdk1 linked
if qd
select xsbx
do case
case ckfh=1
set filter to 返回='否'
case ckfh=2
set filter to year(日期)=rqn .and. month(日期)=rqy
endcase
count to jls
cxnr=space(20)
do jrz with p_gzrrxm,'進入銷售退貨管理'
do form xsbxdk name xsbxdk linked
do jrz with p_gzrrxm,'退出銷售退貨管理'
set message to
select xsbx
set filter to
endif
else
do form dhk
endif
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -