ypjc.prg

门诊收费管理系统

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


 PARAMETER DPTID , CPBH , TYPE , SL , JFJJ , JFLSJ , JFPRICE
 LOCAL SAVEAREA , HAND1 , I
 PARA = PARAMETERS()
 SAVEAREA = SELECT()
 SELECT 0
 HAND1 = 0
 DO HANDBUSY
 = SQLEXEC(HAND,'select dptid from ypzz where dptid=?m.dptid and cpbh=?m.cpbh','query')
 IF RECCOUNT('query') = 0
    FOR I = 1 TO 10
       DO HANDBUSY
       = SQLSETPROP(HAND,'transactions',2)
       HAND1 =  ;
            SQLEXEC(HAND,'insert into ypzz (dptid,cpbh,month,op) values 					(?m.dptid,?m.cpbh,?m.gs_yearmonth,?m.gs_username)')
       IF HAND1 <> 1
           SQLROLLBACK(HAND)
          WAIT WINDOW TIMEOUT 0.2 ''
       ELSE 
           _COMMIT(HAND)
          EXIT 
       ENDIF 
    ENDFOR 
    IF M.HAND1 <> 1
        MESSAGEBOX('ypzz' + M.CPBH + '插入错误!',16,'严重警告错误')
    ENDIF 
 ENDIF 
 FOR I = 1 TO 10
    DO HANDBUSY
    = SQLSETPROP(HAND,'transactions',2)
    DO CASE 
    CASE M.TYPE = -1
       HAND1 =  ;
            SQLEXEC(HAND,'update ypzz set c2=c2+?m.sl,f21=f21+?m.jfprice,f2=f2+?m.jflsj,f2_=f2_+?m.jfjj,	   						c3=c3-?m.sl,f3=f3-?m.jflsj,f3_=f3_-?m.jfjj 					where dptid=?m.dptid and cpbh=?m.cpbh')
    CASE M.TYPE = 1
       HAND1 =  ;
            SQLEXEC(HAND,'update ypzz set c1=c1+?m.sl,f1=f1+?m.jflsj,f1_=f1_+?m.jfjj, 	   		                c3=c3+?m.sl,f3=f3+?m.jflsj,f3_=f3_+?m.jfjj 	   				where dptid=?m.dptid and cpbh=?m.cpbh')
    CASE M.TYPE = 2
       HAND1 =  ;
            SQLEXEC(HAND,'update ypzz set c2=c2+?m.sl,f21=f21+?m.jfprice,f2=f2+?m.jflsj,f2_=f2_+?m.jfjj, 					c3=c3-?m.sl,f3=f3-?m.jflsj,f3_=f3_-?m.jfjj where dptid=?m.dptid and cpbh=?m.cpbh')
    CASE M.TYPE = 3
       UPDATE ypzz SET FJ = FJ + M.JFJJ , FD = FD + M.JFLSJ , F3_ = F3_ + M.JFPRICE WHERE  ;
            DPTID = M.DPTID AND CPBH = M.CPBH
    CASE M.TYPE = 4
       UPDATE ypzz SET C4 = C4 + M.SL , F4 = F4 + M.JFLSJ , C3 = C3 + M.SL , F3 = F3 + M.JFLSJ  ;
            WHERE DPTID = M.DPTID AND CPBH = M.CPBH
    CASE M.TYPE = 6
       HAND1 =  ;
            SQLEXEC(HAND,'update ypzz set c6=c6+?m.sl,f6=f6+?m.jflsj,f6_=f6_+?m.jfjj, 							c3=c3-?m.sl,f3=f3-?m.jflsj,f3_=f3_-?m.jfjj 					where dptid=?m.dptid and cpbh=?m.cpbh ')
    CASE M.TYPE = 7 .OR. M.TYPE = 8
       HAND1 =  ;
            SQLEXEC(HAND,'update ypzz set c7=c7+?m.sl,f7=f7+?m.jflsj,f7_=f7_+?m.jfjj, 							c3=c3+?m.sl,f3=f3+?m.jflsj,f3_=f3_+?m.jfjj 					where dptid=?m.dptid and cpbh=?m.cpbh')
    CASE M.TYPE = 12
       HAND1 =  ;
            SQLEXEC(HAND,'update ypzz set c12=c12+?m.sl,f12=f12+(?m.jflsj-?m.jfjj)*?m.sl, 	   						f3=f3+(?m.jflsj-?m.jfjj)*?m.sl 	   				where dptid=?m.dptid and cpbh=?m.cpbh')
    CASE M.TYPE = 15
       HAND1 =  ;
            SQLEXEC(HAND,'update ypzz set c0=c0+?m.sl,f0=f0+?m.jflsj,f0_=f0_+?m.jfjj, 	   		                c3=c3+?m.sl,f3=f3+?m.jflsj,f3_=f3_+?m.jfjj 	   				where dptid=?m.dptid and cpbh=?m.cpbh')
    ENDCASE 
    IF HAND1 <> 1
        SQLROLLBACK(HAND)
       WAIT WINDOW TIMEOUT 0.5 '第' + STR(M.I) + '次,更新ypzz失败！'
    ELSE 
        _COMMIT(HAND)
       EXIT 
    ENDIF 
 ENDFOR 
 IF M.HAND1 <> 1
     MESSAGEBOX('ypzz ' + STR(M.TYPE) + '  ' + M.CPBH +  ;
   '在本次操作中更新失败，请停止操作,记录本次操作，并与系统管理员联系!',16,'严重警告')
 ENDIF 
 SELECT (M.SAVEAREA)
 RETURN (M.HAND1 = 1)
*