check_detail.prg

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

* check_detail
*para select_id

if used("check_temp")
   sele check_temp
   use
endif   
sele id,type_id,name from property  into table check_temp 
*use check_temp in 0
sele check_temp
alter table check_temp add column yj n (10,2)
alter table check_temp add column zj n (10,2)
alter table check_temp add column jz n (10,2)
alter table check_temp add column ok C (2)
go top
do while .not.eof()
  sele id,old_sum,sum_deprecition,left_value from detail where id=check_temp.id order by date into cursor temp
  sele temp
  go bott
  sele check_temp
  repl yj with temp.old_sum
  repl zj with temp.sum_deprecition
  repl jz with temp.left_value
  repl ok with IIF(YJ=ZJ+JZ,"√","X")
sele check_temp
skip
enddo
sele id as "编号",name as "物品名称",yj as "原价",zj as "累计折旧",jz as "净值",ok as "是否OK" from check_temp where ok="X" into cursor temp_result
if _tally>0
  sele temp_result
  brow 
else
  wait window "正确！"  nowait
  ??chr(7)
endif