jscl9.prg

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

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


 IF M_BH <> '12'
 RETURN 
 ENDIF 
 IF MESSAGEBOX('是否自动计算此列数据',260) = 7
 RETURN 
 ENDIF 
 USE IN 0 LIB\XM12Z.DAT
 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 
 IF QQQ = 4
 M_XMDH = XMDH
 DO QIN1
 ENDIF 
 IF QQQ = 5
 DO QIN3
 ENDIF 
 IF QQQ = 6
 DO QIN2
 ENDIF 
 SKIP 
 ENDDO 
 SELECT XM12Z
 USE 

PROCEDURE QIN1
 SELECT XM12Z
 SCAN FOR XMDH = M_XMDH
 M_LL = LL
 IF M_LL <> 0
 SELECT (BDATNAME)
 JSJG = DA1 + DA3 * M_LL / 100
 IF DA4 = 0
 REPLACE DA4 WITH JSJG
 ENDIF 
 ENDIF 
 SELECT XM12Z
 ENDSCAN 
 SELECT (BDATNAME)
ENDPROC
*------
PROCEDURE QIN2
 JSJG = DA4 * DA5 / 100
 IF DA6 = 0
 REPLACE DA6 WITH JSJG
 ENDIF 
ENDPROC
*------
PROCEDURE QIN3
 IF DA6 <> 0 AND DA4 <> 0 AND DA5 = 0
 JSJG = DA6 / DA4 * 100
 REPLACE DA5 WITH JSJG
 ENDIF 
ENDPROC
*------*