Я во все дела суюсь -> всесторонне разовьюсь  Парус-Предприятие 7.62                                      Visual FoxPro 8.0

m.clRn_sfospec=p_form_rn("Sfospec") && clRn_sfospec - новый уникальный ключ. В функцию p_form_rn передаем название таблицы

FUNCTION p_form_rn
LPARAMETER tcTable

LOCAL lcNewrn, lnI, lnPopitka
STORE "" TO m.lcNewrn
m.lnPopitka= 200 
IF !USED("Tables")
	USE Tables IN  0  AGAIN ALIAS Tables 
*!*	SET ORDER TO FILE_NAME   && UPPER(FILE_NAME) 
ENDIF
IF SEEK(PADR(UPPER(tcTable),  8 ), "Tables", "FILE_NAME")
	lnI =  1 
	DO WHILE .T.
		IF RLOCK("Tables")
			m.lcNewrn = p_New_rn(Tables.Gen_id) && берем последний ключ и формируем новый
			REPLACE Tables.Gen_id WITH m.lcNewrn IN Tables
			UNLOCK IN Tables
			EXIT
		ENDIF
		IF lnPopitka> 0 
			lnI = lnI+ 1 
			IF lnI>lnPopitka
				EXIT
			ENDIF
		ENDIF
	ENDDO
ENDIF

RETURN lcNewrn
ENDFUNC 
*!* суть функции p_New_rn состоит в том, чтобы перевести последнее уникальное значение "0Rtv"
*!* в десятичный вид, прибавить  1 , а потом вернуть опять в  62 -ричный ("0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"). 

Я во все дела суюсь -> всесторонне разовьюсь                                                         Visual FoxPro 8.0