Páginas filhas
  • Recno

Retorna o número do registro atualmente posicionado na área de trabalho ativa.

Sintaxe

Recno()

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

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

  • Sem rótulos