Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/6062824/tecnologia.css |
...
| Pagetitle |
|---|
...
|
...
...
...
|
Seleciona
...
a
...
ordem
...
de índice ativa
...
através
...
de
...
seu
...
apelido.
Sintaxe
| Bloco de código | ||
|---|---|---|
| ||
DBOrderNickname( < cApelido > )--> lRet
|
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
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
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
//Este exemplo, apresenta como utilizar a função DBOrderNickname() para setar nova ordem.
USE Cliente NEW
SET INDEX TO Nome, Idade
IF !DBOrderNickname("IndNome")
Messagebox("Registro não encontrado","Erro", 0)
ENDIF
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas