FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour bLClickHeader
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
bLClickHeader
Posted: Thu Dec 22, 2011 11:03 AM

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 ?

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: bLClickHeader
Posted: Fri Dec 23, 2011 02:19 AM

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

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Re: bLClickHeader
Posted: Fri Dec 23, 2011 11:28 AM

Hola Francisco

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

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: bLClickHeader
Posted: Fri Dec 23, 2011 03:58 PM

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

____________________

Paco
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: bLClickHeader
Posted: Fri Dec 23, 2011 04:04 PM

perdon pedro,

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

____________________

Paco
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Re: bLClickHeader
Posted: Fri Dec 23, 2011 04:19 PM
Hola Francisco (2) :-)

Pues no me funciona.
La creación de la columna la hago así :
Code (fw): Select all Collapse
     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.
Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO
Posts: 845
Joined: Sun Oct 09, 2005 05:36 PM
Re: bLClickHeader
Posted: Tue Dec 27, 2011 03:52 PM

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

____________________

Paco
Posts: 464
Joined: Tue Mar 21, 2006 07:30 PM
Re: bLClickHeader
Posted: Wed Dec 28, 2011 08:15 AM

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.

Un saludo
Pedro
gahetesoft@gmail.com
FWH12.06 BCC582, Xverce CW, Pelles C 6.00.4,PSPAD 4.54
y ahora con ADO

Continue the discussion