kctj.prg

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

*总部库存统计模块
*程序名：zbkctj
*程序员：
*开发日期：
*修改日期：
*修改记录：

*变量说明


private all except p_*

dhxx1='正在统计数据，请稍候...'
do form xxts name xxts
  
do jrz with p_gzrrxm,'进入总部库存数据统计'

do gbsjk with 'ckzz1'
do dksjk with 'ckzz','ckzz'
sort to _ckzz1 on 品名,规格
do gbsjk with 'ckzz'
do dksjk with '_ckzz1','ckzz1'
total on 品名+规格 to _ckzz2
do dksjk with 'spk','spk'
do gbsjk with '_kctj'

create table _kctj free;
  (品名 c(20),规格 c(20),余额 n(5),金额 n(12,2))
append from _ckzz2 for 余额>0

scan
  select spk
  locate for alltrim(品名)==alltrim(_kctj.品名) .and. alltrim(规格)==alltrim(_kctj.规格)
  if found()
    select _kctj
    replace 金额 with 余额*spk.进货单价
   else
    select _kctj
    dhxx='商品库中没有'+alltrim(品名)+alltrim(规格)+'不能统计其库存金额！'
    do form dhk
  endif
endscan
sum 金额 to jehj
append blank
replace 品名 with replicate('-',20)
append blank
replace 品名 with '    合    计',金额 with jehj

xxts.release
qd=.t.
dhxx='查看后是否打印？'
do form sfdhk

select _kctj
report form zbkctj preview
if qd
  report form zbkctj to printer noconsole
endif

do jrz with p_gzrrxm,'退出总部库存数据统计'