get_new_id.prg

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

* get_new_id.prg
* 获取新的ID号程序
Func get_new_id
para ctablename
sele id_list
loca for upper(tablename)=upper(ctablename)
if found()
  new_id=id+1
   repl id with new_id
   retu new_id
else
  appe blank
  repl tablename with ctablename
  repl id with 1
  retu 1
endif