Una ayudita con LostFocus
El detalle esta en que, estoy haciendo un formulario en el cual tengo 2 tablas, 1 tabla es de clientes y la otra de productos, ahora bien en Clientes yo tengo un campo clave llamado CodCliente. Lo que quiero hacer es que cuando meta el CodCliente en el txtbox y pierda el focus o el usuario cambie a otro control, quiero verificar si ese codcliente esta registrado en la Bdatos, y si lo esta que rellene automáticamente todos los campos (nombre, dirección, etc), y si no lo encuentra entonces que permita registrarlo cargando otro formulario que ya tengo. Se que seria algo como: Seleccionar la Tabla Clientes, buscar en el registro el codCliente y comparar si lo encuentra rellena datos, sino carga el formulario de registro, pero no soy muy diestro aun con VFP... Me podría ayudar!
1 Respuesta
Respuesta de Alonso Jarrín Solís
1
Eso no debes hacerlo en el evento LostFocus, sino en el evento Valid del control, puedes escribir un código como el siguiente:
If Seek(This.Value, "Clientes", "CodCliente") Then
Thisform.Text2.Value = Clientes.Nombre
Thisform.Text3.Value = Clientes.Direccion
Else
Do Form "Ruta\NombreFormulario"
This.SetFocus()
Endif
Algo como lo anterior sería la solución a tu problema.
Nota: Lo anterior funciona siempre y cuando el campo CodCliente sea un campo clave.
If Seek(This.Value, "Clientes", "CodCliente") Then
Thisform.Text2.Value = Clientes.Nombre
Thisform.Text3.Value = Clientes.Direccion
Else
Do Form "Ruta\NombreFormulario"
This.SetFocus()
Endif
Algo como lo anterior sería la solución a tu problema.
Nota: Lo anterior funciona siempre y cuando el campo CodCliente sea un campo clave.
