Page 1 of 1

Evitar puntero XBrowse se mueva al dar enter. (RESUELTO)

PostPosted: Sun Jan 17, 2016 5:50 pm
by FranciscoA
Saludos.
Parece que sigue el problema con el forum. Ya me habia "logeado" correctamente, y al tratar de grabar mi consulta me pidio de nuevo el login y lo que habia escrito se perdio.

En resumen, mi consulta es:
Como evitar que el puntero del XBrowse salte a la siguiente columna al presionar enter en un browse cuyas columnas no son editables??

Como dato: El ancho de la primer columna es menor que ancho del campo de la dbf
Gracias.

Re: Evitar puntero XBrowse se mueva al dar enter. (RESUELTO)

PostPosted: Sun Jan 17, 2016 6:43 pm
by FranciscoA
Despues de "dar mas vueltas que un trompo".

PostMessage( oBrwMenu:hWnd, WM_KEYDOWN, VK_LEFT )

Saludos.

Re: Evitar puntero XBrowse se mueva al dar enter. (RESUELTO)

PostPosted: Tue Jan 19, 2016 3:03 pm
by ACC69
FranciscoA wrote:Despues de "dar mas vueltas que un trompo".

PostMessage( oBrwMenu:hWnd, WM_KEYDOWN, VK_LEFT )

Saludos.



Hola buenos dias Ing. Francisco, eso igual andaba buscando y lei tu post, pero al parecer a mi no me funciona , le doy enter y me mueve el puntero a la siguiente columna, no me estabiliza en la misma columna al insertar nuevo registro o enter, como lo soluciono!

Saludos y buen dia.!

Atte: Adrian C. C.
acc69@hotmail.com

Re: Evitar puntero XBrowse se mueva al dar enter. (RESUELTO)

PostPosted: Tue Jan 19, 2016 10:59 pm
by FranciscoA
Hola Adrian.
El problema que tenía era en un xBrowse de donde tomo los datos de productos (estoy desarrollando un comandero, para bar-restoran).
Este browse tiene x columnas, por defecto no editables, al cual al darle enter para tomar los datos, el puntero del browse pasaba a la siguiente columna,
lo cual resultaba incomodo. Claro que lo había resuelto llamanda a GoleftMost() después de retornar los datos, pero como dije: incomodo y anti-estetico.

Aquí está como lo solucioné:

:bKeyDown := {|nKey| if( nKey == VK_RETURN, ( PostMessage( oBrwMenu:hWnd, WM_KEYDOWN, VK_LEFT ), MiCalculad(x,x) ),) }

La Function MiCalculad(x,x) es un dialogo calculadora para digitar cantidad del producto.

Cualquier información estoy a tus ordenes.

Vos mencionas un caso con edicion de celda. ¿Podrias poner codigo o ampliar tu comentario?

Saludos.

Re: Evitar puntero XBrowse se mueva al dar enter. (RESUELTO)

PostPosted: Thu Mar 03, 2016 9:36 pm
by ACC69
FranciscoA wrote:Hola Adrian.
El problema que tenía era en un xBrowse de donde tomo los datos de productos (estoy desarrollando un comandero, para bar-restoran).
Este browse tiene x columnas, por defecto no editables, al cual al darle enter para tomar los datos, el puntero del browse pasaba a la siguiente columna,
lo cual resultaba incomodo. Claro que lo había resuelto llamanda a GoleftMost() después de retornar los datos, pero como dije: incomodo y anti-estetico.

Aquí está como lo solucioné:

:bKeyDown := {|nKey| if( nKey == VK_RETURN, ( PostMessage( oBrwMenu:hWnd, WM_KEYDOWN, VK_LEFT ), MiCalculad(x,x) ),) }

La Function MiCalculad(x,x) es un dialogo calculadora para digitar cantidad del producto.

Cualquier información estoy a tus ordenes.

Vos mencionas un caso con edicion de celda. ¿Podrias poner codigo o ampliar tu comentario?

Saludos.


Gracias Ing. Francisco, apenas leo tu respuesta,estuve fuera del foro un buen tiempo, disculpa por responderle hasta ahora.

Y gracias por el ejemplo, pero en mi caso creo que es diferente al de usted, ya que yo ejecuto ciertas condiciones,como eliminar y altas,no se si es lo mismo como funciona con el ejemplo que proporciona,dentro incluyo la funcion Val_nKetDet().

oBrw:bKeyDown := {| nKey| Val_nKDet(nKey) }


Code: Select all  Expand view
STATIC FUNCTION Val_nKDet(nKey)

 DO CASE
    CASE nKey == VK_INSERT .AND. lNew
          KeyToggle(VK_INSERT)
          Mod_Cap(.T.)

    CASE nKey == VK_DELETE .AND. lNew
          Sup_Cap()

    CASE nKey == VK_RETURN .AND. lNew
          Mod_Cap(.F.)
 ENDCASE
RETURN (NIL)
 


El objetivo es al dar enter dentro del browse es que no se salte a la siguiente columna, que se quede fijo, es como la pantallla de la captura de de polizas el que le pase , si se acuerda ing. Francisco,supongo que si, bueno hare pruebas y le comento .

Gracias Ing. Francisco.

Saludos.

Atte: Adrian C. C.
acc69@hotmail.com

Re: Evitar puntero XBrowse se mueva al dar enter. (RESUELTO)

PostPosted: Fri Mar 04, 2016 8:31 am
by nageswaragunupudi
Como evitar que el puntero del XBrowse salte a la siguiente columna al presionar enter en un browse cuyas columnas no son editables??


oBrw:bKeyChar := { |nKey,f,b,o| If( nKey == VK_RETURN .and. !o:lEditable, 0, nil ) }

Re: Evitar puntero XBrowse se mueva al dar enter. (RESUELTO)

PostPosted: Fri Mar 04, 2016 10:39 am
by acuellar
Francisco

El problema para login en el Forum son las Cookies del navegador tenés que borrar el historial.

Saludos,

Adhemar

Re: Evitar puntero XBrowse se mueva al dar enter. (RESUELTO)

PostPosted: Fri Mar 04, 2016 5:12 pm
by ACC69
acuellar wrote:Francisco

El problema para login en el Forum son las Cookies del navegador tenés que borrar el historial.

Saludos,

Adhemar


Gracias a los que respondieron y por cierto en google chrome, no me deja loguear en el foro, tengo que usar mozilla firefox y ahi si me deja loguear, no se porque pasa ese detalle, que antes no sucedia .

Saludos

Atte: Adrian C. C.
acc69@hotmail.com

Re: Evitar puntero XBrowse se mueva al dar enter. (RESUELTO)

PostPosted: Fri Mar 04, 2016 5:27 pm
by acuellar
Adrian

En Chrome tenes que borrar datos de navegación pulsando Ctrl-H

Saludos,

Adhemar

Re: Evitar puntero XBrowse se mueva al dar enter. (RESUELTO)

PostPosted: Fri Mar 04, 2016 5:37 pm
by ACC69
acuellar wrote:Adrian

En Chrome tenes que borrar datos de navegación pulsando Ctrl-H

Saludos,

Adhemar



Gracias Ing. Acuellar por el dato.

Saludos y buen dia.

Atte: Adrian