www.pudn.com > jq_transfile.ARJ > BBJB.PRG

********************************************* 
*       程序名: bbjb.PRG                    * 
*       功能:   报表解包                    * 
*       设计:   黄朝生                      * 
********************************************* 
if !file('\jqfax\indata\bb.arj') 
defi wind jqwin1 from 6,20 to 11,60 
acti wind jqwin1 
@2,2 say "没有找到文件包,接收数据之后才能解包! " 
wait'' 
deac wind jqwin1 
retu 
endif 
! arj x indata\bb.arj indata -y 
*=defiwind("WT",0,0,24,79,"colo &color titl''") 
clea 
************ 
deac wind jqfaxwin 
************ 
use \jqfax\indata\outdata\year &&恢复日期 
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