FoxPro/Visual FoxPro - Buscar datos

   
Vista:

Buscar datos

Publicado por Juan Pablo (94 intervenciones) el 31/10/2009 15:48:09
Saludos a todos ;

Estoy haciendo un sistema de facturacion y necesito saber lo siguiente..cuando estoy posicionado en text quiero digitar el codigo y cuando le de a Enter quiero que los demas datos se visualicen en los demas text.

Digito Codigo -- y quiero que salga el campo1 - campo2, campo3 etc.

saludos anticipado

Juan
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Buscar datos

Publicado por HELDER (COUNDY) (710 intervenciones) el 31/10/2009 16:43:07
En el evento keyPress pon esto;

if nKeyCode = 13
select tutabla
go top
locate for alltr(campo) == alltr(thisform.text.value)
if found()
thisform.text1.value = alltr(campo1)
thisform.text2.value = alltr(campo2)
thisform.text3.value = alltr(campo3)
else
messagebox("El dato no se encuentra", 0+48+0, "No encontrado")
endif
endif

Espero poder ayudarte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Buscar datos

Publicado por es_binario (757 intervenciones) el 31/10/2009 23:33:00
De acuerdo con Helder, pero yo prefiero poner el codigo en el metodo Valid

En el metodo valid del codigo los mismo que puso helder

Thisform.Text2.Value = alltrim(mitabla.dato1)
Thisform.Text3.Value = alltrim(mitabla.dato2)

etc.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar