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

******************************** 
*   文件名: wjdb.prg           * 
*   功能:   文件打包           * 
*   设计:   黄朝生             * 
******************************** 
cd=space(30) 
*do loadsdK 
*--------------------------------------------------------------------- 
if !file('\jqbb\nul') 
   sm='请将JQFAX与JQBB汇总系统安装到同一盘中!' 
   wait sm window 
endif 
sm='' 
***************** 
defi wind jqwin1 from 6,20 to 11,60 titl ' 输入打包报表日期 ' 
acti wind jqwin1 
Ryear=0 
Rdate=0 
@2,2 say '请输入报表日期:      年    月' 
@ 2,18 get Ryear pict'@bz 9999' 
@ 2,26 get Rdate pict'@bz 99' valid(Rdate>0 .and. Rdate<13) 
read 
deac wind jqwin1 
if len(ltrim(str(Ryear)))<>4 
retu 
endif 
*@ 8,20 say '正在处理数据......' 
file='\jqbb\'+ltrim(str(Ryear))+'\m'+ltrim(str(Rdate))+'\' 
pd1=0 
pd2=0 
if !file(file+'fzbhz.dbf') 
   ?? chr(7) 
  sm='  汇总资产负债表没找到!' 
  wait sm window 
  pd1=1 
else 
  pd2=1 
endif 
if !file(file+'sybhz.dbf') 
  ?? chr(7) 
  sm='  汇总损  益  表没找到!' 
  wait sm window 
  pd1=1 
else 
  pd2=1 
endif 
if !file(file+'BCMXBhz.DBF') 
   ?? chr(7) 
  sm='  汇总补充明细表没找到!' 
  wait sm window 
  pd1=1 
else 
  pd2=1 
endif 
if !file(file+'yjkbhz.dbf') 
   ?? chr(7) 
  sm='  汇总应交款项表没找到!' 
  wait sm window 
  pd1=1 
else 
  pd2=1 
endif 
if !file(file+'zzsbhz.dbf') 
  ?? chr(7) 
  sm='  汇总增值税报表没找到!' 
  wait sm window 
  pd1=1 
else 
  pd2=1 
endif 
db=1 
if pd1=1 .and. pd2=1 
defi wind jqwin1 from 6,20 to 11,60 
acti wind jqwin1  
?? chr(7) 
@1,2 say '报表没有全部找到,是否打包?' 
set colo to w/b,6+/bg 
@2,8 prom '打包' 
@2,14 prom '不打包' 
menu to pd 
do case 
   case pd=1 
   db=1 
   case pd=2 .or. pd=0 
   db=0 
endcase 
deac wind jqwin1 
endif 
if db=1 .and. pd2=1 
@ 8,20 say '正在处理数据......' 
! deltree -y outdata >nul 
! md outdata 
***********拷贝文件 
if file(file+'fzbhz.dbf') 
  file1=file+'fzbhz.dbf' 
  copy file &file1 to outdata\fzbhz.dbf 
endif 
if file(file+'sybhz.dbf') 
  file1=file+'sybhz.dbf' 
  copy file &file1 to outdata\sybhz.dbf 
endif 
if file(file+'bcmxbhz.dbf') 
  file1=file+'bcmxbhz.dbf' 
  copy file &file1 to outdata\bcmxbhz.dbf 
endif 
if file(file+'yjkbhz.dbf') 
  file1=file+'yjkbhz.dbf' 
  copy file &file1 to outdata\yjkbhz.dbf 
endif 
if file(file+'zzsbhz.dbf') 
  file1=file+'zzsbhz.dbf' 
  copy file &file1 to outdata\zzsbhz.dbf 
endif 
************ 
set path to \jqfax 
    ! copy \jqfax\year.dbf outdata  && 记住数据日期  解包时用 
    use \jqfax\outdata\year 
    repl nf with Ryear,yf with Rdate 
    use 
   * 内存不够时,可用-M0参数打包,但不进行压缩 
   ! arj a -m4 outdata\bb.arj outdata\*.* -y 
  deac wind jqwin1 
acti wind jqwin 
acti wind jqfaxwin 
clea 
endif 
retu