+

visualfoxpro企业会计电算化实例

* 明细建表和明细月计建表
clear all
use d:\gmcw\mx322
copy to array mxold
store recc() to n
use mx3141
zap
for i=1 to n-1
    append blank
    replace 明细名称 with mxold(i,1)
    
    if i<10
		replace 明细库名 with "mx314100"+alltrim(str(i))
	endif
	if i>=10 .and. i<100 
		replace 明细库名 with "mx31410"+alltrim(str(i))
	endif
	if i>=100 
		replace 明细库名 with "mx3141"+alltrim(str(i))
	endif

    if i<10
		replace 月合计库 with "mj314100"+alltrim(str(i))
	endif
	if i>=10 .and. i<100 
		replace 月合计库 with "mj31410"+alltrim(str(i))
	endif
	if i>=100 
		replace 月合计库 with "mj3141"+alltrim(str(i))
	endif
*	replace  编号 with mxold(i,4) && 以下固定资产明细
*	replace  规格 with mxold(i,5)
*	replace  型号 with mxold(i,6)
*	replace  原值 with mxold(i,7)
*	replace  使用年限 with mxold(i,8)
*	replace  残值 with mxold(i,9)
*	replace  月折旧额 with mxold(i,10)

next 
append blank
replace 明细名称 with "创建或增添新明细"
brow
copy to array mxnew
for i=1 to n-1
? i
	m1=mxold(i,2)+'.dbf'
	m2=mxnew(i,2)+'.dbf'
	copy file d:\gmcw\&m1 to d:\cw\&m2
	m3=mxold(i,3)+'.dbf'
	m4=mxnew(i,3)+'.dbf'
	copy file d:\gmcw\&m3 to d:\cw\&m4
	
next