lr01a.prg

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

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


 CL_NIAN = RIGHT(NIAN,2)
 IF SELE11 = 2 .OR. SELE11 = 4
 DATNAME = 'DAT\B' + (M_BH) + (CL_NIAN) + (YUE) + '.DAT'
 BDATNAME = 'b' + (M_BH) + (CL_NIAN) + (YUE)
 IF  .NOT. FILE(DATNAME)
 WAIT WINDOW DATNAME + '数据文件不存在'
 RETURN 
 ENDIF 
 ELSE 
 DATNAME = 'DAT\H' + (M_BH) + (CL_NIAN) + '.DAT'
 BDATNAME = 'b' + (M_BH) + (CL_NIAN)
 IF  .NOT. FILE(DATNAME)
 WAIT WINDOW DATNAME + '汇总数据文件不存在'
 RETURN 
 ENDIF 
 ENDIF 
 DO OPENWJ WITH DATNAME
 STORE 'LIB\xm' + (M_BH) + '.DAT' TO DATNAME
 STORE 'XM' + (M_BH) TO XMKNAME
 DO OPENWJ WITH DATNAME
 DO src\prg\LR023

PROCEDURE OPENWJ
 PARAMETER DATNAME
 IF FILE(DATNAME)
 USE IN 0 (DATNAME)
 ENDIF 
 RETURN 
ENDPROC
*------*