ts.prg

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

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


 PARAMETER ID , NO , S_DBF
 PRIVATE SA , EXPR , ROW , SNO
 SA = SELECT()
 IF PARAMETERS() = 1
    NO = 1
    S_DBF = 'l_user'
 ENDIF 
 IF PARAMETERS() = 2
    S_DBF = 'l_user'
 ENDIF 
 IF  .NOT. INLIST(S_DBF,'user','l_user','yk_','l_yk_','mz_','l_mz_','zy_','l_zy_','qx_','l_qx_','zw_','l_zw_')
    WAIT WINDOW NOWAIT 'error in ts.prg about s_dbf!'
 ENDIF 
 S_DBF = IIF(AT('l_',M.S_DBF) > 0,'','l_') + M.S_DBF + 'expr'
 SNO = M.NO
 NO = _TYPE(M.SNO,'N')
 IF EMPTY(M.NO)
    WAIT WINDOW NOWAIT 'error in ts.prg' + M.ID
    RETURN _TYPE(M.SNO,'C')
 ENDIF 
 ID = ALLTRIM(M.ID)
 ID = M.ID + ';'
 IF  .NOT. USED(M.S_DBF)
    USE IN 0 (M.S_DBF)
 ENDIF 
 SELECT (M.S_DBF)
 IF SEEK(ALLTRIM(M.ID) + ALLTRIM(STR(M.NO)),M.S_DBF,'main')
    M.EXPR = EXPR
 ELSE 
    ?? CHR(7)
    M.EXPR = ''
    WAIT WINDOW NOWAIT M.ID + 'no found!'
 ENDIF 
 SELECT (M.SA)
 RETURN ALLTRIM(M.EXPR)
*