test.bak

用于医院科室核算的软件,把每日的科室收入按类输入

set safe off
clos data all
clear



sele 0
use e:\data\sales1
copy to temp fields jzks,sfl,je

use temp
inde on jzks tag jzks
total to temp_jzks on jzks

inde on sfl tag sfl
total to temp_sfl on sfl

use temp_sfl

xzd='jzks c(10),'
scan
xzd=xzd+'sfl'+sfl+' n(10,2),'
endscan

xprg="CREATE TABLE  temp_tj ( "+substr(xzd, 1,len(xzd) -1)+" )"  
&xprg

close data

sele 0
use temp_sfl

sele 0
use temp_tj
sele 0
use temp order jzks

repl all jzks with '000000' for empty(jzks)

go top
初始化变量
                xjzks=' '
				sele temp_sfl
		        
				xxfirst='xm'
				scan
				xint=xxfirst+sfl
				&xint=0
				endscan
scan
	if alltrim(jzks)<>xjzks
		if xjzks<>' '
		sele temp_tj
		append blank
		repl jzks with xjzks
				sele temp_sfl
		        
				scan
				xxsfl='sfl'+sfl
				xxsfl1='xm'+sfl
				sele temp_tj
				repl &xxsfl with &xxsfl1
				sele temp_sfl
				endscan
		endif

				sele temp_sfl
		        
				xxfirst='xm'
				scan
				xint=xxfirst+sfl
				&xint=0
				endscan
			sele temp
			xsflc="xm"+sfl
			&xsflc=&xsflc+je
			
		*!*		? xsflc,&xsflc
	else
			
			
			xsflc="xm"+sfl
			&xsflc=&xsflc+je
			
			? xsflc,&xsflc
	endif
 xjzks=jzks

endscan