dxbx.prg

来自「VF源程序 商品进销管理系统」· PRG 代码 · 共 56 行

*代销保修管理模块
*程序名：dxbx
*程序员：庄稼
*开发日期：1997.12.11
*最后修改日期：
*修改记录

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

private all except p_*

xytg=.t.
do dksjk with 'dxbx','dxbx'
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 dxbx
    set filter to alltrim(代销商)==alltrim(jhdghs) .and. year(日期)=jhdrqn .and. month(日期)=jhdrqy
    
    do jrz with p_gzrrxm,'进入代销保修管理'
    do form dxbx name dxbx linked
    do jrz with p_gzrrxm,'退出代销保修管理'
    set message to

    select dxbx
    set filter to
  endif
endif