行业应用

开发平台：

VFP

ZRHZ.PRG：源码内容

							********************************************
*    程序名:ZRHZ.PRG
*    功能:  将接收到的报表转入JQBB子目录
*    设计:  黄朝生
********************************************
on key
use hzdw
count all to jsq
go top
set colo to w/n
@ 4,5 clea to jsq+5,28
set colo to 7+/2
@ 3,6 clea to jsq+4,29
set colo to w/b,w+/r
@ 2,4 say ' 报表转作汇总,请确定来源单位: '
for i=1 to jsq
@ 3+i,8 prom hzdw
if !eof()
skip
endif
endfor
menu to x
do case
  case x=0
   set colo to w+/n
  case x=1
    pd=1
    do zrhz_1
  case x=2
   pd=2
   do zrhz_1
   case x=3
    pd=3
   do zrhz_1
   case x=4
   pd=4
   do zrhz_1
   case x=5
   pd=5
   do zrhz_1
   case x=6
   pd=6
   do zrhz_1
   case x=7
   pd=7
   do zrhz_1
   case x=8
   pd=8
   do zrhz_1
   case x=9
   pd=9
   do zrhz_1
   case x=10
   pd=10
   do zrhz_1
   case x=11
   pd=11
   do zrhz_1
   case x=12
   pd=12
   do zrhz_1
endcase  
*set path to jqbb
on key label escape quit
*set colo to w+/n
use
retu

						