chddk.prg

vfp的进销存系统

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

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

private all except p_*

clear typeahead
do dksjk with 'chd','chd'
set order to tag rq
do dksjk with 'dxs','dxs'
do dksjk with 'ysk','ysk'
do dksjk with 'spk','spk'
do dksjk with 'fkfs','fkfs'

select chd
if reccount()>0
  do jrz with p_gzrrxm,'进入出货单管理。'
  set message to '出货单管理'
  qd=.t.
  jhdrqn=year(date())
  jhdrqy=month(date())
  select dxs
  go top
  jhdghs=代销商
  do form chddk1 name chddk1 linked
  if qd
    select chd
    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 chddk2 name chddk2 linked
    endif
    select chd
    set filter to
  endif
  do jrz with p_gzrrxm,'退出出货单管理。'
  set message to ''
 else
  dhxx='没有出货单，不能打开！'
  do form dhk
endif