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

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

Postby FranciscoA » Sun Jan 17, 2016 5:50 pm

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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2158
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

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

Postby FranciscoA » Sun Jan 17, 2016 6:43 pm

Despues de "dar mas vueltas que un trompo".

PostMessage( oBrwMenu:hWnd, WM_KEYDOWN, VK_LEFT )

Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2158
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

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

Postby ACC69 » Tue Jan 19, 2016 3:03 pm

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
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm

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

Postby FranciscoA » Tue Jan 19, 2016 10:59 pm

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.
Francisco J. Alegría P.
Chinandega, Nicaragua.

Fwxh-MySql-TMySql
User avatar
FranciscoA
 
Posts: 2158
Joined: Fri Jul 18, 2008 1:24 am
Location: Chinandega, Nicaragua, C.A.

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

Postby ACC69 » Thu Mar 03, 2016 9:36 pm

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
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm

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

Postby nageswaragunupudi » Fri Mar 04, 2016 8:31 am

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 ) }
Regards

G. N. Rao.
Hyderabad, India
User avatar
nageswaragunupudi
 
Posts: 10620
Joined: Sun Nov 19, 2006 5:22 am
Location: India

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

Postby acuellar » Fri Mar 04, 2016 10:39 am

Francisco

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

Saludos,

Adhemar
Saludos,

Adhemar C.
User avatar
acuellar
 
Posts: 1643
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

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

Postby ACC69 » Fri Mar 04, 2016 5:12 pm

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
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm

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

Postby acuellar » Fri Mar 04, 2016 5:27 pm

Adrian

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

Saludos,

Adhemar
Saludos,

Adhemar C.
User avatar
acuellar
 
Posts: 1643
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

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

Postby ACC69 » Fri Mar 04, 2016 5:37 pm

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
ACC69
 
Posts: 632
Joined: Tue Dec 12, 2006 7:34 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Julio Cepeda and 78 guests