dpcl3.prg

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

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


 PARAMETER BDATNAME
 SELECT (BDATNAME)
 LOCATE FOR DQDH = M_DQDH AND BLX1 = M_BLX1 AND BLX2 = M_BLX2 AND XMDH = M_XMDH
 DO CASE 
 CASE M_LS = 4
 IF DA4 <> DA1 + DA3 - DA2
 ?? CHR(7)
 ?? CHR(7)
 WAIT WINDOW XMDH + '数据不平! 回车继续!'
 ENDIF 
 RETURN 
 CASE M_LS = 6
 IF ALLTRIM(XMDH) == '1000' AND M_BH == '01'
 IF DA1 <> DA2 .OR. DA3 <> DA4 .OR. DA5 <> DA6
 ?? CHR(7)
 ?? CHR(7)
 WAIT WINDOW XMDH + '帐不平!! 回车继续!'
 ENDIF 
 ENDIF 
 IF ALLTRIM(XMDH) == '10' AND M_BH == '01'
 IF DA1 <> DA2 .OR. DA3 <> DA4 .OR. DA5 <> DA6
 ?? CHR(7)
 ?? CHR(7)
 WAIT WINDOW XMDH + '帐不平!! 回车继续!'
 ENDIF 
 ENDIF 
 IF LTRIM(STR((DA1 - DA2 + DA3 - DA4 + DA6 - DA5) * 100)) <> '0'
 ?? CHR(7)
 ?? CHR(7)
 WAIT WINDOW XMDH + '数据不平! 回车继续!'
 ENDIF 
 ENDCASE 
 RETURN 
*