pdbsc.prg

进销存源码

*总部仓库生成盘点表模块
*程序名：pdbsc
*程序员：庄稼
*开发日期：1997.12.20
*修改日期：
*修改记录：

*变量说明

private all except p_*

do gbsjk with 'ckzz'
do dksjk with 'zbpdb','zbpdb'

rqn=year(date())
rqy=month(date())
qd=.t.
do form rqxz

if qd
  do jrz with p_gzrrxm,'生成总部仓库盘点表'
  
  select zbpdb
  locate for 年=rqn .and. 月=rqy
  if found()
    dhxx=str(rqn,4)+'年'+str(rqy,2)+'月的盘点表已经存在，不能再次生成！'
    do form dhk
   else
    dhxx1='正在生成总部盘点表，请稍候...'
    dhxx2='总部盘点表生成完毕。'
    do form xxts name xxts
    
    select zbpdb
    append from ckzz
    replace 年 with rqn,月 with rqy,审核入库 with '否' for 年=0 .and. 月=0
    
    xxts.label1.caption=dhxx2
    xxts.command1.visible=.t.
  endif
endif