shwh1.prg

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

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


 SET TALK OFF
 SET CONSOLE OFF
 SET EXACT ON
 SET SAFETY OFF
 CLOSE DATABASES 
 IF 1 = 0
 SET DEFAULT TO \xbbjs
 MMBZ4 = '4'
 ENDIF 
 ZWMKZ = 1
 DIMENSION ZWM( 10 )
 M_BH1 = '00'
 M_BH2 = '00'
 M_BM1 = ''
 M_BM2 = ''
 M_LS1 = ''
 M_LS2 = ''
 M_XH = 0
 MM_SHBZ = ''
 DO WHILE .T.
 DO FORM src\form\gongQ
 IF M_BH1 = '00' .OR. M_BH2 = '00'
 CLOSE DATABASES 
 RETURN 
 ENDIF 
 USE LIB\FZSH3.DAT
 COPY TO LIB\FZSH3A.DAT FOR BH1 = M_BH1 AND BH2 = M_BH2
 USE 
 CLOSE DATABASES 
 USE IN 3 LIB\FZSH3.DAT
 USE IN 2 LIB\FZSH2.DAT
 USE IN 1 LIB\FZSH1.DAT
 USE IN 4 LIB\FZSH3A.DAT
  USE LIB\XM&M_BH1..DAT IN 5
 IF M_BH1 <> M_BH2
  USE LIB\XM&M_BH2..DAT IN 6
 ENDIF 
 DS = 0
 GS = ''
 DO FORM src\form\shwh1
 CLOSE DATABASES 
 ENDDO 
*