count_month.prg

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

* count_month
* count_all
para _year,_month
tj="year(date)=_year and month(date)=_month"
   
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 and &tj order by date into cursor temp
   sele temp
   go bott
    yj=yj+old_sum
    zj=zj+year_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,"总统计")