pdbdk.prg

来自「vfp的进销存系统」· PRG 代码 · 共 42 行

*总部仓库盘点表打开模块
*程序名：pdbdk
*程序员：
*开发日期：
*修改日期：
*修改记录：

*变量说明


private all except p_*

do dksjk with 'zbpdb','zbpdb'

rqn=year(date())
rqy=month(date())
qd=.t.

do form rqxz name rqxz

if qd
  select zbpdb
  set filter to 年=rqn .and. 月=rqy
  count to jls
  
  if jls>0
    cxnr=space(20)
    set message to '打开盘点表查看'
    do jrz with p_gzrrxm,'进入盘点表管理'
  
    do form pdbdk name pdbdk
  
    do jrz with p_gzrrxm,'退出盘点表管理'
    set message to
   else
    dhxx='该月盘点表没有生成'
    do form dhk
  endif
  
  select zbpdb
  set filter to
endif