Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
| Pagetitle | ||||
|---|---|---|---|---|
|
Função: IndexOrd
Verifica
...
a
...
posição
...
do
...
índice
...
corrente
...
; e
...
retorna
...
a
...
posição
...
ocupada
...
pelo
...
índice
...
corrente
...
na
...
lista
...
de
...
índices.
Sintaxe
| Bloco de código | ||
|---|---|---|
| ||
IndexOrd() |
...
|
Retorno
...
Nome | Tipo | Descrição |
|---|---|---|
nOrd | numérico |
...
Retorna a posição do índice corrente na lista de índices da tabela. |
...
caso não |
...
exista índice aberto na tabela corrente. |
Observações
- Por padrão, a função IndexOrd() opera na área de trabalho selecionada. Contudo, é possível fazê-la operar em uma área de trabalho não selecionada, através de expressão aliasada.
Exemplos
...
//Este exemplo verifica qual a posição do índice corrente na lista de índices abertos.
USE Cliente NEW
SET INDEX TO Nome, End, Cep
nOrd:=IndexOrd() // Retorna: 1 - É o primeiro índice da lista
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
...
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
user function test()
local cT1 := "T1"
TCLink()
if TcCanOpen(cT1)
TCDelFile(cT1)
endif
DBCreate(cT1, {{"T1_COD" , "C", 2, 0}, ;
{"T1_NAME", "C", 10, 0}}, "TOPCONN")
DBUseArea(.T., "TOPCONN", cT1, (cT1), .F., .F.)
DBCreateIndex("T1INDEX1", "T1_COD" , {|| T1_COD })
DBCreateIndex("T1INDEX2", "T1_COD+T1_NAME" , {|| T1_COD+T1_NAME })
(cT1)->( DBClearIndex() ) //Força o fechamento dos indices abertos
dbSetIndex("T1INDEX1") //acrescenta a ordem de indice para a área aberta
dbSetIndex("T1INDEX2") //acrescenta a ordem de indice para a área aberta
dbSetOrder(2)
msgInfo("Ordem de índice ativo: " + cValToChar( IndexOrd() ))
DBCloseArea()
tcUnLink()
return
|
Veja também
Visão Geral
Import HTML Content
Conteúdo das Ferramentas