DBGOBOTTON()

Sintaxis

DbGoBotton()

Propósito

Mueve el cursor del área de trabajo activa al último registro lógico del archivo de datos. Por lo tanto, el archivo de datos se ubica al final.

Argumentos

Ninguno.

Ejemplo

LOCAL nCount := 0     // Variable para verificar cuántos registros existen en el intervalo.

dbSelectArea(“SA1”)

dbSetOrder(1)               // Clave del índice: A1_FILIAL + A1_COD + A1_LOJA

dbGoBotton()

WHILE !EOF()     // Ejecuta mientras no sea el final del archivo.

          nCount++          // Incrementa la variable de control de registros existentes en el intervalo.

          dbSkip()

ENDDO

// Retorno esperado: 1, pues el dbGoBotton() ubica el puntero en el último registro.

MsgInfo(“Existen: “ + STRZERO(nCount, 6) + “ registros en el intervalo.”)