*倉庫帳錄入模塊
*程序名：ckzlr
*程序員：莊稼
*開發日期：1997.12.13
*最后修改日期：
*修改記錄

*變量說明

private all except p_*

do dksjk with 'ckzz','ckzz'
do dksjk with 'ckrjz','ckrjz'
do dksjk with 'ghs','ghs'
do dksjk with 'dxs','dxs'
do dksjk with 'jhd','jhd'
do dksjk with 'thtc','thtc'
do dksjk with 'bxtc','bxtc'
do dksjk with 'xsrjz','xsrjz'
do dksjk with 'xsth','xsth'
do dksjk with 'xsbx','xsbx'
do dksjk with 'chd','chd'
do dksjk with 'dxth','dxth'
do dksjk with 'dxbx','dxbx'
do dksjk with 'dxkrjz','dxkrjz'
do dksjk with 'dxkzz','dxkzz'

set message to '總部倉庫帳錄入'
do jrz with p_gzrrxm,'進入總部倉庫帳錄入'

cxnr=space(20)
qd=.t.
jsq=1
do while qd .and. jsq<=12
  do case
    case jsq=1  &&進貨單
      shk='jhd'
      shbd='jhdsl'
      select &shk
      set filter to 審核入庫='否'

    case jsq=2  &&進貨單退貨，即退貨退廠
      shk='thtc'
      shbd='thtcsl'
      select &shk
      set filter to 審核入庫='否'
      
    case jsq=3  &&進貨單保修退廠
      shk='bxtc'
      shbd='bxtcsl'
      select &shk
      set filter to 審核入庫='否'  .and. 返回='否'

    case jsq=4  &&進貨單保修退廠返回
      shk='bxtc'
      shbd='bxtcfhsl'
      select &shk
      set filter to 審核入庫='否'  .and. 返回='是'
      
    case jsq=5  &&銷售出貨
      shk='xsrjz'
      shbd='xssl'
      select &shk
      set filter to 審核入庫='否'

    case jsq=6  &&銷售退貨
      shk='xsth'
      shbd='xsthsl'
      select &shk
      set filter to 審核入庫='否'

    case jsq=7  &&銷售保修退貨
      shk='xsbx'
      shbd='xsbxsl'
      select &shk
      set filter to 審核入庫='否'  .and. 返回='否'

    case jsq=8  &&銷售保修返回
      shk='xsbx'
      shbd='xsbxfhsl'
      select &shk
      set filter to 審核入庫='否'  .and. 返回='是'
      
    case jsq=9  &&代銷出貨
      shk='chd'
      shbd='chdsl'
      select &shk
      set filter to 審核入庫='否'
      
    case jsq=10  &&代銷退貨
      shk='dxth'
      shbd='dxthsl'
      select &shk
      set filter to 審核入庫='否'
      
    case jsq=11  &&代銷保修
      shk='dxbx'
      shbd='dxbxsl'
      select &shk
      set filter to 審核入庫='否' .and. 返回='否'
      
    case jsq=12  &&代銷保修返回
      shk='dxbx'
      shbd='dxbxfhsl'
      select &shk
      set filter to 審核入庫='否' .and. 返回='是'
  endcase

  count to jls
  if jls>0
    do form &shbd name shbdm linked
  endif
  select &shk
  set filter to
  
  jsq=jsq+1
enddo

do jrz with p_gzrrxm,'退出總部倉庫帳錄入'
set message to ''