LPARAMETERS cSelectCmd
LOCAL m.loI, loKey, loNach, loLen, loField, loFiedlZn
WITH This
	STORE '' TO .SeekKey
	IF EMPTY(.Alias) OR !USED(.Alias) OR EMPTY(.KeyFieldList)
		RETURN
	ENDIF
	m.loKey = .KeyFieldList+IIF(RIGHT(.KeyFieldList, 1 )#',',',','')
	FOR m.loI= 1  TO OCCURS(',',m.loKey)
		m.loNach = IIF(m.loI= 1 , 1 ,AT(',',m.loKey,m.loI- 1 )+ 1 )
		m.loLen = IIF(m.loI= 1 ,AT(',',m.loKey)- 1 ,AT(',',m.loKey,m.loI)-m.loNach)
		m.loField = SUBSTR(m.loKey,m.loNach,m.loLen)
		IF FSIZE(m.loField,.Alias)# 0 
			m.loFiedlZn = EVALUATE(.Alias+'.'+m.loField)
			DO CASE
				CASE TYPE("m.loFiedlZn")="C"
					m.loFiedlZn = "'"+m.loFiedlZn+"'"
				CASE INLIST(TYPE("m.loFiedlZn"),"T","D")
					m.loFiedlZn = "'"+IIF(TYPE("m.loFiedlZn")="T",TTOC(m.loFiedlZn),DTOC(m.loFiedlZn))+"'"
					m.loField = IIF(TYPE("m.loFiedlZn")="T","TTOC","DTOC")+"("+m.loField+")"
				OTHERWISE
					m.loFiedlZn = ALLTRIM(STRTRAN(STR(m.loFiedlZn),',','.'))
			ENDCASE
			.SeekKey = .SeekKey+IIF(!EMPTY(.SeekKey),' AND ','')+m.loField+'='+m.loFiedlZn
		ENDIF
	ENDFOR
ENDWITH

LPARAMETERS cSelectCmd, lResult
WITH This
	IF EMPTY(.Alias) OR !USED(.Alias) OR EMPTY(.SeekKey)
		RETURN
	ENDIF
	SELECT RECNO() as GoRec FROM (.Alias) WHERE EVALUATE(.SeekKey) INTO CURSOR CARecnoCursor
	IF BETWEEN(CARecnoCursor.GoRec, 1 ,RECCOUNT(.Alias))
		GO CARecnoCursor.GoRec IN (.Alias)
	ENDIF
	USE IN SELECT('CARecnoCursor')
ENDWITH