count_all.prg

来自「固定资产管理」· PRG 代码 · 共 29 行

* count_all
   
yj=0
zj=0
jz=0
if !used("property")
  use property share
endi   
sele property
go top
do while !eof()
   sele * from detail where id=property.id order by date into cursor temp
   sele temp
   go bott
    yj=yj+old_sum
    zj=zj+sum_deprecition
    jz=jz+left_value

sele property
skip
enddo

if yj=zj+jz
  wait window "正确！" nowait
else
  wait window "不正确！" nowait
endif  
messagebox("总原价："+str(yj,13,2)+chr(13)+"总累计折旧："+str(zj,13,2)+chr(13)+"总净值："+str(jz,13,2),64,"总统计")