clear
set delete on
set safety off
close all

set excl off
*run dir ..\pictures\*.jpg > pictlist.txt



set exclu on

Do while .T.

	If file('pictlist.dbf')

		use pictlist
		copy struc extended to temp

		use temp
		loca for lower(field_name) = 'neighbhood'
		
		If !found()
			erase pictlist.dbf
			
			loop
		Else
			exit	
		EndIf	

	Else
		create table pictlist (pictid c(20), parcel_no c(20), realkey n(10),repropkey n(10),;
													 commkey n(10), mobilekey n(10), neighbhood c(6))
													 
		exit											 
	EndIf
EndDo	

use pictlist 
zap




np = 0
cdir = ' '

cPath = CURDIR()
cdir = subs(cPath,rat('\',cPath,2)+1,rat('\',cPath)-(rat('\',cPath,2)+1))


copy to no_pictlist fox2x
use no_pictlist 
zap

close all

set excl off

sele a
use reprop

sele b
use commimp

sele c
use realprop
set order to realkey

sele e
use mobile
set order to repropkey

sele d
use no_pictlist

sele reprop

Do while !eof()

	lr = .t.
	lm = .t.
	
	rpic = '..\..\pictures' + '\r' + alltrim(str(repropkey,10,0)) + '\r' + ;
					alltrim(str(repropkey,10,0)) + '.jpg'
		
	If !file('&rpic')
	
		lr = .f.
		
		If occupancy <> 4
			lm = .f.
		EndIf	
		
	EndIf
	
	If !lr and occupancy = 4
	
		sele mobile
		seek reprop.repropkey
		
		If !found()
		
			lm = .f.
			
		Else

		mpic = '..\..\pictures' + '\m' + alltrim(str(mobilekey,10,0)) + '\m' + ;
						alltrim(str(mobilekey,10,0)) + '.jpg'
		
			If !file('&mpic')
				lm = .f.
			EndIf
			
				
		EndIf
		
	EndIf		
	
	
	If !lm and !lr	
		
		sele realprop
		seek reprop.realkey

		sele no_pictlist
		appen blank
		replace parcel_no with realprop.parcel_no,;
		realkey with realprop.realkey,;
		repropkey with reprop.repropkey,;
		neighbhood with realprop.neighbhood
		
		If reprop.occupancy = 4
			replace mobilekey with mobile.mobilekey
		EndIf
			
	EndIf
	
	sele reprop			
	skip	
		
EndDo

sele commimp

Do while !eof()
	
	cpic = '..\..\pictures' + '\c' + alltrim(str(commkey,10,0)) + '\c' + ;
					alltrim(str(commkey,10,0)) + '.jpg'
					

	If !file('&cpic')
	
		sele realprop
		seek commimp.realkey

		sele no_pictlist
		appen blank
		replace parcel_no with realprop.parcel_no,;
		realkey with realprop.realkey,;
		commkey with commimp.commkey,;
		neighbhood with realprop.neighbhood
		
	EndIf	
					
					
	sele commimp
	skip	
		
EndDo

close all

clear
@10,20 say 'Finished...No_pictlist.dbf, located in this folder, contains all '
@12,20 say 'residential and commercial imps without photos.'

return