dy_qhk.prg

2仍然

************************
*  打印各所电费区号表  *
************************

set talk off
set safe off

close database

public tcbz,path,file,title,title2,dytitle

tcbz=0

path='RWSJ\'
file='SHK'
title='各电费区号清单！'
title2='(查询打印区号清单*2002年04月启用*)'
dytitle=''

do form s_time
close database
if tcbz<>0
	return .f.
endif

release title1,title2

public title1,title2

jls=8

sele 0
use &s
copy to qh_tmp

sele 0
use qh_tmp
index on GDS+QH tag qq addi
set order to tag qq
count all to zqs

time1=rq1+rq2

sele 0
use qh_ls
zap

title1=subs(time1,1,4)+'年'+subs(time1,5,2)+'月各供电所电费区号清单'
title2='(共计 '+allt(str(zqs))+' 个区)'

sele 0
use ksk
go top

do while .not. eof()

	gds1=allt(ksk.a2)
	sele qh_tmp
	set filter to allt(GDS)==gds1
	
	count all for allt(GDS)==gds1 to zjl
	go top

	if zjl<>0
		insert into qh_ls (a1) value ('('+allt(ksk.a1)+') ***** '+allt(ksk.a2)+' ***** 共 '+allt(str(zjl))+' 个区 **********************************')
	endif
	
	if zjl<>0

		if int(zjl/jls)=zjl/jls
			xfcs=zjl/jls &&循环次数
		else
			xfcs=int(zjl/jls)+1
		endif

		for i=1 to xfcs
		
			bb=''
			for ii=1 to jls
			
				ls1='B'+str(ii,1)
				ls2='C'+str(ii,1)
				sele qh_tmp
				&ls1=subs(qh_tmp.QH,1,4)
				if .not. empty(CSY)
					&ls2=subs(qh_tmp.CSY,1,8)
				else
					&ls2=space(8)
				endif
							
				bb=bb+&ls1+' '+&ls2+' '
				
				if .not. eof()
					skip				
				endif
								
			endfor
		
		insert into qh_ls (a1) value ('　　'+bb)
		
		endfor
		
	endif

	sele ksk
	skip

enddo

sele qh_ls
go top

close database

do bb_prev with 'reports\dyqh',''+'区号清单'

set talk on
set safe on