bcl3.prg

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

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


 SET TALK OFF
 SET CONSOLE OFF
 SET EXACT ON
 SET SAFETY OFF
 IF 1 = 0
 SET DEFAULT TO \xbbjs
 USE .\lib\xbb.cfg
 GO TOP
 MMBZ4 = '4'
 MMBZ1 = YELRBZ
 MMBZ2 = YCLRBZ
 NIAN = '2000'
 YUE = '12'
 ENDIF 
 PUBLIC XSLJ , XSBM , XSYK , XSLX , XSDQ
 XSLJ = ''
 XSBM = ''
 XSYK = ''
 XSLX = ''
 XSDQ = ''
 CLOSE DATABASES 
 IF  .NOT. FILE('LIB\DQK.DAT')
 WAIT WINDOW '无地区库'
 RETURN 
 ENDIF 
 M_YCBZA = .F.
 TCQ = 1
 DO WHILE .T.
 IF  .NOT. USED('dqk')
 USE IN 0 lib\dqk.dat
 ENDIF 
 SELECT DQK
 STORE '0' TO M_BLX1 , M_BLX2 , M_BCZL , M_BH , M_HDP , M_XGQS , M_LS , M_LX , M_BM
 M_DQDH = 0
 ASD = 'F'
 M_QZBZ = .F.
 DO ZLXZ
 XSBM = XSLJ
 XSLJ = ''
 IF ASD = 'T'
 EXIT 
 ENDIF 
 IF M_XGQS = .T.
 ?? CHR(7)
 ?? CHR(7)
 SZ = '0'
 ENDIF 
 IF M_LX = .T.
 DO WHILE .T.
 DO LEIXINGXZ
 IF ASD = 'T'
 EXIT 
 ENDIF 
 DO XINGZHIXZ
 XSLX = XSLJ
 XSLJ = ''
 IF ASD = 'T'
 LOOP 
 ENDIF 
 DO DQSZ
 IF TCQ = 0
 LOOP 
 ENDIF 
 ENDDO 
 ELSE 
 DO WHILE .T.
 XSYK = ''
 DO XINGZHIXZ
 XSLX = XSLJ
 XSLJ = ''
 IF ASD = 'T'
 EXIT 
 ENDIF 
 DO DQSZ
 IF TCQ = 0
 LOOP 
 ENDIF 
 ENDDO 
 ENDIF 
 ENDDO 
 CLOSE DATABASES 
 RETURN 

PROCEDURE DQSZ
 M_DQDH = 0
 DO FORM .\src\form\dqxz
 XSDQ = XSLJ
 XSLJ = ''
 IF TCQ = 0
 RETURN 
 ENDIF 
 SELE11 = 0
 Q_QUIT = .F.
 DO FORM .\src\form\funcxz
 IF Q_QUIT
 RETURN 
 ENDIF 
 IF SELE11 = 1
 SZ = 'dgm'
 IF YUE = '12' AND (M_BH = '02' .OR. M_BH = '06' .OR. M_BH = '27' .OR. M_BH = '30') AND  ;
M_BLX2 = '1'
 SZ = '   '
 MSGTTL = '录入/修改'
 MESSGTXT =  ;
      '合并表必须由盈余表和亏损表合并生成' + CHR(13) + ' 请进入辅助功能选择盈亏生成合并'
 = MESSAGEBOX(MESSGTXT,64,MSGTTL)
 ENDIF 
 IF SZ = 'dgm'
 DO .\src\prg\LR01
 ENDIF 
 ELSE 
 DO src\prg\LR01A
 ENDIF 
 M_DQDH = 0
ENDPROC
*------
PROCEDURE ZLXZ
 DO WHILE .T.
 ASD = 'F'
 M_BH = '00'
 DO FORM .\src\form\GONG2
 IF M_BH = '00'
 ASD = 'T'
 RETURN 
 ENDIF 
 EXIT 
 ENDDO 
 IF FILE('LIB\BZL.DAT')
 USE IN 0 LIB\BZL.DAT
 IF EOF()
 WAIT WINDOW '表种类库为空'
 RETURN 
 ENDIF 
 ELSE 
 WAIT WINDOW '无表种类库(BZL)'
 ASD = 'T'
 RETURN 
 ENDIF 
 SELECT BZL
 LOCATE FOR BH = M_BH
 M_LX = LX
 M_BM = LTRIM(TRIM(BM))
 M_LS = LS
 M_XGQS = XGQS
 M_BCZL = BCZL
 M_YCBZA = YCBZ
 USE 
 RETURN 
ENDPROC
*------
PROCEDURE LEIXINGXZ
 ASD = 'F'
 QQ = 0
 M_LXM = '   '
 M_BLX2 = '0'
 DO FORM .\src\form\BLX
 IF M_BLX2 = '0'
 ASD = 'T'
 ELSE 
 ENDIF 
 RETURN 
ENDPROC
*------
PROCEDURE XINGZHIXZ
 ASD = 'F'
 SELE1 = 0
 DO FORM .\src\form\sblx
 IF M_BLX1 = '0'
 ASD = 'T'
 ENDIF 
 RETURN 
ENDPROC
*------*