行业应用

开发平台：

VFP

BBJB.PRG：源码内容

							*********************************************
*       程序名: bbjb.PRG                    *
*       功能:   报表解包                    *
*       设计:   黄朝生                      *
*********************************************
if !file('jqfaxindatabb.arj')
defi wind jqwin1 from 6,20 to 11,60
acti wind jqwin1
@2,2 say "没有找到文件包,接收数据之后才能解包! "
wait''
deac wind jqwin1
retu
endif
! arj x indatabb.arj indata -y
*=defiwind("WT",0,0,24,79,"colo &color titl''")
clea
************
deac wind jqfaxwin
************
use jqfaxindataoutdatayear &&恢复日期
Ryear=nf
Rdate=yf
use
 file1='jqbb'+ltrim(str(Ryear))+'m'+ltrim(str(Rdate))
 file2=file1+'nul'
ss=.t.
if !file(file2)
   sm=file1+'目录不存在,无法拷贝!'
   wait sm window
   ss=.f.
endif
****************************************************************
if ss
defi wind jqwin1 from 2,35 to 22,75 titl ' 将报表转作汇总,确定该报表来源 '
acti wind jqwin1
clea
do zrhz
endif
clea
deac wind jqwin1
acti wind jqwin
acti wind jqfaxwin
***************
retu

						