_getypmx.prg

门诊收费管理系统

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


 PARAMETER CPBH , DPTID , L_MARK , TYPE , MARK
 PRIVATE OLDAREA , IS_FIELD , IS_FILT , PZH
 OLDAREA = SELECT()
 M.PZH = 0
 DO CASE 
 CASE M.MARK = 1
    IS_FIELD =  ;
         'ypmxinde.datetime,round(ypmx.sl2/rule_,6) as sl2,ypmx.lsj,ypmx.edate,ypmx.factory,			ypmx.ph,ypmx.pzh,ypmx.jj,ypmx.pfj,ypmx.bl,ypmx.outpzh,ypmx.price'
 CASE M.MARK = 3
    IS_FIELD =  ;
         'ypmxinde.datetime,ypmx.sl2,round(ypmx.lsj/ypmx.rule_,6) as lsj,ypmx.edate,ypmx.factory,			ypmx.ph,ypmx.pzh,round(ypmx.jj/ypmx.rule_,6) as jj,round(ypmx.pfj/ypmx.rule_,6) as pfj,ypmx.bl,ypmx.outpzh,			round(ypmx.price/ypmx.rule_,6) as price'
 CASE M.MARK = 2
    IS_FIELD =  ;
         'ypmxinde.datetime,ypmx.sl2,ypmx.jj,ypmx.lsj,ypmx.edate,			ypmx.factory,ypmx.ph,ypmx.pzh,ypmx.pfj,ypmx.bl,ypmx.outpzh,ypmx.price'
 OTHERWISE 
    IS_FIELD =  ;
         'ypmxinde.datetime,ypmx.sl2,ypmx.jj,ypmx.lsj,ypmx.edate,			ypmx.factory,ypmx.ph,ypmx.pzh,ypmx.pfj,ypmx.bl,ypmx.outpzh,ypmx.price'
 ENDCASE 
 GL_SYSTEMDATA = IIF(TYPE('gl_systemdata') = 'U',.F.,GL_SYSTEMDATA)
 DO HANDBUSY
 = SQLEXEC(HAND,'select ' + M.IS_FIELD + ' from ypmxinde,ypmx where ' +  ;
IIF(M.DPTID > 0,'ypmxinde.dptid=' + STR(M.DPTID),'ypmxinde.dptid>0') +  ;
' and ypmxinde.type=' +  ;
STR(M.TYPE) +  ;
' and ypmxinde.id=ypmx.id 		  and ypmx.mark in (' +  ;
M.L_MARK +  ;
") 		  and ypmx.cpbh='" +  ;
LOWER(M.CPBH) +  ;
"' order by ypmxinde.datetime desc",'query')
 DO CASE 
 CASE RECCOUNT('query') = 0
    M.PZH = 0
 CASE RECCOUNT('query') > 0
    IF MARK = 2
       DO FORM getypmx2
    ELSE 
       DO FORM getypmx1
    ENDIF 
    M.IL_ONLYONE = .F.
 ENDCASE 
 SELECT (M.OLDAREA)
 M.PZH = QUERY.PZH
 RETURN M.PZH
*