*銷售保修管理模塊
*程序名：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