jhddk.prg

vfp的进销存系统

*进货单打开模块
*程序名：jhddk
*程序员：
*开发日期：
*最后修改日期：
*修改记录

*变量说明
*cxnr:查询内容
*jehj:金额合计
*jhdghs:打开进货单的供货商
*jhdrqn:打开进货单日期年
*jhdrqy:打开进货单日期月
*qd:确定是否进入

private all except p_*

clear typeahead
do dksjk with 'jhd','jhd'
set order to tag rq
do dksjk with 'ghs','ghs'
do dksjk with 'ysk','ysk'
do dksjk with 'spk','spk'
do dksjk with 'fkfs','fkfs'

select jhd
if reccount()>0
  do jrz with p_gzrrxm,'进入进货单管理。'
  set message to '进货单管理'
  qd=.t.
  jhdrqn=year(date())
  jhdrqy=month(date())
  select ghs
  go top
  jhdghs=供货商
  do form jhddk1 name jhddk1 linked
  if qd
    select jhd
    set filter to alltrim(供货商)==alltrim(jhdghs) .and. year(日期)=jhdrqn .and. month(日期)=jhdrqy
    count to jls
    if jls=0
      dhxx=alltrim(jhdghs)+'：'+chr(13)+str(jhdrqn,4)+'年'+str(jhdrqy,2)+'月没有进货单，不能打开！'
      do form dhk
     else
      cxnr=space(20)
      do form jhddk2 name jhddk2 linked
    endif
    select jhd
    set filter to
  endif
  do jrz with p_gzrrxm,'退出进货单管理。'
  set message to ''
 else
  dhxx='没有进货单，不能打开！'
  do form dhk
endif