*總部庫存統計模塊
*程序名：zbkctj
*程序員：莊稼
*開發日期：1997.12.21
*修改日期：
*修改記錄：

*變量說明


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,'退出總部庫存數據統計'