Histórico da Página
| Composition Setup |
|---|
import.css=/download/attachments/327912/newLayout.css |
...
| Pagetitle | ||||
|---|---|---|---|---|
|
Função: Recno
Retorna
...
o
...
número
...
do
...
registro
...
atualmente
...
posicionado
...
na
...
área
...
de
...
trabalho
...
ativa.
Sintaxe
| Bloco de código | ||
|---|---|---|
| ||
Recno() --> nRecno
|
Retorno
...
Nome | Tipo | Descrição |
|---|---|---|
nRec | numérico | Retorna o identificador numérico do registro atualmente posicionado na área de trabalho ativa. |
Observações
- O valor do recno sempre iniciará em 1.
- Caso não haja uma área aberta, a função retornará o valor 0.
- Caso o recno esteja em EOF, para a RDDD TOPCONN, seu retorno será o valor do último recno somado 5000.
Exemplos
| Bloco de código | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
user function test()
local aStru := {}
local cTable := "TBRECNO"
local cRdd := 'TOPCONN'
tcLink()
aadd(aStru , {"CPOC","C",10,0} )
aadd(aStru , {"CPON","N",12,2} )
if TCCanOpen( cTable )
tcDelFile( cTable )
endif
dbCreate(cTable , aStru, cRdd)
USE (cTable) ALIAS TRB SHARED NEW VIA(cRDD)
for nI := 1 to 25
TRB->( dbAppend(.F.) )
TRB->CPOC := "REGISTRO - " + cValToChar(nI)
TRB->CPON := nI
next
TRB->( dbGoTop() ) // posiciona no início da tabela
conout ('dbGoTop() - Recno: ' + cValtoChar( recno() )) // deve retornar o valor 1
TRB->( dbGoBottom() ) // posiciona no fim da tabela
conout ('dbGoBottom() - Recno: ' + cValtoChar( recno() )) // deve retornar o valor 25
TRB->( dbGoTo(30) ) // vai falhar em posicionar no registro 30, pois só existem 25 registros
conout ('dbGoTo() - Recno: ' + cValtoChar( recno() )) // deve retornar o valor 5025, indicando que está em EOF
USE
tcUnLink()
return
DbSelectArea(“SA1”)DbGoto(100) // Posiciona no registro de recno 100.MsgInfo(“Registro posicionado:”+cValToChar(RECNO())) |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas