jscl8.prg

使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用社会计报表系统

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


 SELECT (BDATNAME)
 LOCATE FOR DQDH = M_DQDH AND BLX1 = M_BLX1 AND BLX2 = M_BLX2 AND XMDH = 'dpbz'
 IF MESSAGEBOX('是否自动计算此列数据',260,'提示') = 7
 RETURN 
 ENDIF 
 IF  .NOT. FOUND()
 RETURN 
 ENDIF 
 SKIP 
 DO WHILE  .NOT. EOF()
 IF XMDH = 'dpbz'
 EXIT 
 ENDIF 
 DO CASE 
 CASE QQQ = 3
 DO QIN3
 CASE QQQ = 4
 DO QIN4
 CASE QQQ = 6
 DO QIN6
 CASE QQQ = 7
 DO QIN7
 CASE QQQ = 8
 DO QIN8
 CASE QQQ = 9
 DO QIN9
 ENDCASE 
 SKIP 
 ENDDO 

PROCEDURE qin3
 IF DA1 <> 0 AND DA2 <> 0 AND DA3 = 0
 JSJG = DA2 - DA1
 REPLACE DA3 WITH JSJG
 ENDIF 
ENDPROC
*------
PROCEDURE qin4
 IF DA1 <> 0 AND DA2 <> 0 AND DA4 = 0
 JSJG = (DA2 / DA1 - 1) * 100
 REPLACE DA4 WITH JSJG
 ENDIF 
ENDPROC
*------
PROCEDURE qin6
 IF DA2 <> 0 AND DA5 <> 0 AND DA6 = 0
 JSJG = DA5 - DA2
 REPLACE DA6 WITH JSJG
 ENDIF 
ENDPROC
*------
PROCEDURE qin7
 IF DA2 <> 0 AND DA5 <> 0 AND DA7 = 0
 JSJG = (DA5 / DA2 - 1) * 100
 REPLACE DA7 WITH JSJG
 ENDIF 
ENDPROC
*------
PROCEDURE qin8
 DO CASE 
 CASE DA1 <> 0 AND DA2 <> 0 AND DA5 <> 0 AND DA8 = 0
 IF (DA5 < 0 AND DA1 < 0) .OR. (DA5 > 0 AND DA1 > 0)
 JSJG = (SQRT(ABS(DA5 / DA1)) - 1) * 100
 REPLACE DA8 WITH JSJG
 ENDIF 
 IF (DA5 < 0 AND DA1 > 0) .OR. (DA5 > 0 AND DA1 < 0)
 JSJG = -(SQRT(ABS(DA5 / DA1)) - 1) * 100
 REPLACE DA8 WITH JSJG
 ENDIF 
 CASE DA1 = 0 AND DA2 <> 0 AND DA5 <> 0 AND DA8 = 0
 JSJG = (DA5 / DA2 - 1) * 100
 REPLACE DA8 WITH JSJG
 ENDCASE 
ENDPROC
*------
PROCEDURE qin9
 IF DA9 = 0
 JSJG = DA5 * (DA8 / 100 + 1)
 REPLACE DA9 WITH JSJG
 ENDIF 
ENDPROC
*------*