dxth.prg

vfp的进销存系统

*代销退货管理模块
*程序名：dxth
*程序员：
*开发日期：1997.12.12
*最后修改日期：
*修改记录

*变量说明
*jhdghs:需要打开的代销商名称
*jhdrqn:需要打开的日期年份
*jhdrqy:需要打开的日期月份
*qd:确定是否打开代销退货清单

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='颜色库中没有颜色，不能打开'
  xytg=.f.
endif

do dksjk with 'dxs','dxs'
if reccount()=0
  dhxx='没有代销商，不能打开'
  xytg=.f.
endif

if .not. xytg
  do form dhk
 else
  select dxs
  go top
  jhdghs=代销商
  jhdrqn=year(date())
  jhdrqy=month(date())
  qd=.t.
  
  do form chddk1
  
  if qd
    select dxth
    set filter to alltrim(代销商)==alltrim(jhdghs) .and. year(日期)=jhdrqn .and. month(日期)=jhdrqy
    
    do jrz with p_gzrrxm,'进入代销退货管理'
    do form dxth name dxth linked
    do jrz with p_gzrrxm,'退出代销退货管理'
    set message to

    select dxth
    set filter to
  endif
endif