jhrk.prg

来自「一个小的电脑销售管理系统」· PRG 代码 · 共 20 行

close all
sele 0
use cpjhb
set order to tag cph
if recc()<>0
sele 0
use cpb
set order to tag cph
set relation to cph into cpjhb
set skip to cpjhb
repl all kcsl with kcsl+xsb.jhsl
set relation to
sele cpjhb
x=str(year(date()),4)
y=iif(month(date())>9,str(month(date()),2),str(month(date()),1))
z=iif(day(date())>9,str(day(date()),2),str(day(date()),1))
w="cpjhb"+x+y+z
copy to &w
zap
retu