_getypmx4.prg

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

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


 PARAMETER CPBH , L_DPTID
 PRIVATE OLDAREA , IS_FIELD , IS_FILT , PZH
 OLDAREA = SELECT()
 M.PZH = 0
 IF AT(',',L_DPTID) = 0
    L_DPTID = L_DPTID + ',999999'
 ENDIF 
 IS_FIELD =  ;
      'a.dptid,a.datetime,b.sl2,round(b.lsj/b.rule_,6) as lsj,b.edate,b.factory,	b.ph,b.pzh,round(b.jj/b.rule_,6) as jj,round(b.pfj/b.rule_,6) as pfj,b.bl,b.outpzh,	round(b.price/b.rule_,6) as price'
 GL_SYSTEMDATA = IIF(TYPE('gl_systemdata') = 'U',.F.,GL_SYSTEMDATA)
 DO HANDBUSY
 = SQLEXEC(HAND,'select ' + M.IS_FIELD + ' from ypmxinde a,ypmx b where ' + 'a.dptid in (' +  ;
M.L_DPTID +  ;
')' +  ;
" and a.type=2 		 and a.id=b.id 		  and b.mark=1 		  and b.cpbh='" +  ;
LOWER(M.CPBH) +  ;
"'",'query')
 DO CASE 
 CASE RECCOUNT('query') = 0
    M.PZH = 0
 CASE RECCOUNT('query') > 0
    DO FORM getypmx4
    M.IL_ONLYONE = .F.
 ENDCASE 
 SELECT (M.OLDAREA)
 RETURN M.PZH
*