ypzz_sl.prg

来自「门诊收费管理系统」· PRG 代码 · 共 18 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: YPZZ_SL.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 PARAMETER DPTID , CPBH
 LOCAL OLDAREA , M.RETU
 OLDAREA = SELECT()
 M.RETU = 0
 DO HANDBUSY
 = SQLEXEC(HAND,'select c3 from ypzz where dptid=?m.dptid and cpbh=?m.cpbh','query')
 IF RECCOUNT('query') <> 0
    M.RETU = C3
 ENDIF 
 SELECT (M.OLDAREA)
 RETURN M.RETU
*