行业应用

开发平台：

VFP

HZBZC.PRG：源码内容

							*hzbbzc.prg
* 拷贝数据
clos data
       set colo to
       @ 17,8 clea to 18,35
       @ 13,15 say '汇总报表转出'
       @ 16,10 say '请将备份盘插入A:驱动器!'
       @ 17,10 say '按ESC=返回,Y键=拷贝...'
       i=inkey(0)
       if i=89 .or. i=121
         @ 12,15 say '正在拷贝文件......'
         eras A:fzbhz.dbf
         eras A:sybhz.dbf
         eras A:bcmxbhz.dbf
         eras A:yjkbhz.dbf
         eras A:zzsbhz.dbf
       set path to C:
       if file("fzbhz.dbf")
       !copy fzbhz.dbf A: >nul
       else 
       ?? chr(7)
       @ 15,12 say '汇总资产负债表没找到!'
       i=inkey(2)
       endif
       if file("sybhz.dbf") 
       !copy sybhz.dbf A: >nul
       else
       ?? chr(7)
       @ 15,12 say '汇总损益表没找到!    '
       i=inkey(2)
       endif
       if file("bcmxbhz.dbf")
       !copy bcmxbhz.dbf A: >nul 
       else 
       ?? chr(7)
       @ 15,12 say '汇总补充明细表没找到!'
       i=inkey(2)
       endif
       if file("yjkbhz.dbf")
       !copy yjkbhz.dbf A: >nul
       else
       ?? chr(7)
       @ 15,12 say '汇总应交款项表没找到!'
       i=inkey(2)
       endif
       if file("zzsbhz.dbf")
       !copy zzsbhz.dbf A: >nul
       else
       ?? chr(7)
       @ 15,12 say '汇总增值税报表没找到!'
       i=inkey(2)
       endif 
       endif
       set path to jqbb
     set colo to w+/n    
     @ 1,1,22,78 box'鞍鞍鞍鞍鞍鞍'
    retu

						