行业应用

开发平台：

VFP

YJKBHZ.PRG：源码内容

							***********
set colo  to /3
clos data
use hzdw
count all to jsq
use
set colo to
@ 10,22 clea to 14,65
set colo to w+/3
@ 8,20 clea to 12,60
@ 9,30 say '正在汇总应交款项表!'
@ 10 ,35 say '请稍候......'
! copy jqbbyjkb.dbf yjkbhz.dbf>nul
pd1=1
do whil pd1<=jsq
if pd1>9
pd=str(pd1,2,1)
else
pd=str(pd1,1,1)
endif
pd='yjkb'+pd
if file(pd+'.dbf')
pd1=pd1+1
else 
@ 20,30 say pd+'表不存在!'
i=inkey(0)
set colo to w+/n
@ 1,1,22,78 box'鞍鞍鞍鞍鞍鞍'
retu
endif
enddo 
*************
sele 1
use yjkbhz 
*set inde to  yjkb
repl all ncs with 0,bns with 0,bnyj with 0,nms with 0
*rein
pd1=1
do whil pd1<=jsq
if pd1>9
pd=str(pd1,2,1)
else
pd=str(pd1,1,1)
endif
sele 2
pd='yjkb'+pd
use &pd 
*set inde to yjkb
*reinde
sele 1
upda on h from &pd repl ncs with ncs+&pd->ncs
upda on h from &pd repl bns with bns+&pd->bns
upda on h from &pd repl bnyj with bnyj+&pd->bnyj
upda on h from &pd repl nms with nms+&pd->nms
pd1=pd1+1
enddo  
@ 8,20 clea to 12,60
?? chr(7)
@ 15,30 say '汇总完毕,按任键返回!'
i=inkey(0)
set colo to w+/n
@ 1,1,22,78 box'鞍鞍鞍鞍鞍鞍'
clos data
retu

						