dxpdbsc.prg

vfp的进销存系统

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

*变量说明

private all except p_*

do gbsjk with 'dxkzz'
do dksjk with 'dxpdb','dxpdb'
do dksjk with 'dxs','dxs'

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

if qd
  do jrz with p_gzrrxm,'生成代销商仓库盘点表'
  
  select dxpdb
  locate for 年=jhdrqn .and. 月=jhdrqy .and. alltrim(代销商)==alltrim(jhdghs)
  if found()
    dhxx=alltrim(jhdghs)+'：'+chr(13)+;
      str(jhdrqn,4)+'年'+str(jhdrqy,2)+'月的盘点表已经存在，不能再次生成！'
    do form dhk
   else
    dhxx1='正在生成盘点表，请稍候...'
    dhxx2='盘点表生成完毕。'
    do form xxts name xxts
    
    select dxpdb
    append from dxkzz for alltrim(代销商)==alltrim(jhdghs)
    replace 年 with jhdrqn,月 with jhdrqy,审核入库 with '否',代销商 with jhdghs;
      for 年=0 .and. 月=0
    
    xxts.label1.caption=dhxx2
    xxts.command1.visible=.t.
  endif
endif