xszlr.prg

vfp的进销存系统

*销售日记帐录入
*程序名：xszlr
*程序员：
*开发日期：
*最后修改日期：
*修改记录

*变更说明

private all except p_*

do dksjk with 'spk','spk'

do dksjk with 'xsrjz','xsrjz'
scatter to xszbl blank
set order to tag dh
go bottom
xdh=ltrim(str(val(单号)+1))
xszbl(2)=stuff(replicate('0',10),11-len(xdh),len(xdh),xdh)
set order to 0

do dksjk with 'ysk','ysk'
go top
xszbl(6)=颜色

xszbl(1)=date()
xszbl(9)=100
jhdlrdm=space(10)
jehj1=0
jehj2=0

do jrz with p_gzrrxm,'进入销售日记帐录入'
do form xszlr name xszlr linked
do jrz with p_gzrrxm,'退出销售日记帐录入'