Ayuda botón busqueda... VFp
¿Cómo estas? Realizo una búsqueda ingresando datos en un textbox, y presionando un botón llamado buscar... Este es el código que utilizo.
* - Selección de la tabla.
tel = thisform.Text3.value
SELECT teléfono FROM cliente WHERE tel=thisform.Text3.value
SELECT cliente
* - comprueba el ingreso de los datos
IF EMPTY(thisform.Text3.Value) then
MESSAGEBOX("No ingreso el Teléfono!")
thisform.Text3.SetFocus
RETURN
ENDIF
* - búsqueda del cliente
Locate For tel=ALLTRIM(thisform.Text3.Value)
IF Found() Then
if cliente.teléfono==tel then
thisform.Text4.value=cliente.apellido
thisform.Text5.Value=cliente.nombre
thisform.Text6.Value=cliente.dirección
thisform.Text7.Value=cliente.teléfono
thisform.Combo1.SetFocus
thisform.text8.Value=cliente.id_cliente
ELSE
MESSAGEBOX("El Cliente no existe!!!")
thisform.Text4.SetFocus
thisform.Text4.value=""
thisform.Text5.value=""
thisform.Text6.value=""
thisform.Text7.value=thisform.Text3.Value
thisform.text8.Value=""
thisform.Refresh
return
Endif
ENDIF
Bien al presionar el botón deseo que los datos se muestren en otros textbox, pero no se muestran, en cambio se habré un form que me muestra el teléfono, podrías ayudarme a solucionar el problema.
1 Respuesta
Básicamente tendrías que hacer lo siguiente en el evento clic de tu botón de búsqueda
SELECT * FROM cliente WHERE tel = thisform.Text3.value INTO CURSOR cdatoscliente
SELECT cdatoscliente
IF reccount() > 0 Then
thisform.Text4.value=apellido
thisform.Text5.Value=nombre
thisform.Text6.Value=dirección
thisform.Text7.Value=teléfono
thisform.Combo1.SetFocus
thisform.text8.Value=id_cliente
ELSE
MESSAGEBOX("El Cliente no existe!!!")
Thisform. Text4. SetFocus
thisform.Text4.value=""
thisform.Text5.value=""
thisform.Text6.value=""
thisform.Text7.value=thisform.Text3.Value
thisform.text8.Value=""
ENDIF
Espero te sea de ayuda y me comentas cualquier duda
