xsbx.prg

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

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

*变量说明
*ckfh:是否查看未返回的数据
*rqn:需要打开的日期年份
*rqy:需要打开的日期月份
*qd:确定是否打开

private all except p_*

jytg=.t.
do dksjk with 'xsbx','xsbx'
do dksjk with 'spk','spk'
do dksjk with 'ysk','ysk'
if reccount()=0
  dhxx='颜色库中没有颜色，不能打开'
  jytg=.f.
endif

if jytg
  rqn=year(date())
  rqy=month(date())
  qd=.t.
  ckfh=1
  do form xsbxdk1 name xsbxdk1 linked
  if qd
    select xsbx
    do case
      case ckfh=1
        set filter to 返回='否'
      case ckfh=2
        set filter to year(日期)=rqn .and. month(日期)=rqy
    endcase
        
    count to jls
    cxnr=space(20)
    do jrz with p_gzrrxm,'进入销售退货管理'
    do form xsbxdk name xsbxdk linked
    do jrz with p_gzrrxm,'退出销售退货管理'

    set message to
    select xsbx
    set filter to
  endif
 else
  do form dhk
endif