jhdlr.prg

vfp的进销存系统

*进货单录入
*程序名：jhdlr
*程序员：
*开发日期：
*最后修改日期：
*修改记录

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

private all except p_*

jctg=.t.
jehj=0
do dksjk with 'jhd','jhd'
scatter to jhdlr blank

do dksjk with 'ghs','ghs'
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 jhd
  jhdlr(3)=date()
  qd=.t.

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