FoxPro/Visual FoxPro - Validar campo

 
Vista:

Validar campo

Publicado por Ramon (81 intervenciones) el 04/06/2009 15:36:45
Hola buenos dias... tengan todos ustedes amigos... quisiera me ayudaran a resolver lo siguiente:

tengo un form1 en el que tengo 2 campos llamados mCLAVE y mDESCRIP.. en mCLAVE tengo lo siguiente...

***** evento VALID del campo MCLAVE...
IF EMPTY(This.Value)
ELSE
SELECT CATALOGO
SET ORDER TO CVECABMS
GO top
IF SEEK(ALLTRIM(mclaveart))
mClave=ALLTRIM(CveCabms)
mDescrip=ALLTRIM(Des_cabms)
ELSE

*** evento keypress de mClave
Do Case
CASE nkeycode=-3
*** llama a un form BUSCAR llevando las variables...
DO form buscar WITH mclave, mdescrip
ENDCASE

**EN FORM BUSCAR selecciona el articulo y oprime boton aceptar..

Regresa al form1 con la variable de mClave y mDescrip pero tengo que OPRIMIR ENTER para que funcione el VALID ... llene el campo de mDescrip y me enfoque en importe....

Lo que quiero es que Cerrando Buscar y Regresando al Form1 haga el valid y me llene el campo mdescrip y que enfoque en importe.. SIN NECESIDAD DE OPRIMIR ENTER...

Gracias... amigos...
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:Validar campo

Publicado por enrique (1041 intervenciones) el 04/06/2009 16:06:30
en el form1 cuando vuelve del form Buscar pone

keyboard "{ENTER}"
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:Validar campo

Publicado por RAMON (81 intervenciones) el 04/06/2009 16:23:30
en que parte tengo que poner keyboard "{ENTER}" o en que evento de mCLAVE...

en keypress.. valid.. lostfocus.. o lo debo poner en el form buscar... ??

Gracias... amigo... que amable...
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:Validar campo

Publicado por enrique (1041 intervenciones) el 04/06/2009 17:41:43
***** evento VALID del campo MCLAVE...
IF EMPTY(This.Value)
ELSE
SELECT CATALOGO
SET ORDER TO CVECABMS
GO top
IF SEEK(ALLTRIM(mclaveart))
mClave=ALLTRIM(CveCabms)
mDescrip=ALLTRIM(Des_cabms)
ELSE

*** evento keypress de mClave
Do Case
CASE nkeycode=-3
*** llama a un form BUSCAR llevando las variables...
DO form buscar WITH mclave, mdescrip
keyboard "{ENTER}"
ENDCASE
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