topic-13224

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

get.. action
Posted: Tue Oct 21, 2008 01:18 PM

Una consulta....

cuando utilizo get... bitmap.... action y le asigno una función que por ejemplo busca un cliente y me devuelve su numero de cliente... al ejecutarse la función y devolver el valor, este se pinta en el get y todo anda perfecto.... pero... ¿Qué pasa si quiero que el get pierda foco una vez que he seleccionado el cliente desde la función asignada al botón, de modo de que se ejecute el block de validación y pase al siguiente get sin tener que volver a presionar enter ?.
He probado .....ACTION ( mifuncion(), oGet1:oJump:=oGet2, oGet2:SetFocus() ) y nada... sin resultados.

Como puedo hacerlo?

Agradezco desde ya la ayuda que generosamente puedan brindarme.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

get.. action
Posted: Tue Oct 21, 2008 01:55 PM

Intentas asi:

xFocus( oGet2 )

...

Code: Select all Collapse

//-------------------------------------------------------------------------//
FUNCTION xFocus( oObj )

    xSetFocus( oObj )
    xSetFocus( oObj )

RETURN( .T. )
//-------------------------------------------------------------------------//
FUNCTION xSetFocus( oObj )

    LOCAL _oWnd := oObj:oWnd, _oTempo := ""

    DEFINE Timer _oTempo Interval 10 of _oWnd ;
           Action ( oObj:SetFocus(), _oTempo:End() )
    ACTIVATE Timer _oTempo

RETURN( .T. )
//-------------------------------------------------------------------------//

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

triumvirato

Posts: 199

Joined: Tue Apr 22, 2008 09:54 AM

Re: get.. action
Posted: Tue Oct 21, 2008 02:33 PM

jose_murugosa wrote:Una consulta....

cuando utilizo get... bitmap.... action y le asigno una función que por ejemplo busca un cliente y me devuelve su numero de cliente... al ejecutarse la función y devolver el valor, este se pinta en el get y todo anda perfecto.... pero... ¿Qué pasa si quiero que el get pierda foco una vez que he seleccionado el cliente desde la función asignada al botón, de modo de que se ejecute el block de validación y pase al siguiente get sin tener que volver a presionar enter ?.
He probado .....ACTION ( mifuncion(), oGet1:=oGet2, oGet2:SetFocus() ) y nada... sin resultados.

Como puedo hacerlo?

Agradezco desde ya la ayuda que generosamente puedan brindarme.

Yo en la búsqueda del botón, cuando alguien valida el dato de búsqueda, lo que hago es simular la tecla enter. Es decir, cuando han encontrado el dato correcto y validan, envío la tecla enter. En resumen, le ahorro al operario que la pulse él, con un __KEYBOARD( Chr( 13 ) ).

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

get.. action
Posted: Tue Oct 21, 2008 04:37 PM

José:

El el foro en Inglés vi esta solución.

many thanks, oNextControl:PostMsg( WM_SETFOCUS ) works fine.

Salaudos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

jose_murugosa

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

get.. action
Posted: Wed Oct 22, 2008 12:03 AM

Karinha, Triumvirato y Armando

Gracias por sus posts!!!

Finalmente, lo que me dió resultado fué la sugerencia de Armando.

Anduvo este código:

Code: Select all Collapse

@0,0 GET oGet1 VAR Var1 OF oDlg BITMAP "people.bmp" action ( Lista(), oGet2:PostMsg( WM_SETFOCUS ) VALID Var1<>Space(5) UPDATE

Gracias nuevamente a todos.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

FiveTech Support Forums

Continue the discussion