zjxb.prg

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

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


 SET TALK OFF
 SET CONSOLE OFF
 SET EXACT ON
 SET SAFETY OFF
 IF 1 = 0
 SET DEFAULT TO \xbbjs
 MMBZ4 = '4'
 NIAN = '1998'
 YUE = '12'
 ENDIF 
 SET ESCAPE OFF
 SET TALK OFF
 M_BH = '  '
 M_BM = SPACE(18)
 M_LS = 0
 CLOSE DATABASES 
 USE IN 0 LIB\BZL.DAT
 SELECT BZL
 GO TOP
 M_DH = BH
 DO WHILE .T.
 IF EOF()
 EXIT 
 ENDIF 
 IF BH > M_DH AND VAL(BH) <> 99 AND VAL(BH) <> 98
 M_DH = BH
 ENDIF 
 SKIP 
 ENDDO 
 M_BH = VAL(M_DH) + 1
 M_BH = ALLTRIM(STR(M_BH))
 IF LEN(M_BH) = 1
 M_BH = '0' + M_BH
 ENDIF 
 USE 
 PUBLIC M_SJLX( 6 ) , M_SJCD( 6 )
 PUBLIC M_XSW( 6 ) , M_LHY( 6 )
 M_SJCD = 0
 M_LHY = ' '
 M_XSW = 0
 M_SJLX = '字符型'
 Q_QUIT = .F.
 DO FORM .\src\form\zjxb
 IF Q_QUIT
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 WAIT WINDOW NOCLEAR NOWAIT '请稍候......'
 FOR I = 1 TO M_LS
 IF M_SJLX(I) = '字符型'
 M_SJLX( I ) = 'c'
 ELSE 
 M_SJLX( I ) = 'n'
 ENDIF 
 ENDFOR 
 DO WWW
 DO SC
 WAIT CLEAR
 MSGTTL = '增加新报表'
 MESSGTXT =  ;
      '请维护相应的' + CHR(13) + CHR(13) + '[项目库、打平库、打印格式]' + CHR(13) +  ;
CHR(13) + '[计算库、审核库]等'
 = MESSAGEBOX(MESSGTXT,64,MSGTTL)
 CLOSE DATABASES 
 RELEASE M_XSW , M_LHY
 RELEASE M_SJLX , M_SJCD

PROCEDURE sc
 BB = ''
 SELECT 0
 USE LIB\XBSC.dat
 FOR N = 1 TO 4
 DO CASE 
 CASE N = 1
  BB="XM&M_BH..DAT"
 CASE N = 2
  BB="DP&M_BH..DAT"
 CASE N = 3
  BB="DP&M_BH.A.DAT"
 CASE N = 4
  BB="B&M_BH..DAT"
 ENDCASE 
 SELECT XBSC
 COPY TO t0011 STRUCTURE EXTENDED 
 SELECT 0
 USE t0011 ALIAS T001
 ZAP 
 SELECT FIELD_NAME , FIELD_TYPE , FIELD_LEN , FIELD_DEC WHERE DH = N INTO TABLE tmp.tmp  ;
      FROM XBSC
 SELECT T001
 APPEND FROM tmp.tmp
  CREATE LIB\&BB FROM t0011
 IF N = 4
 FOR N = 1 TO 18
 APPEND BLANK
 ENDFOR 
 ENDIF 
 USE 
 SELECT TMP
 USE 
 ENDFOR 
 SELECT XBSC
 USE 
 DELETE File t0011.dbf
 DELETE File t0011.fpt
 DELETE File tmp.tmp
 RETURN 
ENDPROC
*------
PROCEDURE www
 USE LIB\BZL.DAT
 APPEND BLANK
 REPLACE BH WITH M_BH , BM WITH M_BM , LS WITH M_LS
 USE LIB\BLK.DAT
 APPEND BLANK
 REPLACE BH WITH M_BH , FIELD_NAME WITH 'dqdh' , FIELD_TYPE WITH 'n' , FIELD_LEN WITH 2 ,  ;
      FIELD_DEC WITH 0 , LHY WITH '地区代码'
 APPEND BLANK
 REPLACE BH WITH M_BH , FIELD_NAME WITH 'blx1' , FIELD_TYPE WITH 'c' , FIELD_LEN WITH 1 ,  ;
      FIELD_DEC WITH 0 , LHY WITH '报表类型 '
 APPEND BLANK
 REPLACE BH WITH M_BH , FIELD_NAME WITH 'blx2' , FIELD_TYPE WITH 'c' , FIELD_LEN WITH 1 ,  ;
      FIELD_DEC WITH 0 , LHY WITH '亏盈类型'
 APPEND BLANK
 REPLACE BH WITH M_BH , FIELD_NAME WITH 'xmdh' , FIELD_TYPE WITH 'c' , FIELD_LEN WITH 6 ,  ;
      FIELD_DEC WITH 0 , LHY WITH '项目代号'
 APPEND BLANK
 REPLACE BH WITH M_BH , FIELD_NAME WITH 'sjdw' , FIELD_TYPE WITH 'n' , FIELD_LEN WITH 1 ,  ;
      FIELD_DEC WITH 0 , LHY WITH '数据单位 '
 FOR N = 1 TO M_LS
 APPEND BLANK
 OP = LTRIM(TRIM(STR(N)))
  REPL bh WITH M_BH ,field_name WITH "da&op", field_type with M_SJLX[n] , field_len with M_SJCD[n] , field_dec with M_XSW[n] ,LHY with M_LHY[n]
 ENDFOR 
 CLOSE DATABASES 
ENDPROC
*------*