jswh1.prg

来自「使用VFP编写的信用社系统专用会计报表系统,可上报,汇总,打印.是一款优秀的信用」· PRG 代码 · 共 54 行

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


 SET TALK OFF
 SET CONSOLE OFF
 SET EXACT ON
 SET COLOR TO 
 SET SAFETY OFF
 SET EXCLUSIVE ON
 CLOSE DATABASES 
 IF 1 = 0
 SET DEFAULT TO \xbbjs
 MMBZ4 = '4'
 ENDIF 
 ZWMKZ = 1
 DIMENSION ZWM( 10 )
 MM_SHBZ = ''
 M_BM = ''
 M_BH = '00'
 M_XH = 0
 M_LS1 = ''
 L1 = 0
 L2 = 0
 DO WHILE .T.
 DO FORM src\form\gong2
 M_BHC = M_BH
 IF M_BH = '00'
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 IF  .NOT. USED('BZL')
 USE .\LIB\BZL.dat
 ENDIF 
 SELECT BZL
 LOCATE FOR BH = M_BH
 M_BM = BM
 M_LS1 = LS
 USE LIB\JS1.DAT
 COPY TO LIB\JS1A.DAT FOR BH = M_BH
 USE 
 USE IN 3 LIB\JS3.DAT
 USE IN 2 LIB\JS2.DAT
 USE IN 1 LIB\JS1.DAT
 USE IN 4 LIB\JS1A.DAT
 USE IN 0 LIB\BZL.DAT
 DS = 0
 GS = ''
 DO FORM src\form\jswh1
 CLOSE DATABASES 
 ENDDO 
*