Inicio > Visual Fox Pro > chavomix > URGENTE completar texbox con datos ingrasados

URGENTE completar texbox con datos ingrasados

Experto:
Usuario:
Fecha: 04/06/2008
Valoración: (5,00 sobre 5) Categoría: Visual Fox Pro
03/06/2008
padawan22, usuario preguntando en Visual Fox Pro
Usuario
hola expertos, hace horas que estoy tratando de solucionar un problema que me urge y no encuntro la forma. el tema es el siguiente:
tengo un formulario de cuentas corrientes, en el tengo 2 tablas, una de cuentas corrientes y la otra de clientes. Necesito que al ingresar el codigo de un cliente en un textbox, se me actualizen el resto de los texbox con los datos del cliente para asi corroborar si el codigo correspode al cliente que estoy atendiendo.
Espero haber sido claro y pronta respuesta.
Muchas gracias. Niclás
03/06/2008
padawan22, experto respondiendo en Visual Fox Pro
Experto
hola amigo... puedes realizar la consulta de la siguiente manera...
Vn_cliente sera nuemro de cliente que digites en el caudro de texto para consultar la cuenta...
entonce..
SELECT cuenta.campo1, cuenta.campo2, cliente.campo1, cliente.campo2... FROM cuanta, cliente WHERE cuenta.numero_cliente = Vn_cliente AND cuenta.cedula_cliente = cliente.cedula_cleinte INTO CURSOR TB_cuenta_cliente
puedes selecionar los campos que necesites de ambas tablas, pero debes nombrar de que tabla son... tal como te lo escribi... ahora si en la tabala existen campos que se llamen igual, por ejemplo, cedula.. y llamas ese campo de ambas cedulas.. entonces Fox le agregara una letra indicando el orden.. EJ. cedula_A y cedula_B...
... en el cursor TB_cuenta_cliente quedara toda la info que necesitas, solo deberas mostrarla...
 
espero esto te ayude
04/06/2008
padawan22, usuario preguntando en Visual Fox Pro
Usuario
hola experto. Lo de la consulta lo tengo claro, mi pregunta es como aplico esa consulta a un from. para que al cambiar el codigo del textbox donde ingreso el codigo se me actuelizan los datos de los demas textbox.
Saludos.-
04/06/2008
padawan22, experto respondiendo en Visual Fox Pro
Experto
... con lo anterior solo debes cargar los campos del cursor TB_cuenta_cliente en los textbox que le correspondan...  en el textbox donde digitas el codigo de cuenta a consultar.. programas..
en el INTERACTIVECAHGE... && investiga sobre este evento
&& aqui limpias o borras todos los textbox donde mosstraras la info del cliente excepto este donde escribes...
textbox_de_nombre = ''... asi con los demas
en el LOSTFOCUS.... && investiga sobre este evento
Vn_cliente = this.value..
no olvides que si en la tabla el numero de cuenta es numerico.. debes aplicar el VAL() para asignar el valro del texbox a la variable.. EJ: Vn_cliente = VAL(this.value)

SELECT cuenta.campo1, cuenta.campo2, cliente.campo1, cliente.campo2... FROM cuanta, cliente WHERE cuenta.numero_cliente = Vn_cliente AND cuenta.cedula_cliente = cliente.cedula_cleinte INTO CURSOR TB_cuenta_cliente
IF RECCOUNT() = 0 THEN && la consulta da como resultado vacia
  MESSAGEBOX('No existe el codigo de cuenta referenciado')
  this.value = ''
ELSE
  && asignas a cada texbox los datos encontrados donde correspondad..
  texbox_de_nombre = TB_cuenta_cliente.nombre
  texbox_de_tipocuenta = TB_cuenta_cliente.tipocuenta
  .. y asi sucesivamente....
ENDIF
 
espero que te sirva y que esto sea lo que quieres... suerte..
04/06/2008
padawan22, usuario preguntando en Visual Fox Pro
Usuario
mil gracias experto... acabas de solucionarme un gran problema.
 
Saludos. Nicolás.-
Enlaces patrocinados