ckzsl.prg

vfp的进销存系统

*仓库帐录入模块
*程序名：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 ''