* Номер элемента - цифра. От  1  до  9 
* Значение - сколько осталось не использованных вариантов
DIMENSION laRemains( 9 )
laRemains[ 1 ] =  84 
laRemains[ 2 ] =  85 
laRemains[ 3 ] =  86 
laRemains[ 4 ] =  87 
laRemains[ 5 ] =  88 
laRemains[ 6 ] =  89 
laRemains[ 7 ] =  90 
laRemains[ 8 ] =  91 
laRemains[ 9 ] =  92 

* Строка, содержащая список доступных цифр
LOCAL lcAvailable
lcAvailable = "132456789"

* Итоговая таблица
CREATE TABLE bigTable (a1 N( 2 , 0 ), ;
		a2 N( 2 , 0 ), ;
		a3 N( 2 , 0 ), ;
		a4 N( 2 , 0 ), ;
		a5 N( 2 , 0 ), ;
		a6 N( 2 , 0 ), ;
		a7 N( 2 , 0 ))

* Заполнение таблицы, пока доступно не менее  7  разных цифр
* Предполагаю, что в одной записи не должно быть повторяющихся значений
RAND(- 1 )
LOCAL lcAvailableOneLine, lnI, lnNextPos, lnNextValue
DO WHILE LEN(m.lcAvailable) >=  7 
	lcAvailableOneLine = m.lcAvailable
	SELECT bigTable
	APPEND BLANK
	FOR m.lnI =  1  TO  7 
		* Вычисляю очередное значение
		lnNextPos = ROUND(RAND()*LEN(m.lcAvailableOneLine), 0 )
		IF m.lnNextPos =  0 
			lnNextPos =  1 
		ENDIF
		lnNextValue = INT(VAL(SubStr(m.lcAvailableOneLine,m.lnNextPos, 1 )))

		* Записываю найденное значение
		REPLACE ("a"+TransForm(m.lnI)) WITH m.lnNextValue

		* Корректирую данные
		m.lcAvailableOneLine = STUFF(m.lcAvailableOneLine,m.lnNextPos, 1 ,"")
		laRemains[m.lnNextValue] = laRemains[m.lnNextValue] -  1 
		IF laRemains[m.lnNextValue] =  0 
			m.lcAvailable = ChrTran(m.lcAvailable,TranForm(m.lnNextValue),"")
		ENDIF
	ENDFOR
ENDDO

lcAvailable = CHR( 1 )+CHR( 2 )+CHR( 3 )+CHR( 4 )+CHR( 5 )+...
...
REPLACE ("a"+TransForm(m.lnI)) WITH ASC(m.lnNextValue)

DIMENSION laValue( 10 )
laValue[ 1 ] = "a"
laValue[ 2 ] = "b"
laValue[ 3 ] = "c"
...

* Строка, содержащая список доступных цифр
LOCAL lcAvailable
lcAvailable = "132456789"

* Строка, содержащая список доступных цифр
LOCAL lcAvailable
lcAvailable = "абвгдежзи"

 2 .Здесь помоему не проверяется (да и я не сказал об этом ранше) повторяющие записи. Напирмер, 
 1   4   5   6   3   8   9 
 1   4   5   6   3   8   9 
не должна быть.

* Подбор вариантов выбора  7  значений из  10  возможных
* В одном наборе не должно быть одинаковых значений
* Один набор не должен повторятся несколько раз

LOCAL lnAvailable, lnNumValue, lnDelta
lnNumValue  =  7 
lnAvailable =  10 
lnDelta 	= m.lnAvailable - m.lnNumValue

CREATE CURSOR bigTable (a1 I, a2 I, a3 I, a4 I, a5 I, a6 I, a7 I)

LOCAL lnI1, lnI2, lnI3, lnI4, lnI5, lnI6, lnI7
FOR lnI1 =  1  TO  1  + m.lnDelta
	FOR lnI2 = m.lnI1 +  1  TO  2  + m.lnDelta
		FOR lnI3 = m.lnI2 +  1  TO  3  + m.lnDelta
			FOR lnI4 = m.lnI3 +  1  TO  4  + m.lnDelta
				FOR lnI5 = m.lnI4 +  1  TO  5  + m.lnDelta
					FOR lnI6 = m.lnI5 +  1  TO  6  + m.lnDelta
						FOR lnI7 = m.lnI6 +  1  TO  7  + m.lnDelta
							INSERT INTO bigTable (a1, a2, a3, a4, a5, a6, a7) ;
							VALUES (m.lnI1, m.lnI2, m.lnI3, m.lnI4, m.lnI5, m.lnI6, m.lnI7)
						ENDFOR
					ENDFOR
				ENDFOR
			ENDFOR
		ENDFOR
	ENDFOR
ENDFOR