Seleciona a ordem de índice ativa através de seu apelido.
DBOrderNickname( < cApelido > )
Nome | Tipo | Descrição | Obrigatório | Referência |
---|---|---|---|---|
cApelido | caractere | Indica o nome do apelido da ordem que será setada. | X |
|
Nome | Tipo | Descrição |
---|---|---|
lRet | lógico | Retorna verdadeiro (.T.), se a ordem for setada com sucesso; Caso contrário, retorna falso (.F.). |
user function test() local cT1 := "T1" TcLink() if TcCanOpen(cT1) TCDelFile(cT1) endif DBCreate(cT1, {{"FIELD_COD" , "C", 2, 0}, ; {"FIELD_NAME", "C", 10, 0}}, "TOPCONN") DBUseArea(.F., "TOPCONN", cT1, (cT1), .F., .F.) DBCreateIndex("T1INDEX", "FIELD_COD+FIELD_NAME" , {|| FIELD_COD+FIELD_NAME }) (cT1)->( DBSetNickName("T1INDEX", "T1NICK") ) DBOrderNickname("T1NICK") nIdxOrd := IndexOrd() msgInfo("Ordem de índice ativo: " + cValToChar( nIdxOrd ) + chr(13)+chr(10) + "Chave de índice ativo: " + IndexKey(nIdxOrd)) tcUnLink() return