chdlr.prg

进销存源码

*出货单录入
*程序名：chdlr
*程序员：庄稼
*开发日期：1997.12.9
*最后修改日期：
*修改记录

*变量说明
*jhdlr1:进货单录入表单1
*jhdlr2:进货单录入表单2
*jctg:检查通过，是否具备输入的条件
*qd:确定

private all except p_*

jctg=.t.
jehj=0
do dksjk with 'chd','chd'
scatter to jhdlr blank
set order to tag dh
go bottom
xdh=ltrim(str(val(出货单号)+1))
jhdlr(2)=stuff(replicate('0',10),11-len(xdh),len(xdh),xdh)
set order to 0

do dksjk with 'dxs','dxs'
if reccount()=0
  dhxx='没有代销商不能输入！'
  jctg=.f.
 else
  go top
  jhdlr(1)=代销商
endif

do dksjk with 'fkfs','fkfs'
if reccount()=0
  dhxx='没有付款方式不能输入！'
  jctg=.f.
 else
  go top
  jhdlr(4)=付款方式
endif

do dksjk with 'spk','spk'
if reccount()=0
  dhxx='商品库中没有数据，不能输入！'
  jctg=.f.
endif

do dksjk with 'ysk','ysk'
if reccount()=0
  dhxx='颜色库中没有数据，不能输入！'
  jctg=.f.
 else
  go top
  jhdlr(7)=颜色
endif

if jctg
  select chd
  jhdlr(3)=date()
  qd=.t.

  do form chdlr1 name chdlr1 linked
  if qd
    jhdlr(10)=100
    jhdlrdm=space(10)
    set message to '出货单录入'
    do jrz with p_gzrrxm,'进入出货单录入'
    do form chdlr2 name chdlr2 linked
    do jrz with p_gzrrxm,'退出出货单录入'
  endif
 else
  do form dhk
endif