Incluir Página | ||||
---|---|---|---|---|
|
Sintaxe
DbGoTop()
Propósito
Move o cursor da área de trabalho ativa para o primeiro registro lógico do arquivo de dados. Portanto, o arquivo de dados é posicionado no início.
Argumentos
Nenhum.
Exemplo
LOCAL nCount := 0 // Variável para verificar quantos registros existem no intervalo
dbSelectArea(“SA1”)
dbSetOrder(1) // Chave do índice: A1_FILIAL + A1_COD + A1_LOJA
dbGoTop()
WHILE !BOF() // Executa enquanto não for início do arquivo
nCount++ // Incrementa a variável de controle de registros existentes no intervalo
dbSkip(-1)
ENDDO
// Retorno esperado: 1, pois o dbGoTop() posiciona o ponteiro no primeiro registro.
MsgInfo(“Existem: “ + STRZERO(nCount, 6) + “ registros no intervalo.”)