bLClickHeader

[Pedro]

Hola a todos

Una duda, ¿cómo puedo conseguir el valor de una celda de una columna, sin presionar enter y haciendo doble click en el header?
Por poner un ejemplo, en una entrada de ventas, tecleo en el nombre del artículo un nombre, y doy doble click sobre el header de esa columna,
¿cómo puedo saber lo que se ha tecleado ?

[FranciscoA]

Pedro, prueba con estos a ver si te sirve.

FOR n := 1 to len(:aCols)
:aCols[n]:bLClickHeader := {|| MsgInfo(oLbx:aCols[oLbx:nColSel]:Value) }

* if upper(:aCols[n]:cHeader) == "NOMBRE1"
* :aCols[n]:bLClickHeader := {|| MsgInfo(oLbx:aCols[oLbx:nColSel]:Value) }
* endif

NEXT


// oLbx:aCols[4]:bLClickHeader := {|| MsgInfo(oLbx:aCols[4]:Value) }

Saludos

[Pedro]

Hola Francisco

Pues no, no me trae el valor, en el Msginfo aparece vacío de contenido

[Francisco Horta]

Pedro,

prueba asi:
aoCols[2] := oBrw:AddCol()
aoCols[2]:nWidth := 312
aoCols[2]:cHeader := "DESCRIPCION"
aoCols[2]:bStrData := { || ::oQryMesa:FieldGet("nombre") }
aoCols[2]:nDataStrAlign := AL_LEFT
aoCols[2]:nHeadStrAlign := AL_CENTER
aoCols[2]:bRClickHeader := {|| msginfo(oBrw:aCols[2]:Value)}

o asi:

oBrw:aCols[2]:bRClickHeader := {|| msginfo(oBrw:aCols[2]:Value)}

salu2
paco

[Francisco Horta]

perdon pedro,

ese ejemplo es con boton derecho, probe y me funcionón,,, es lo mismo que puso mi tocayo
saludos
paco

[Pedro]

Hola Francisco (2)

Pues no me funciona.
La creación de la columna la hago así :

Code: Select all  Expand view

     oCol = oBrw:AddCol()
   oCol:bStrData      := { ||(cAlias1)->CONCEPTO}   
   oCol:nEditType     := EDIT_GET
   oCol:cHEADER       := "CONCEPTO"
   oCol:bOnPostEdit = { | oCol, xVal, nKey | If( RecCount() == 0, DbAppend(),),;
     If( nKey == VK_RETURN, (cAlias1)->CONCEPTO := xVal ,)}
   oCol:bLClickHeader :=  {|| msginfo(oBrw:aCols[2]:Value) }

Y el valor de lo tecleado no me viene, viene todo vacío. Creo, que el problema puede ser porque no se ha producido el bOnPostEdit, ya que al dar clik en header no llega a evaluar el bOnPostEdit y por eso llega el valor vacío, además de que desaparece de la celda del browse.
No obstante, al hacer una prueba y dar enter, el valor se queda, pero si intentas cambiarlo y das click en el header, veras que tienes el mismo valor de antes y que desaparece lo que hayas tecleado quedando el valor original. Por eso viene siempre vacío al inicio, porque la celda está vacía

Y si lo mandas a una función oCol:bLClickHeader :=  {|| MyFuncion(oBrw,oCol) } y alli intentas obtener el valor con oBrw:aCols[2]:Value el resultado es vacío (espacios en blanco) o nil.

[Francisco Horta]

Pedro,

has intentado probar eliminando el tipo EDIT_GET, dejarlo como una columna mas visible a ver si funciona?
ya que la diferencia que veo con lo que puse es el: oCol:nEditType y on postedit

saludos
paco

[Pedro]

Hola Francisco
Vamos por partes, la columna es editable, por lo cual si le quito el EDIT_TYPE ya no se puede editar y por lo tanto lo que yo deseo, que es precisamente recoger lo que se ha tecleado, llevarlo a una función y buscarlo en la tabla correspondiente, en este caso la de artículos.
Al ser columna editable, creo que tampoco puedes quitar el bOnPostEdit. De todas formas he intentado lo que tu indicas y claro la columna da un valor vacío, imagino que el valor concreto sería si editaras algo que ya tuviera valor.

En fin a ver si algún gurú del xbrowse nos ilumina en este tema.