thtc.prg

vfp的进销存系统

*退货退厂管理模块
*程序名：thtc
*程序员：
*开发日期：
*最后修改日期：
*修改记录

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

private all except p_*

xytg=.t.
do dksjk with 'thtc','thtc'
do dksjk with 'spk','spk'
do dksjk with 'ysk','ysk'
if reccount()=0
  dhxx='颜色库中没有颜色，不能打开'
endif
do dksjk with 'ghs','ghs'
if reccount()=0
  dhxx='没有供货商，不能打开'
endif
go top
if reccount()=0
  do form dhk
 else
  jhdghs=供货商
  jhdrqn=year(date())
  jhdrqy=month(date())
  qd=.t.
  do form jhddk1
  if qd
    select thtc
    set filter to alltrim(供货商)==alltrim(jhdghs) .and. year(日期)=jhdrqn .and. month(日期)=jhdrqy
    do jrz with p_gzrrxm,'进入退货退厂管理'
    do form thtc name thtc linked
    do jrz with p_gzrrxm,'退出退货退厂管理'
    set message to
    select thtc
    set filter to
  endif
endif