cbjs.prg

来自「使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用」· PRG 代码 · 共 55 行

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


 IF M_BH <> '04'
 RETURN 
 ENDIF 
 SELECT (BDATNAME)
 LOCATE FOR DQDH = M_DQDH AND BLX1 = M_BLX1 AND BLX2 = M_BLX2 AND XMDH = 'dpbz'
 IF  .NOT. FOUND()
 RETURN 
 ENDIF 
 SKIP 
 DO WHILE  .NOT. EOF()
 IF XMDH = 'dpbz'
 EXIT 
 ENDIF 
 JSJG = 0
 IF M_CBJS = 0
 DO LU1JS
 ENDIF 
 IF M_CBJS = 1
 DO XJS
 ENDIF 
 IF M_CBJS = 2
 DO LU2JS
 ENDIF 
 SKIP 
 ENDDO 

PROCEDURE LU1js
 IF DA1 <> 0
 JSJG = ROUND(DA2 / 100 / DA1,2)
 ELSE 
 JSJG = 0
 ENDIF 
 REPLACE DA3 WITH JSJG
ENDPROC
*------
PROCEDURE LU2js
 IF DA1 <> 0
 JSJG = ROUND(DA6 * 12 / (DA1 * 100 * VAL(YUE)),2)
 ELSE 
 JSJG = 0
 ENDIF 
 REPLACE DA5 WITH JSJG
ENDPROC
*------
PROCEDURE Xjs
 JSJG = DA1 * 100 * DA5 * VAL(YUE) / 12
 REPLACE DA6 WITH JSJG
ENDPROC
*------*