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

********************************************* 
*       程序名: CSWJ.PRG                    * 
*       功能:   传输报表                    * 
*       设计:   黄朝生                      * 
********************************************* 
 
if !file('\jqfax\outdata\bb.arj') 
 
defi wind jqwin1 from 6,20 to 11,60 
acti wind jqwin1 
@2,2 say "没有打包报表,请先对报表进行打包! " 
*?? prmbar(popu(),bar()) 
 
wait'' 
deac wind jqwin1 
retu 
endif 
*else 
 
defi wind jqwin1 from 6,20 to 11,60 
acti wind jqwin1 
*dh='                 ' 
@2,2 say "请输入电话号码:" get dh  
read 
*wait'' 
deac wind jqwin1 
if last()<>27 .and. len(trim(ltrim(dh)))<>0 
! minicom -P1 -Foutdata\bb.arj -T&dh -S 
endif 
*endif 
*************** 
*=defiwind("WT",0,0,24,79,"colo &Color titl ''") 
clea 
acti wind jqfaxwin 
*************** 
retu