Page tree
Skip to end of metadata
Go to start of metadata

Seleciona a ordem de índice ativa através de seu apelido.

Sintaxe

DBOrderNickname( < cApelido > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cApelido

caractere

Indica o nome do apelido da ordem que será setada.

X

 

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna verdadeiro (.T.), se a ordem for setada com sucesso; Caso contrário, retorna falso (.F.).

Observações

  • Esta ordem é a responsável pela sequência lógica dos registros da tabela corrente.
  • Caso cApelido não exista, será apresentada a mensagem de erro: "DBOrderNickName - Nick Name not found: XXX Alias: YYY". Onde XXX será o apelido, YYY será o alias e será retornado falso (.F.).
  • Se a work area não estiver em uso, será apresentada a mensagem de erro: "Work area not in use" e será retornado falso (.F.).

Exemplos

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

Veja também


  • No labels