shkey4_w.prg

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

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


 SET TALK OFF
 SET ESCAPE OFF
 CLEAR 
 SET COLOR OF SCHEME 2 TO  GR+/BG,W+/BG,GR/BG,GR/BG,GR+/B,GR+/B,GR+/W,R+/N,N/N,W/N,N+/N
 SET COLOR OF SCHEME 3 TO RGB( 0 , 0 , 0 , 192 , 192 , 192) ,  ;
       W+/BG,GR/BG,GR/BG,GR+/B,GR+/B,GR+/W,R+/N,N/N,W/N,N+/N
 DEFINE WINDOW WINM FROM 5 , 20 TO 33 , 130 FONT '宋体' , 12 COLOR SCHEME 3 FLOAT TITLE  ;
      '审核数据' IN SCREEN DOUBLE
 MOVE WINDOW WINM CENTER 
 ACTIVATE WINDOW WINM
 STORE SPACE(4) TO P_YEA1 , P_YEA2
 STORE SPACE(2) TO P_BH1 , P_MON1 , P_MON2
 STORE SPACE(1) TO P_LX1 , P_LX2 , P_LX3
 STORE 0 TO P_LS1 , P_LS2
 STORE 0 TO P_DH1 , P_DH2
 DO WHILE .T.
 STORE SPACE(4) TO P_YEA1 , P_YEA2
 STORE SPACE(2) TO P_BH1 , P_MON1 , P_MON2
 STORE SPACE(1) TO P_LX1 , P_LX2 , P_LX3
 STORE 0 TO P_LS1 , P_LS2
 STORE 0 TO P_DH1 , P_DH2
 @ 1 , 1 SAY '审核──> 同表异期审核'
 @ 16 , 4 SAY '----------------------------------------------------------------'
 @ 17 , 4 SAY '代码提示:'
 DO TS_BM
 @ 3 , 10 SAY '┌──────────────────────────┐'
 @ 4 , 10 SAY '│     *********     同表异期核对    *********        │'
 @ 5 , 10 SAY '├──────┬───────────────────┤'
 @ 6 , 10 SAY '│ 表号:      │                                      │'
 @ 7 , 10 SAY '├──────┴───────────────────┤'
 @ 8 , 10 SAY '│ 起始地区                  终止地区                 │'
 @ 9 , 10 SAY '├───────────┬───┬──────────┤'
 @ 10 , 10 SAY '│       年     月      │      │      年      月    │'
 @ 11 , 10 SAY '├───────────┤      ├──────────┤'
 @ 12 , 10 SAY '│报表类型    盈亏类型  │ <=>  │   报表类型         │'
 @ 13 , 10 SAY '├───────────┤      ├──────────┤'
 @ 14 , 10 SAY '│      栏 数           │      │     栏 数          │'
 @ 15 , 10 SAY '└───────────┴───┴──────────┘'
 @ 6 , 20 GET P_BH1 DEFAULT SPACE(2) PICTURE '99'
 READ 
 KEY_VALU = READKEY()
 IF KEY_VALU = 12 .OR. KEY_VALU = 268 .OR. P_BH1 = SPACE(2)
 CLOSE DATABASES 
 CLEAR 
 DEACTIVATE WINDOW WINM
 RELEASE WINDOW WINM
 RETURN 
 ENDIF 
 IF  .NOT. USED('bzl')
 USE IN 0 .\lib\bzl.DAT
 ENDIF 
 SELECT BZL
 GO TOP
 LOCATE FOR BH = P_BH1
 IF  .NOT. FOUND()
 ?? CHR(7)
 USE 
 LOOP 
 ENDIF 
 USE 
 @ 18 , 10 SAY '  表类型:1--月报  2--季报  3--年报  4--半年报'
 @ 19 , 10 SAY '盈亏类型:1--合并  2--盈余  3--亏损  4--联社'
 IF  .NOT. USED('BZL')
 USE IN 0 ('.\lib\bzl.DAT')
 ENDIF 
 SELECT BZL
 GO TOP
 LOCATE FOR BH = P_BH1
 IF  .NOT. FOUND()
 ? CHR(7)
 LOOP 
 ENDIF 
 STORE LX TO M_LX
 @ 6 , 29 SAY ALLTRIM(BM)
 USE 
 @ 8 , 24 GET P_DH1 DEFAULT 1 PICTURE '99' VALID (CHE_DH1())
 @ 8 , 50 GET P_DH2 DEFAULT 1 PICTURE '99' VALID (CHE_DH2())
 @ 10 , 14 GET P_YEA1 RANGE '1998' , '2060' PICTURE '9999'
 @ 10 , 23 GET P_MON1 RANGE '01' , '12' PICTURE '99'
 @ 12 , 21 GET P_LX1 DEFAULT '1' RANGE '1' , '4' PICTURE '9'
 IF M_LX = .T.
 @ 12 , 22 GET P_LX2 DEFAULT '1' RANGE '1' , '4' PICTURE '9'
 ENDIF 
 @ 14 , 25 GET P_LS1 DEFAULT 1 PICTURE '9' VALID (CHE_LS1())
 @ 10 , 45 GET P_YEA2 RANGE '1998' , '2060' PICTURE '9999'
 @ 10 , 55 GET P_MON2 RANGE '01' , '12' PICTURE '99'
 @ 12 , 56 GET P_LX3 DEFAULT '1' RANGE '1' , '4' PICTURE '9'
 @ 14 , 56 GET P_LS2 DEFAULT 1 PICTURE '9' VALID (CHE_LS1())
 READ 
 KEY_VALU = READKEY()
 IF KEY_VALU = 12 .OR. KEY_VALU = 268
 CLOSE DATABASES 
 CLEAR 
 DEACTIVATE WINDOW WINM
 RELEASE WINDOW WINM
 RETURN 
 ENDIF 
 IF P_DH1 > P_DH2
 ? CHR(7)
 LOOP 
 ENDIF 
 IF P_LS1 = 0 .OR. P_LS2 = 0
 ? CHR(7)
 LOOP 
 ENDIF 
 IF (P_YEA1 + P_MON1) == (P_YEA2 + P_MON2)
 ?? CHR(7)
 ?? CHR(7)
 WAIT WINDOW NOWAIT '不能审核自身!! 按回车重来!'
 LOOP 
 ENDIF 
 DO SHCL4_WEI WITH P_BH1 , P_LX1 , P_LX2 , P_LX3 , P_YEA1 , P_MON1 , P_DH1 , P_DH2 ,  ;
      P_LS1 , P_YEA2 , P_MON2 , P_LS2
 ENDDO 
 CLOSE DATABASES 
 CLEAR 
 DEACTIVATE WINDOW WINM
 RELEASE WINDOW WINM

PROCEDURE CHE_DH1
 IF  .NOT. USED('dqk')
 USE IN 0 ('.\lib\dqk.DAT')
 ENDIF 
 SELECT DQK
 GO TOP
 LOCATE FOR DQDH = P_DH1
 IF FOUND()
 USE 
 RETURN .T.
 ENDIF 
 USE 
 ?? CHR(7)
 RETURN .F.
ENDPROC
*------
PROCEDURE CHE_DH2
 IF  .NOT. USED('dqk')
 USE IN 0 ('.\lib\dqk.DAT')
 ENDIF 
 SELECT DQK
 GO TOP
 LOCATE FOR DQDH = P_DH2
 IF FOUND()
 USE 
 RETURN .T.
 ENDIF 
 USE 
 ?? CHR(7)
 RETURN .F.
ENDPROC
*------
PROCEDURE CHE_LS1
 IF  .NOT. USED('BZL')
 USE IN 0 ('.\lib\BZL.DAT')
 ENDIF 
 SELECT BZL
 GO TOP
 LOCATE FOR BH = P_BH1
 IF LS < P_LS1
 USE 
 RETURN .F.
 ENDIF 
 USE 
 ?? CHR(7)
 RETURN .T.
ENDPROC
*------
PROCEDURE CHE_LS2
 IF  .NOT. USED('BZL')
 USE IN 0 ('.\lib\BZL.DAT')
 ENDIF 
 SELECT BZL
 GO TOP
 LOCATE FOR BH = P_BH1
 IF LS < P_LS2
 USE 
 RETURN .F.
 ENDIF 
 USE 
 ?? CHR(7)
 RETURN .T.
ENDPROC
*------
PROCEDURE TS_BM
&&----无事件!
ENDPROC*