yf_getypkcmx.prg

门诊收费管理系统

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


 PARAMETER CPBH , L_DPTID , MARK , TYPE
 PRIVATE OLDAREA , IS_FIELD , PZH
 OLDAREA = SELECT()
 IF PARAMETERS() = 2
    MARK = 1
    TYPE = 1
 ENDIF 
 IF PARAMETERS() = 3
    TYPE = 1
 ENDIF 
 M.PZH = 0
 IF TYPE('m.l_dptid') == UPPER('N') .OR.  ;
(TYPE(M.L_DPTID) == UPPER('C') AND AT(',',M.L_DPTID) = 0)
    L_DPTID = _TYPE(L_DPTID,'C') + ',0'
 ENDIF 
 GL_SYSTEMDATA = IIF(TYPE('gl_systemdata') = 'U',.F.,GL_SYSTEMDATA)
 DO HANDBUSY
 IF M.MARK = 1
    IF M.TYPE = 1
       IS_FIELD =  ;
            'dptid,datetime,sl2,round(lsj/rule_,4) as lsj,edate,factory,			ph,pzh,round(jj/rule_,4) as jj,pfj,outpzh,bl,round(price/rule_,4) as price,rule_'
    ELSE 
       IS_FIELD =  ;
            'dptid,datetime,sl2,lsj,edate,factory,			ph,pzh,jj,pfj,outpzh,bl,price,rule_'
    ENDIF 
    = SQLEXEC(HAND,'select ' + M.IS_FIELD + ' from ypkcmx where ' + ' sl2>0 and dptid in (' +  ;
   M.L_DPTID +  ;
   ") 			  and ypkcmx.cpbh='" +  ;
   LOWER(M.CPBH) +  ;
   "' order by datetime",'query')
    DO CASE 
    CASE RECCOUNT('query') = 0
       M.PZH = 0
    CASE RECCOUNT('query') > 0
       DO FORM yf_getypkcmx1
       M.IL_ONLYONE = .F.
    ENDCASE 
 ELSE 
    IF M.TYPE = 1
       IS_FIELD =  ;
            'b.dptid,rtrim(a.pm)+a.xhgg as pm,a.dw2 as dw,b.lsj/b.rule_ as lsj,b.sl2,b.edate,             b.factory,b.ph,a.cpbh,a.rule_,a.ftype,b.outpzh,b.bl,b.price,b.pzh,b.pfj,b.jj,a.type5'
    ELSE 
       IS_FIELD =  ;
            'b.dptid,rtrim(a.pm)+a.xhgg as pm,a.dw2 as dw,b.lsj,b.sl2,b.edate,			b.factory,b.ph,a.cpbh,a.rule_,a.ftype,b.outpzh,b.bl,b.price,b.pzh,b.pfj,b.jj,a.type5'
    ENDIF 
    = SQLEXEC(HAND,'select ' + M.IS_FIELD + ' from jgb1 a,ypkcmx b where ' +  ;
   'b.sl2>0 and b.dptid in (' +  ;
   M.L_DPTID +  ;
   ") 		 and a.py like '%" +  ;
   ALLTRIM(LOWER(M.CPBH)) +  ;
   "%'		  and a.cpbh=b.cpbh order by b.datetime",'query')
    DO CASE 
    CASE RECCOUNT('query') = 0
       M.PZH = 0
    CASE RECCOUNT('query') > 0
       DO FORM yf_getypkcmx2
       M.IL_ONLYONE = .F.
    ENDCASE 
 ENDIF 
 SELECT (M.OLDAREA)
 RETURN M.PZH
*