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