bcl4.prg

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

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: BCL4.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 
 XSLJ = ''
 XSBM = ''
 XSYK = ''
 XSLX = ''
 XSDQ = ''
 IF  .NOT. FILE('LIB\BZL.DAT')
 MSGTTL = '打平数据'
 MESSGTXT = '不存在表种类库, 请拷入!!!'
 = MESSAGEBOX(MESSGTXT,64,MSGTTL)
 RETURN 
 ENDIF 
 IF  .NOT. FILE('LIB\DQK.DAT')
 MSGTTL = '打平数据'
 MESSGTXT = '不存在表种类库, 请拷入!!!'
 = MESSAGEBOX(MESSGTXT,64,MSGTTL)
 RETURN 
 ENDIF 
 STORE '  ' TO M_BH
 STORE '0' TO M_BLX1 , M_BLX2
 STORE 0 TO M_DQDH1 , M_DQDH2
 CLNIAN = RIGHT(NIAN,2)
 DO FORM .\src\form\GONG2
 IF M_BH = '00'
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 CLOSE DATABASES 
 USE IN 0 ('LIB\DQK.DAT')
 USE IN 0 ('LIB\BZL.DAT')
 SELECT BZL
 LOCATE FOR BH = M_BH
 STORE LS TO M_LS
 M_YCBZA = YCBZ
  USE LIB\XM&M_BH..DAT IN 0
  IF !FILE("DAT\B&M_BH&clNIAN&YUE..DAT")
 MSGTTL = '打平数据'
 MESSGTXT = '不存在' + NIAN + '年 ' + YUE + '月 ' + M_BH + '表'
 = MESSAGEBOX(MESSGTXT,64,MSGTTL)
 CLOSE DATABASES 
 RETURN 
 ENDIF 
  USE DAT\B&M_BH&clNIAN&YUE..DAT IN 0
 M_LX = LX
 IF LX = .T.
 M_LXM = '   '
 M_BLX2 = '0'
 DO FORM .\src\form\blx
 IF M_BLX2 = '0'
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 ENDIF 
 Q_QUIT = .F.
 DO FORM .\src\form\bcl4a
 IF Q_QUIT
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 IF TYPE('M_BLX1') = 'N'
 M_BLX1 = ALLTRIM(STR(M_BLX1))
 ENDIF 
 IF M_DQDH1 = 0
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 FOR M_DQDH = M_DQDH1 TO M_DQDH2
 SELECT DQK
 LOCATE FOR DQDH = M_DQDH
 IF KHBZ = .F. .OR. EOF()
 LOOP 
 ENDIF 
  SELE B&M_BH&clNIAN&YUE
 LOCATE FOR XMDH = 'dpbz' AND DQDH = M_DQDH AND BLX1 = M_BLX1 AND BLX2 = M_BLX2
 IF FOUND()
 DO .\src\prg\DPCL1
 MSGTTL = '打平数据'
 MESSGTXT = LTRIM(STR(M_DQDH)) + '  地区打平完毕! '
 = MESSAGEBOX(MESSGTXT,64,MSGTTL)
 ELSE 
 MSGTTL = '打平数据'
 MESSGTXT = LTRIM(STR(M_DQDH)) + '地区数据不存在'
 = MESSAGEBOX(MESSGTXT,64,MSGTTL)
 ENDIF 
 ENDFOR 
 IF M_BH = '01'
  SELE B&M_BH&clNIAN&YUE
 REPLACE DA2 WITH 0 , DA3 WITH 0 , DA4 WITH 0 , DA6 WITH 0 FOR XMDH = '9'
 ELSE 
 ENDIF 
 CLOSE DATABASES 
 RETURN 
*