*代銷(xiāo)退貨管理模塊
*程序名：dxth
*程序員：莊稼
*開(kāi)發(fā)日期：1997.12.12
*最后修改日期：
*修改記錄

*變量說(shuō)明
*jhdghs:需要打開(kāi)的代銷(xiāo)商名稱(chēng)
*jhdrqn:需要打開(kāi)的日期年份
*jhdrqy:需要打開(kāi)的日期月份
*qd:確定是否打開(kāi)代銷(xiāo)退貨清單

private all except p_*

xytg=.t.
do dksjk with 'dxth','dxth'
do dksjk with 'spk','spk'

do dksjk with 'ysk','ysk'
if reccount()=0
  dhxx='顏色庫(kù)中沒(méi)有顏色，不能打開(kāi)'
  xytg=.f.
endif

do dksjk with 'dxs','dxs'
if reccount()=0
  dhxx='沒(méi)有代銷(xiāo)商，不能打開(kāi)'
  xytg=.f.
endif

if .not. xytg
  do form dhk
 else
  select dxs
  go top
  jhdghs=代銷(xiāo)商
  jhdrqn=year(date())
  jhdrqy=month(date())
  qd=.t.
  
  do form chddk1
  
  if qd
    select dxth
    set filter to alltrim(代銷(xiāo)商)==alltrim(jhdghs) .and. year(日期)=jhdrqn .and. month(日期)=jhdrqy
    
    do jrz with p_gzrrxm,'進(jìn)入代銷(xiāo)退貨管理'
    do form dxth name dxth linked
    do jrz with p_gzrrxm,'退出代銷(xiāo)退貨管理'
    set message to

    select dxth
    set filter to
  endif
endif