• A Confluence está sendo executada atualmente com todos os plugins que não são do sistema desabilitados. Pode haver perda de algumas funcionalidades
TOTVSTEC

Árvore de páginas

Informa se está no fim do Arquivo/Tabela.

Sintaxe

Eof()

Retorno

Nome

Tipo

Descrição

lRet

lógico

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

Observações

  • O uso da DBGoBottom não ativa a flag de EOF. Para isto, após sua chamada, é necessário o uso da DBSkip.
  • Após abertura de uma tabela, caso nenhum registro tenha sido inserido, a flag de EOF sempre será True (.T.).

Exemplos

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

user function test()
  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() )
  
  DBGoBottom()
  DBSkip()
  
  if Eof() == .T.
    conout("Fim da Tabela/Arquivo")
  endif
 
  DBCloseArea()
  
  TCUnlink()
return

Veja também


  • Sem rótulos