zyfjc.prg

门诊收费管理系统

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


 PARAMETER ID , JF , FTYPE
 PRIVATE S , I , RETU , HAND1
 RETU = .F.
 S = 'C' + ALLTRIM(STR(M.FTYPE,2))
  SQLSETPROP(HAND,'transactions',2)
 FOR I = 1 TO 10
    DO HANDBUSY
    IF M.FTYPE <> 21
       HAND1 =  ;
            SQLEXEC(HAND,'update zyf set ' + M.S + '=' + M.S +  ;
      '+?m.jf,sum_=sum_+?m.jf,c0=c0-?m.jf where id=?m.id')
    ELSE 
       HAND1 = SQLEXEC(HAND,'update zyf set c21=c21+?m.jf,c0=c0+?m.jf where id=?m.id')
    ENDIF 
    IF M.HAND1 <> 1
        SQLROLLBACK(HAND)
       WAIT WINDOW TIMEOUT 0.5 '第' + STR(I) + '次,更新zyf失败！'
    ELSE 
        _COMMIT(HAND)
       RETU = .T.
       EXIT 
    ENDIF 
 ENDFOR 
 RETURN M.RETU
*