#DEFINE NUMB_COLOURS 15

public gcPath, glhasBOM, glhasSCM, glTransport

glHasBOM = .f.
glhasSCM = .f.
glTransport = .f.

gcPath = GetDir("v:\vision\home\")

cd &gcPath

if not file("styles.dbf")
	messagebox("There are no styles in this directory."+chr(13)+gcPath,0,"Not a Matrix Database")
	return
endif

use stylecol in 0

select stylecol

select zstyle, count(*) as nColours from stylecol group by zstyle into cursor c_ColourCount

select * from c_ColourCount where nColours > NUMB_COLOURS