Histórico da Página

import.css=/download/attachments/327912/newLayout.css

...

...

...

...

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

...

...

...

...

...

Observações

• Esta ordem é a responsável pela sequência lógica dos registros da tabela corrente.

//Este exemplo, apresenta como utilizar a função DBOrderNickname() para setar nova ordem.USE Cliente NEWSET INDEX TO Nome, IdadeIF !DBOrderNickname("IndNome")Messagebox("Registro não encontrado","Erro", 0)ENDIF 

...

• 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

• TCLink
• TCCanOpen
• TCDelFile
• DBCreate
• DBUseArea
• DBCreateIndex
• DBSetNickname
• IndexOrd
• cValToChar
• IndexKey
• TCUnlink