bxtc.prg

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

*保修退厂管理模块
*程序名：bxtc
*程序员：庄稼
*开发日期：1997.12.1
*最后修改日期：
*修改记录

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

private all except p_*

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