sjcx.prg

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

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


 YSYML = '.'
 XSYML = '.'
 XNIAN = RIGHT(NIAN,2)
 SET TALK ON
 SET CONSOLE OFF
 SET EXACT ON
 SET SAFETY OFF
 CLOSE DATABASES 
 IF USED()
 RETURN 
 ENDIF 
 STORE 0 TO DK1 , DK2 , DK3
 M_BH = ''
  DO FORM &xsyml.\SRC\FORM\GONG2   
 IF M_BH = '00'
 RETURN 
 ENDIF 
 IF  .NOT. USED('BZL')
 USE IN 0 LIB\BZL.DAT
 DK1 = 1
 ENDIF 
 SELECT BZL
  LOCATE FOR BH="&M_BH"
 M_BM = LTRIM(TRIM(BM))
 ZT_LX = LX
 USE 
 M_BLX2 = 0
 M_BLX1 = 0
 DO FORM src\form\bbzlxz
 RETURN 
*