gfbr.prg

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

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


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