Page tree
Skip to end of metadata
Go to start of metadata

Informa se está no inicio do Arquivo/Tabela.

Sintaxe

Bof()

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna .T. (Verdadeiro) se estiver no início do arquivo/tabela; Caso contrário, .F. (Falso)

Exemplos

STATIC FUNCTION CreateTable()
  TCDelFile('T1')
  
  DBCreate('T1', {{"FIELD_NAME", "C", 10, 0}, ;
                  {"FIELD_TYPE"   , "C", 10, 0}}, 'TOPCONN')
RETURN

FUNCTION Example()
  Local cT1 := "T1"
  
  TCLink()
  
  CreateTable()

  DBUseArea(.F., 'TOPCONN', cT1, (cT1), .F., .F.)
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "name"
  (cT1)->FIELD_TYPE := "string"
  (cT1)->( DBCommit() )
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "name2"
  (cT1)->FIELD_TYPE := "string"
  (cT1)->( DBCommit() )
  
  (cT1)->( DBAppend( .F. ) )
  (cT1)->FIELD_NAME := "name3"
  (cT1)->FIELD_TYPE := "string"
  (cT1)->( DBCommit() )
  
  DBGoTop()
  DBSkip(-1)
  
  if Bof() == .T.
    conout("Inicio da Tabela/Arquivo")
  endif
 
  DBCloseArea()
  
  TCUnlink()
RETURN

Veja também


  • No labels