*進貨單打開模塊
*程序名：jhddk
*程序員：莊稼
*開發(fā)日期：1997.11.24
*最后修改日期：
*修改記錄

*變量說明
*cxnr:查詢內(nèi)容
*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