行业应用

开发平台：

VFP

XTBZR.PRG：源码内容

							*xtbzr.prg
set path to C:
if file('fzb.dbf')
! copy fzb.dbf fzb1.dbf>nul
else
?? chr(7)
@ 5,10 say ' 系统负债表不存在!'
i=inkey(2)
endif
if file('syb.dbf')
! copy syb.dbf syb1.dbf>nul
else
?? chr(7)
@ 5,10 say ' 系统损益表不存在!'
i=inkey(2)
endif
if file('bcmxb.dbf')
! copy bcmxb.dbf bcmxb1.dbf>nul
else
?? chr(7)
@ 5,10 say ' 系统补充资料表不存在!'
i=inkey(2)
endif
if file('yjkb.dbf')
! copy yjkb.dbf yjkb1.dbf>nul
else
?? chr(7)
@ 5,10 say ' 系统应交款项表不存在!'
i=inkey(2)
endif
if file('zzsb.dbf')
! copy zzsb.dbf zzsb1.dbf>nul
else
?? chr(7)
@ 5,10 say ' 系统增值税报表不存在!'
i=inkey(2)
endif
set path to jqbb
retu
 
 
 
 

						