zbwh.prg

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

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


 YSYML = '.'
 XSYML = '.'
 XNIAN = RIGHT(NIAN,2)
 DS = 0
 M_TC = ''
 SET TALK OFF
 SET CONSOLE OFF
 SET EXACT ON
 SET SAFETY OFF
 MMM = .F.
 CLOSE DATABASES 
 ZWMKZ = 1
 DIMENSION ZWM( 10 )
  USE &ysyml.\LIB\BZL.DAT
 M_BH = '00'
  SET DEFA TO &xsyml
  DO FORM &xsyml.\src\form\gong2
 SS = M_BH
 IF M_BH = '00'
 RETURN 
 ENDIF 
 IF M_BH = '99'
  m_xmk1='&ysyml.\lib\xm01.dat'
  m_xmk2='&ysyml.\lib\xm99.dat'
  liblj='&ysyml.\lib\zb&ss'
 ELSE 
  liblj='&ysyml.\lib\zb&ss'   
  m_xmk1='&ysyml.\LIB\xm&ss..dat'
  m_xmk2='&ysyml.\LIB\xm&ss..dat'
 ENDIF 
  IF !FILE("&ysyml.\&liblj..DAT")
  USE &ysyml.\LIB\ZB00.DAT
  COPY STRU TO &liblj..DAT
  USE &ysyml.\LIB\ZB00A.DAT
  COPY STRU TO &liblj.A.DAT
 ENDIF 
 CLOSE DATABASES 
 SELECT 1
 ZBNIAN = NIAN
 ZBNIANN = 0
  USE &ysyml.\LIB\BZL.DAT
  DO FORM &xsyml.\src\form\zbnian   
 IF M_TC = '退出'
 M_TC = ''
 RETURN 
 ENDIF 
  USE &ysyml.\LIB\BZL.DAT
 LOCATE FOR BH = SS
 USE 
 DY_RDY = 1
 PUBLIC M_XSXX( 50 )
 FOR XHCS = 1 TO 50
 M_XSXX = ''
 ENDFOR 
  DO FORM &xsyml.\src\form\xmwh   
 CLOSE DATABASES 
 RELEASE M_XSXX
 RETURN 
*