dpcl2.prg

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

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


 LOCATE FOR DQDH = M_DQDH AND BLX1 = M_BLX1 AND BLX2 = M_BLX2 AND XMDH = M_XMDH
 IF LIN > 12
 WAIT 
 @ 3 , 0 CLEAR TO 16 , 55
 LIN = 1
 ENDIF 
 DO CASE 
 CASE M_LS = 4
 IF DA4 <> DA1 + DA3 - DA2
 ?? CHR(7)
 M_DPBZ = 0
 @ LIN + 2 , COL + 5 SAY XMDH + '项横项不平'
 LIN = LIN + 1
 ENDIF 
 CASE M_LS = 6
 IF LTRIM(STR((DA1 + DA3 - DA2 - DA4 + DA6 - DA5) * 100)) <> '0'
 ?? CHR(7)
 M_DPBZ = 0
 @ LIN + 2 , COL + 5 SAY XMDH + '项 横项不平'
 LIN = LIN + 1
 ENDIF 
 IF ALLTRIM(XMDH) == '1000' AND M_BH == '01'
 IF (DA1 <> DA2 .OR. DA3 <> DA4 .OR. DA5 <> DA6)
 ?? CHR(7)
 M_DPBZ = 0
 @ LIN + 2 , COL + 5 SAY XMDH + '项 帐不平'
 LIN = LIN + 1
 ENDIF 
 ENDIF 
 IF ALLTRIM(XMDH) == '10' AND M_BH == '01'
 IF (DA1 <> DA2 .OR. DA3 <> DA4 .OR. DA5 <> DA6)
 ?? CHR(7)
 M_DPBZ = 0
 @ LIN + 2 , COL + 5 SAY XMDH + '项 帐不平'
 LIN = LIN + 1
 ENDIF 
 ENDIF 
 ENDCASE 
 RETURN M_DPBZ
*