dxpdbdk.prg

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

*代销商仓库盘点表打开模块
*程序名：dxpdbdk
*程序员：
*开发日期：1997.12.24
*修改日期：
*修改记录：

*变量说明


private all except p_*

do dksjk with 'dxpdb','dxpdb'
do dksjk with 'dxs','dxs'

select dxs
go top
jhdghs=代销商
jhdrqn=year(date())
jhdrqy=month(date())
qd=.t.

do form chddk1 name chddk1

if qd
  select dxpdb
  set filter to 年=jhdrqn .and. 月=jhdrqy .and. alltrim(代销商)==alltrim(jhdghs)
  count to jls
  
  if jls>0
    cxnr=space(20)
    do jrz with p_gzrrxm,'进入代销商盘点表管理'
  
    do form dxpdbdk name dxpdbdk
  
    do jrz with p_gzrrxm,'退出代销商盘点表管理'
    set message to
   else
    dhxx='该月盘点表没有生成'
    do form dhk
  endif
  
  select dxpdb
  set filter to
endif