close all
set dele on
set safe off
set excl off

If !file('sterling_info.dbf')

	create table temp(parcel_no c(20),;
										prop_addr c(40),;
										taxdistric c(2),;
										totalacres n(8,2),;
										owner c(40),;
										address1 c(40),;
										address2 c(40),;
										address3 c(40),;
										city c(25),;
										state c(2),;
										zip c(9),;
										legal_desc c(45),;
										a_value n(10),;
										ovrideval n(10),;
										bldg_val n(10),;
										bldg_ovr n(10),;
										acc_val n(10),;
										acc_ovr n(10),;
										prev_val n(10))
										
	use temp
	copy to sterling_info fox2x									
										
EndIf

sele a
use sterling_info excl
zap

sele b
use realprop
set order to parcel_no
go top

sele c
use acessory
set order to realkey

sele d
use reprop
set order to realkey

sele e
use owner
set order to ownkey

sele realprop
clear

Do While !eof()

	@10,20 say recno()
	
	lfind = .f.
	
	sele reprop
	seek realprop.realkey
	
	If found()
	
		nres = 0
		nores = 0
		
		Do While !eof() and realkey = realprop.realkey
			
			nres = nres + iif(ovr_val > 0, 0, timp_val)
			nores = nores + iif(ovr_val > 0, ovr_val, 0)
			 
			If digclass = 'A' or digclass = 'R'
				lfind = .t.
			EndIf
			
			skip
			
		EndDo
		
	EndIf	
	
	If !lfind
	
		sele realprop
		skip
		
		If !eof()
			loop
		Else
			exit
		EndIf
		
	EndIf
	
	sele acessory
	seek realprop.realkey
	
	nacc = 0
	noacc = 0
	
	Do While !eof() and realkey = realprop.realkey
	
		nacc = nacc + iif(ovr_val > 0, 0, imp_val)
		noacc = noacc + iif(ovr_val > 0, ovr_val, 0)
		
		skip
		
	EndDo	
	
	sele realprop
	pa = ' '
	
	pa = iif(house_no > 0, alltrim(str(house_no,5,0)),' ')
	pa = alltrim(pa) + ' ' + alltrim(extension)
	pa = alltrim(pa) + ' ' + alltrim(stdirect)
	pa = alltrim(pa) + ' ' + alltrim(street_nam)
	pa = alltrim(pa) + ' ' + alltrim(sttype)
	pa = alltrim(pa)
	
	sele owner
	seek realprop.ownkey
	
	sele sterling_info
	append blank
	
	replace parcel_no with realprop.parcel_no,;
					prop_addr with pa,;
					taxdistric with realprop.taxdistric,;
					totalacres with realprop.totalacres,;
					owner with owner.lastname,;
					address1 with owner.address1,;
					address2 with owner.address2,;
					address3 with owner.address3,;
					city with owner.city,;
					state with owner.state,;
					zip with owner.zip,;
					legal_desc with realprop.legal_desc,;
					a_value with realprop.a_value + realprop.p_value,;
					ovrideval with realprop.ovrideval,;
					bldg_val with nres,;
					bldg_ovr with nores,;
					acc_val with nacc,;
					acc_ovr with noacc,;
					prev_val with realprop.prev_val
					
	sele realprop
	skip
	
EndDo

close all
clear

@10,20 say 'Sterling_Info.dbf is now ready for report'

return