tijiu.prg

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

para property_id
sele detail
appe blank

thisform.txtid.value=property_id
thisform.txtdate.value=date()
thisform.txtcomment.value="提月折旧"

sele jbzjl_m,jbzje_m from property where id=property_id into cursor temp
if _tally#1
   messagebox("异常错误！",16,"错误")
   retu .f.
endif
   
sele temp
thisform.txtjbzjl_m.value=temp.jbzjl_m
thisform.txtjbzje_m.value=temp.jbzje_m

sele num,price,old_sum,used_year,used_month,sum_deprecition,left_value from detail where id=property_id into cursor temp order by date
if _tally=0
   messagebox("没有记录，无法提折旧！",16,"错误")
   retu .f.
endif

sele temp
go bott
*!*	activate screen
*!*	?temp.left_value
if temp.left_value<=0
   messagebox("已经报废！",48,"警告")
   retu .f.
endif   
thisform.txtnum.value=temp.num
thisform.txtprice.value=temp.price
thisform.txtold_sum.value=temp.old_sum
thisform.txtused_year.value=temp.used_year
thisform.txtused_month.value=temp.used_month
if thisform.txtused_month.value=12
   thisform.txtused_year.value=thisform.txtused_year.value+1
   thisform.txtused_month.value=0
else
   thisform.txtused_month.value=thisform.txtused_month.value+1  
endif   

thisform.txtyear_deprecition.value=temp.old_sum*thisform.txtjbzjl_m.value/100
thisform.txtsum_deprecition.value=temp.sum_deprecition+thisform.txtyear_deprecition.value
thisform.txtleft_value.value=temp.left_value-thisform.txtyear_deprecition.value