Nope.
You must program this by yourself
FUNCTION GetIndexKeyFields(cOrder, cAlias)
LOCAL cOldAlias, cKey, aFlds[1], nFlds
LOCAL nCnt, oEmpty
oEmpty = CREATEOBJECT("Empty")
ADDPROPERTY(oEmpty, "FieldsCount", 0)
ADDPROPERTY(oEmpty, "FieldsDef[1,4]", "")
cOldAlias = ALIAS()
SELECT (cAlias)
cKey = KEY(TAGNO(cOrder,cAlias),cAlias)
nFlds = AFIELDS(aFlds,cAlias)
FOR nCnt = 1 TO nFlds
IF UPPER(aFlds[nCnt,1]) $ cKey
oEmpty.FieldsCount = oEmpty.FieldsCount + 1
DIMENSION oEmpty.FieldsDef[oEmpty.FieldsCount, 4]
oEmpty.FieldsDef[oEmpty.FieldsCount, 1] = aFlds[nCnt,1]
oEmpty.FieldsDef[oEmpty.FieldsCount, 2] = aFlds[nCnt,2]
oEmpty.FieldsDef[oEmpty.FieldsCount, 3] = aFlds[nCnt,3]
oEmpty.FieldsDef[oEmpty.FieldsCount, 4] = aFlds[nCnt,4]
ENDIF
ENDFOR
SELECT (cOldAlias)
RETURN oEmpty
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
