Como Usar Continue en VFP

Como Usar Continue en VFP, se utiliza después de que LOCATE logra encontrar un registro, para continuar la operación de LOCATE. CONTINUE mueve el puntero del registro al siguiente registro para el cual la expresión lógica especificada en el LOCATE anterior se evalúa a Verdadero (.T.).

CONTINUE hace que se vuelva a evaluar el último comando LOCATE. El programa comprueba si el nuevo valor contenido en cIniciales ya existe en el campo id_persona de otro registro. Si es así, FOUND( ) seguirá devolviendo el valor .T. y se volverá a ejecutar el código contenido en el bucle DO WHILE. Si el nuevo valor contenido en cIniciales es efectivamente único, FOUND( ) devolverá el valor .F. y la ejecución del programa continuará con la línea de código que figura a continuación de ENDDO.

CONTINUE puede repetirse hasta que se encuentre el final del archivo, o hasta que se alcance el final del ámbito especificado con LOCATE.

Si CONTINUE logra encontrar un registro, RECNO( ) devuelve el número de registro del mismo, FOUND( ) devuelve un valor de Verdadero (.T.), y EOF( ) devuelve un valor de Falso (.F.).

Si CONTINUE no logra encontrar un registro, RECNO( ) devuelve el número de registros de la tabla más uno, FOUND( ) devuelve Falso (.F.), y EOF( ) devuelve Verdadero (.T.).

SET TALK OFF SET CONFIRM OFF SET SAFETY off SET DELETED on Create Table vispre Free (i1 c(20),i2 c(20), i3 c(20),i4 c(20),i5 c(20), i6 c(20), i7 c(20) ) Set Devi To File "temp.txt" x=1 @ x,3 Say "Pais Continente" x=x+1 @ x,1 say REPLICATE("-",30) Select paises Go Top Do While !Eof() @ x,3 Say pais+" "+continente Skip Enddo Set Devi To Screen Select "vispre" Append From "temp.txt" Sdf Thisform.grid1.RecordSource="vispre" Go Top Thisform.Refresh Thisform.grid1.column1.text1.SetFocus

Read More

Como Utilizar Locate con Visual Foxpro

LOCATE (Comando)
Sintaxis

LOCATE [FOR lExpression1]   [Scope]   [WHILE lExpression2]   [NOOPTIMIZE]

Este comando te permite realizar búsquedas secuencial-mente en una tabla el cumpla con las especificaciones el cual que coincida con la expresión lógica especificada.

Este comando solamente buscará registros que cumplan ciertas condiciones de búsquedas incluidos en el intervalo.

Una ventaja sobre esta comando es que no es necesario de que la tabla se encuentre indexada.

Una vez que locate encuentra el primer  registro que coincide, podemos utilizar el comando continue, el cual nos permitirá seguir buscando registros que coincidan en el resto de la tabla.

Cuando se ejecuta CONTINUE, se reanuda el proceso de búsqueda, comenzando con el registro inmediatamente después del registro coincidente. Puede emitir CONTINUAR repetidamente hasta que se alcance el final del alcance o el final de la tabla.

LOCATE y CONTINUE son específicos del área de trabajo actual. Si se selecciona otra área
de trabajo, el proceso de búsqueda original puede continuar cuando se vuelve a seleccionar
el área de trabajo original.

En el evento Gotfocus del Combobox utilizaremos la instrucción KEYBOARD '{F4}' clear, esto nos permitirá mostrará todos los clientes de manera automática las cuales aparecen en nuestra tabla CxC.

En el evento lostfocus del combobox mediante el comando locate el programa buscará todas aquellas coincidencias, en este caso el locate buscará el cliente por el código y mostrará todas las facturas pendientes que el cliente pueda tener.

Observen en la gráfica como el cliente 00001 aparece duplicado en la tabla, una vez seleccionado en sistema desplegará en la lista dos(2) resultados.

Read More

Comando locate en visual foxpro

Locate

Un locate te permite buscar en una tabla de manera secuencial y se llega posicionar en el registro que cumpla con las condiciones indicadas.

Este comando puede realizar la búsqueda en una tabla sin la necesidad de que esté indexada.

Una vez que LOCATE encuentra un registro el cual coincida, puedes utilizar CONTINUE para buscar en el resto de la tabla todos aquellos registros que coinciden.

Cuando se ejecuta CONTINUE, se reanuda el proceso de búsqueda, pero esta vez comenzando con el  registro que sigue inmediatamente al registro coincidente. Puede emitir CONTINUE repetidamente hasta que se alcance el final del alcance o el final de la tabla.

LOCATE [FOR lExpression1]   [Scope]   WHILE lExpression2]   [NOOPTIMIZE]

Ejemplo:

clear

CLOSE DATABASES

OPEN DATABASE (HOME(2) + 'Data\testdata')

USE customer  && Open Customer table

SET TALK OFF

STORE 0 TO gnCount

LOCATE FOR ALLTRIM(UPPER(customer.country)) = 'VENEZUELA' 

DO WHILE FOUND( )

   gnCount = gnCount + 1

   ? company

   CONTINUE

ENDDO

?

? 'Total companies Germany: '+ LTRIM(STR(gnCount))

Read More