行业应用

开发平台：

VFP

BCBLJJS.PRG：源码内容

							******
clos data
use hzdw
count all to jsq
use
*set path to C:
if cd1=1
?? chr(7)
wait '请用快速汇总方式汇总' window
retu 
else
pd=cd1-1
pd=str(pd,2,0)
x=str(Ryear,4,0)
pd=ltrim(pd)
pd='m'+pd
Mcd=pd
x1="jqbb"+x+""+pd+"sybhz.dbf"
*x1="'"+x1+"'"
*endif
set path to jqbb
set colo  to /3
clos data
set colo to
@ 10,22 clea to 14,65
set colo to w+/3
@ 8,20 clea to 12,60
@ 9,27 say '正在计算补充明细表!'
@ 10,32 say '请稍候......'
pd1=1
do whil pd1<=jsq
if pd1>9
pd=str(pd1,2,1)
else
pd=str(pd1,1,1)
endif
pd='bcmxb'+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
pd1=1
do whil pd1<=jsq
if pd1>9
pd=str(pd1,2,1)
else
pd=str(pd1,1,1)
endif
@ 11,38 say pd1 pict'99'
sele 2
pd2='..'+mcd+'bcmxb'+pd
pd='bcmxb'+pd
use &pd2 ALIAS bcbXX 
go 13
nc1=bys2  && 提取年初数
nc2=ljs2
go top
sele 1
use &pd
if cd1=2
upda on h1 from bcbXX repl ljs1 with bys1+bcbXX->bys1
upda on h1 from bcbxx repl ljs2 with bys2+bcbXX->bys2
go 13
repl ljs2 with nc1
else
upda on h1 from bcbXX repl ljs1 with bys1+bcbXX->ljs1
upda on h1 from bcbXX repl ljs2 with bys2+bcbXX->ljs2
go 13
repl ljs2 with nc2
endif
pd1=pd1+1
********************
SELE 3
USE bcmxbjs
DO JSGS
SELE 1
********************
enddo
*do bcmxbjs
@ 8,20 clea to 12,60
?? chr(7)
@ 15,30 say '计算完毕,按任键返回!'
i=inkey(0)
ENDIF
set colo to w+/n
@ 1,1,22,78 box'鞍鞍鞍鞍鞍鞍'
clos data
retu

						