FOUND( ) (Función)
Devuelve verdadero (.T.) si CONTINUE, FIND, INDEXSEEK( ), LOCATE o SEEK tienen éxito.
FOUND([nWorkArea | cTableAlias])
Valores devueltos
Logical
Parámetros
nWorkArea
Especifica el área de trabajo de la tabla para la cual FOUND( ) devuelve un valor indicando el éxito del último CONTINUE, FIND, INDEXSEEK( ), LOCATE o SEEK.FOUND( ) devolverá falso (.F.) si una tabla no está abierta en el área de trabajo especificada.
cTableAlias
Especifica el alias de la tabla para la cual FOUND( ) devuelve un valor indicando el éxito del último CONTINUE, FIND, INDEXSEEK( ), LOCATE o SEEK.Visual FoxPro genera un mensaje de error si especifica un alias de tabla que no existe.
Observaciones
FOUND( ) devuelve un valor lógico que indica si el comando CONTINUE, FIND, INDEXSEEK( ), LOCATE o SEEK ejecutado más recientemente se ejecutó con éxito o el puntero se mueve en la tabla relacionada. FOUND( ) devuelve verdadero (.T.) si la búsqueda tiene éxito, de lo contrario devuelve falso (.F.).
Si omite los argumentos opcionales, FOUND( ) devuelve un valor indicando el éxito del último CONTINUE, FIND, INDEXSEEK( ), LOCATE o SEEK para la tabla abierta en el área de trabajo seleccionada actualmente.
Sugerencia Esta función es útil para determinar si una tabla secundaria tiene un registro que coincide con el registro primario.
Ejemplos
En el ejemplo siguiente se cuentan todos los clientes de Alemania (Germany).
SET TALK OFF
CLOSE DATABASES
OPEN DATABASE (HOME(2) + 'Data\testdata')
USE customer && Opens Customer table
STORE 0 TO gnCount
LOCATE FOR UPPER(country) = 'GERMANY'
DO WHILE FOUND( )
gnCount = gnCount + 1
CONTINUE
ENDDO
WAIT WINDOW 'Total customers from Germany: ' ;
+ LTRIM(STR(gnCount)) NOWAIT