行业应用

开发平台：

VFP

XSBBDR_1.PRG：源码内容

							*xsbbdr_1.prg
if pd<10
   x1=str(pd,1,1)
   else
   x1=str(pd,2,1)
endif
set path to C:
* 拷贝数据
clos data
       set colo to w+/1
       @ 15,4 clea to 18,31
       @ 13,11 say '下属报表读入'
       @ 16,6 say '请将备份盘插入A:驱动器!'
       @ 17,6 say '按ESC=返回,Y键=拷贝...'
       x=inkey(0)
       set colo to  w+/n
       @ 13,4,18,30 box'鞍鞍鞍鞍鞍鞍'
       set colo to w+/1
       if x=89 .or. x=121
         @ 12,11 say '正在拷贝文件......'
       if file("A:fzbhz.dbf")
       wj='fzb'+x1+'.dbf'
       !copy A:fzbhz.dbf &wj >nul
       else 
       ?? chr(7)
       @ 15,8 say '资产负债表没找到!'
       x=inkey(2)
       endif
       if file("A:sybhz.dbf") 
        wj='syb'+x1+'.dbf'
       !copy A:sybhz.dbf &wj >nul
       else
       ?? chr(7)
       @ 15,8 say '损益表没找到!    '
       x=inkey(2)
       endif
       if file("A:bcmxbhz.dbf")
       wj='bcmxb'+x1+'.dbf'
       !copy A:bcmxbhz.dbf &wj >nul 
       else 
       ?? chr(7)
       @ 15,8 say '补充明细表没找到!'
       x=inkey(2)
       endif
       if file("A:yjkbhz.dbf")
        wj='yjkb'+x1+'.dbf'
       !copy A:yjkbhz.dbf &wj >nul
       else
       ?? chr(7)
       @ 15,8 say '应交款项表没找到!'
       x=inkey(2)
       endif
       if file("A:zzsbhz.dbf")
       wj='zzsb'+x1+'.dbf'
       !copy A:zzsbhz.dbf &wj >nul
       else
       ?? chr(7)
       @ 15,8 say '增值税报表没找到!'
       x=inkey(2)
       endif 
       endif
set path to jqbb
set colo to w+/n
@ 1,1,22,78 box'鞍鞍鞍鞍鞍鞍'
retu

						