gfbr1.prg

门诊收费管理系统

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


 PARAMETER FEETYPE , TYPE5 , FYMX , MXLSJ
 LOCAL OLDSELE , OLDREC , JMXM , JMBL
 OLDSELE = SELECT()
 IF PARAMETERS() < 3
     MESSAGEBOX('error on gfbr1',16,'')
    RETURN 
 ENDIF 
 IF PARAMETERS() = 3
    M.MXLSJ = 'price'
 ENDIF 
 DO HANDBUSY
  SQLEXEC(HAND,'select jmxm,jmbl from mz_gf where feetype=?m.feetype','q_mz_gf')
 IF RECCOUNT('q_mz_gf') > 0
    SELECT Q_MZ_GF
    SCAN 
       JMXM = JMXM
       JMBL = JMBL / 100
        sele &fymx
       OLDREC = RECNO()
       GF_RUN =  ;
            'repl bxje with price, ' + ALLTRIM(MXLSJ) + ' with ' + ALLTRIM(MXLSJ) +  ;
      '*m.jmbl,ybbl with m.jmbl for (' + ALLTRIM(M.JMXM) + ') and recn()=oldrec'
        &gf_run
       GO OLDREC
       SELECT Q_MZ_GF
    ENDSCAN 
 ENDIF 
 IF USED('q_mz_gf')
    USE IN Q_MZ_GF
 ENDIF 
 SELECT (OLDSELE)
*