_getjgb1.prg

门诊收费管理系统

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


 PARAMETER DS , S_FTYPE , MARK
 LOCAL OLDAREA , CPBH , IS_FIELD , IS_FILT
 OLDAREA = SELECT()
 IF PARAMETERS() = 2
    M.MARK = 1
 ENDIF 
 DS = LOWER(DELSPACE(M.DS))
 IF M.MARK = 1
    IS_FIELD =  ;
         'ftype,pm,xhgg,dw2 as dw,round(lsj/rule_,3) as lsj,jm,type5,cpbh,rule_,ybbl,jfdptid,sfks,type6,type3,type2,h_price,comments'
 ELSE 
    IS_FIELD =  ;
         'ftype,pm,xhgg,dw,lsj,jm,type5,cpbh,rule_,ybbl,jfdptid,sfks,type6,type3, type2,h_price,comments'
 ENDIF 
 IF ISDIGIT(M.DS)
    M.DS = _TYPE(M.DS,'n')
    IS_FILT = 'jm=' + ALLTRIM(STR(M.DS))
 ELSE 
    M.DS =  ;
         IIF(LEFT(M.DS,1) == '-',SUBSTR(M.DS,2,LEN(ALLTRIM(M.DS)) - 1),ALLTRIM(M.DS))
    IS_FILT = "py like '%" + ALLTRIM(LOWER(M.DS)) + "%'"
 ENDIF 
 DO HANDBUSY
 = SQLEXEC(HAND,'select ' + M.IS_FIELD + ' from jgb1 where mark=1 and ftype in (' + M.S_FTYPE +  ;
') and ' +  ;
IS_FILT +  ;
' order by jm ','query')
 DO CASE 
 CASE RECCOUNT('query') = 0
 CASE RECCOUNT('query') = 1
    LOCATE 
    M.IL_ONLYONE = .T.
 OTHERWISE 
    DO FORM getjgb1
 ENDCASE 
 SELECT (M.OLDAREA)
 RETURN QUERY.CPBH
*