import.css=/download/attachments/6062824/tecnologia.css |
Verifica qual a expressão de chave da ordem.
OrdKey( < cOrdem >, [ nPosicao ], [ cArqIndice ] ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cOrdem | caractere | Indica o nome do índice (Tag). | X | |
nPosicao | numérico | Indica a ordem numérica do índice. | ||
cArqIndice | caractere | Indica o nome do arquivo de índice (Bagname). |
Nome | Tipo | Descrição |
---|---|---|
cRet | caractere | Retorna a expressão de chave da ordem ativa ou especificada pelos parâmetros. Se o retorno for uma string vazia, significa que não existe ordem corrente. |
user function example() Local cT1 := "T1" TCLink() DBCreate("T1", {{"FIELD_NAME", "C", 10, 0}, ; {"FIELD_TYPE", "C", 10, 0} }, "TOPCONN") DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .T.) DBCreateIndex("T1INDEX1", "FIELD_NAME", {|| FIELD_NAME }) DBCreateIndex("T1INDEX2", "FIELD_TYPE+FIELD_NAME" , {|| FIELD_TYPE+FIELD_NAME }) DBSetIndex("T1INDEX1") DBSetIndex("T1INDEX2") conout(OrdKey("T1INDEX1")) // retorna FIELD_NAME no console conout(OrdKey(2)) // retorna FIELD_TYPE+FIELD_NAME no console DBCloseArea() TCUnlink() RETURN |