zhkmh.prg

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

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


 IF YUE <> '11' .OR. NIAN <> '2000'
  MESSAGEBOX('业务状况表科目更新应在2000年11月操作，本次操作中止！！！',272,'警告提示信息')
 RETURN 
 ELSE 
 ENDIF 
 SET TALK OFF
 SET CONSOLE OFF
 SET EXACT ON
 SET SAFETY OFF
 FILE1 = 'dat\b0100'
 FOR S = 1 TO 11
 IF S < 10
 M = '0' - ALLTRIM(STR(S))
 ELSE 
 M = ALLTRIM(STR(S))
 ENDIF 
 FILE2 = FILE1 - M - '.dat'
 IF FILE(FILE2)
 USE (FILE2)
 LOCATE FOR XMDH = '201 '
 IF FOUND() = .T.
  MESSAGEBOX('2000年' - ALLTRIM(STR(S)) - '月份业务状况表科目已更新，本次操作中止！！！',272,'警告提示信息')
 USE 
 RETURN 
 ELSE 
 EXIT 
 ENDIF 
 ELSE 
 NANSWER =  ;
      MESSAGEBOX('2000年' - ALLTRIM(STR(S)) - '月份业务状况表数据无，是否中止！',305,'警告提示信息')
 DO CASE 
 CASE NANSWER = 1
 USE 
 RETURN 
 CASE NANSWER = 2
 EXIT 
 ENDCASE 
 EXIT 
 ENDIF 
 ENDFOR 
 USE 
 FOR S = 1 TO 11
 WAIT WINDOW AT 15 , 35 NOCLEAR NOWAIT  ;
      '开始更换' - STR(S) - '月份地区数据，请稍候......'
 IF S < 10
 M = '0' - ALLTRIM(STR(S))
 ELSE 
 M = ALLTRIM(STR(S))
 ENDIF 
 FILE2 = FILE1 - M - '.dat'
 USE IN 88 EXCLUSIVE (FILE2)
 SELECT 88
 SCAN FOR XMDH = '113 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 DA_1 = DA1
 DA_3 = DA3
 DA_4 = DA4
 DA_5 = DA5
 DELETE 
 LOCATE FOR DQDH = DQDH1 AND BLX1 = BLX_1 AND BLX2 = BLX_2 AND XMDH = '115 '
 INSERT BLANK
 REPLACE XMDH WITH '113 ' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1 , DA1 WITH DA_1 , DA3 WITH DA_3 , DA4 WITH DA_4 , DA5 WITH  ;
      DA_5
 ENDSCAN 
 PACK 
 SCAN FOR XMDH = '114 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 DA_1 = DA1
 DA_3 = DA3
 DA_4 = DA4
 DA_5 = DA5
 DELETE 
 LOCATE FOR DQDH = DQDH1 AND BLX1 = BLX_1 AND BLX2 = BLX_2 AND XMDH = '113 '
 INSERT BLANK
 REPLACE XMDH WITH '114 ' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1 , DA1 WITH DA_1 , DA3 WITH DA_3 , DA4 WITH DA_4 , DA5 WITH  ;
      DA_5
 ENDSCAN 
 PACK 
 SCAN FOR XMDH = '121 ' .OR. XMDH = '20 '
 IF XMDH = '121 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 DA_1 = DA1
 DA_3 = DA3
 DA_4 = DA4
 DA_5 = DA5
 DELETE 
 SCAN FOR DQDH = DQDH1 AND BLX1 = BLX_1 AND BLX2 = BLX_2 AND XMDH = '113 '
 REPLACE XMDH WITH '121 ' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1
 GO RECNO() + 20
 EXIT 
 ENDSCAN 
 ELSE 
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 SCAN FOR DQDH = DQDH1 AND BLX1 = BLX_1 AND BLX2 = BLX_2 AND XMDH = '113 '
 INSERT BLANK
 REPLACE XMDH WITH '121 ' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1
 GO RECNO() + 20
 EXIT 
 ENDSCAN 
 ENDIF 
 ENDSCAN 
 PACK 
 SCAN FOR XMDH = '111 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 DA_1 = DA1
 DA_3 = DA3
 DA_4 = DA4
 DA_5 = DA5
 DELETE 
 LOCATE FOR DQDH = DQDH1 AND BLX1 = BLX_1 AND BLX2 = BLX_2 AND XMDH = '114 '
 INSERT BLANK
 REPLACE XMDH WITH '111 ' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1 , DA1 WITH DA_1 , DA3 WITH DA_3 , DA4 WITH DA_4 , DA5 WITH  ;
      DA_5
 ENDSCAN 
 PACK 
 SCAN FOR XMDH = '121 '
 REPLACE XMDH WITH '206'
 ENDSCAN 
 SCAN FOR XMDH = '110 '
 REPLACE XMDH WITH '201'
 ENDSCAN 
 SCAN FOR XMDH = '111 '
 REPLACE XMDH WITH '209'
 ENDSCAN 
 SCAN FOR XMDH = '112 '
 REPLACE XMDH WITH '202'
 ENDSCAN 
 SCAN FOR XMDH = '113 '
 REPLACE XMDH WITH '205'
 ENDSCAN 
 SCAN FOR XMDH = '114 '
 REPLACE XMDH WITH '207'
 ENDSCAN 
 SCAN FOR XMDH = '115 '
 REPLACE XMDH WITH '203'
 ENDSCAN 
 SCAN FOR XMDH = '116 '
 REPLACE XMDH WITH '210'
 ENDSCAN 
 SCAN FOR XMDH = '117 '
 REPLACE XMDH WITH '211'
 ENDSCAN 
 SCAN FOR XMDH = '118 '
 REPLACE XMDH WITH '212'
 ENDSCAN 
 SCAN FOR XMDH = '119 '
 REPLACE XMDH WITH '213'
 ENDSCAN 
 SCAN FOR XMDH = '120 '
 REPLACE XMDH WITH '214'
 ENDSCAN 
 SCAN FOR XMDH = '109 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 INSERT BLANK
 REPLACE XMDH WITH '110' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1
 ENDSCAN 
 SCAN FOR XMDH = '203 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 INSERT BLANK
 REPLACE XMDH WITH '204' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1
 ENDSCAN 
 SCAN FOR XMDH = '207 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 INSERT BLANK
 REPLACE XMDH WITH '208' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1
 ENDSCAN 
 ENDFOR 
 USE 
 WAIT CLEAR
  MESSAGEBOX('2000年1-11月份业务状况表地区表表外科目已更新！',320,'完成提示信息')
 USE IN 88 EXCLUSIVE dat\h0100.dat
 SELECT 88
 WAIT WINDOW AT 15 , 35 NOCLEAR NOWAIT '正在更换汇总数据，请稍候......'
 SCAN FOR XMDH = '113 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 DA_1 = DA1
 DA_3 = DA3
 DA_4 = DA4
 DA_5 = DA5
 DELETE 
 LOCATE FOR DQDH = DQDH1 AND BLX1 = BLX_1 AND BLX2 = BLX_2 AND XMDH = '115 '
 INSERT BLANK
 REPLACE XMDH WITH '113 ' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1 , DA1 WITH DA_1 , DA3 WITH DA_3 , DA4 WITH DA_4 , DA5 WITH  ;
      DA_5
 ENDSCAN 
 PACK 
 SCAN FOR XMDH = '114 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 DA_1 = DA1
 DA_3 = DA3
 DA_4 = DA4
 DA_5 = DA5
 DELETE 
 LOCATE FOR DQDH = DQDH1 AND BLX1 = BLX_1 AND BLX2 = BLX_2 AND XMDH = '113 '
 INSERT BLANK
 REPLACE XMDH WITH '114 ' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1 , DA1 WITH DA_1 , DA3 WITH DA_3 , DA4 WITH DA_4 , DA5 WITH  ;
      DA_5
 ENDSCAN 
 PACK 
 SCAN FOR XMDH = '121 ' .OR. XMDH = '20 '
 IF XMDH = '121 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 DA_1 = DA1
 DA_3 = DA3
 DA_4 = DA4
 DA_5 = DA5
 DELETE 
 SCAN FOR DQDH = DQDH1 AND BLX1 = BLX_1 AND BLX2 = BLX_2 AND XMDH = '113 '
 REPLACE XMDH WITH '121 ' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1
 GO RECNO() + 20
 EXIT 
 ENDSCAN 
 ELSE 
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 SCAN FOR DQDH = DQDH1 AND BLX1 = BLX_1 AND BLX2 = BLX_2 AND XMDH = '113 '
 INSERT BLANK
 REPLACE XMDH WITH '121 ' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1
 GO RECNO() + 20
 EXIT 
 ENDSCAN 
 ENDIF 
 ENDSCAN 
 PACK 
 SCAN FOR XMDH = '111 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 DA_1 = DA1
 DA_3 = DA3
 DA_4 = DA4
 DA_5 = DA5
 DELETE 
 LOCATE FOR DQDH = DQDH1 AND BLX1 = BLX_1 AND BLX2 = BLX_2 AND XMDH = '114 '
 INSERT BLANK
 REPLACE XMDH WITH '111 ' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1 , DA1 WITH DA_1 , DA3 WITH DA_3 , DA4 WITH DA_4 , DA5 WITH  ;
      DA_5
 ENDSCAN 
 PACK 
 SCAN FOR XMDH = '121 '
 REPLACE XMDH WITH '206'
 ENDSCAN 
 SCAN FOR XMDH = '110 '
 REPLACE XMDH WITH '201'
 ENDSCAN 
 SCAN FOR XMDH = '111 '
 REPLACE XMDH WITH '209'
 ENDSCAN 
 SCAN FOR XMDH = '112 '
 REPLACE XMDH WITH '202'
 ENDSCAN 
 SCAN FOR XMDH = '113 '
 REPLACE XMDH WITH '205'
 ENDSCAN 
 SCAN FOR XMDH = '114 '
 REPLACE XMDH WITH '207'
 ENDSCAN 
 SCAN FOR XMDH = '115 '
 REPLACE XMDH WITH '203'
 ENDSCAN 
 SCAN FOR XMDH = '116 '
 REPLACE XMDH WITH '210'
 ENDSCAN 
 SCAN FOR XMDH = '117 '
 REPLACE XMDH WITH '211'
 ENDSCAN 
 SCAN FOR XMDH = '118 '
 REPLACE XMDH WITH '212'
 ENDSCAN 
 SCAN FOR XMDH = '119 '
 REPLACE XMDH WITH '213'
 ENDSCAN 
 SCAN FOR XMDH = '120 '
 REPLACE XMDH WITH '214'
 ENDSCAN 
 SCAN FOR XMDH = '109 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 INSERT BLANK
 REPLACE XMDH WITH '110' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1
 ENDSCAN 
 SCAN FOR XMDH = '203 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 INSERT BLANK
 REPLACE XMDH WITH '204' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1
 ENDSCAN 
 SCAN FOR XMDH = '207 '
 DQDH1 = DQDH
 BLX_1 = BLX1
 BLX_2 = BLX2
 SJDW1 = SJDW
 INSERT BLANK
 REPLACE XMDH WITH '208' , DQDH WITH DQDH1 , BLX1 WITH BLX_1 , BLX2 WITH BLX_2 , SJDW  ;
      WITH SJDW1
 ENDSCAN 
 USE 
 WAIT CLEAR
  MESSAGEBOX('2000年业务状况表汇总表表外科目已更新！',320,'完成提示信息')
*