Browse con Combobox

Browse con Combobox

Postby thefull » Tue Oct 10, 2006 4:25 pm

Alguien tiene por aqui un ejemplo que una columna sea editable , pero con un combo... ?

A ser posible, con la TWBrowse de Hernan o en su defecto la TSBrowse de Manuel..

No encuentro los samples de Hernan, ¿ sabe alguien DONDE estan ?

Gracias
Rafa Carmona
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
User avatar
thefull
 
Posts: 731
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona

Postby R.F. » Tue Oct 10, 2006 5:41 pm

Rafa:

Toda la gracia esta en el evento que edita la celda, que recibe como parametro POR REFERENCIA la variable que deseas editar:

oBrw:lEditCol(oBrw:nColAct,@xVar,cPict,bValid,RGB(0,0,0),Rgb(255,255,255))

@xVar es el valor que tu quieres editar, puedes hacer por ejemplo

xVar := 0

o bien

xVar := SPACE(20)

y ahora la magia:

xVar := {"enero", "febrero","marzo","abril"....}

Cuando la variable es un ARRAY, AUTOMATICAMENTE, al momenot de editar se crea un combo.

Asi de facil, parece una tonteria, pero realmente es una estupidez.
Saludos
R.F.
R.F.
 
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Postby thefull » Fri Oct 13, 2006 4:52 pm

RF wrote:Rafa:

Toda la gracia esta en el evento que edita la celda, que recibe como parametro POR REFERENCIA la variable que deseas editar:

oBrw:lEditCol(oBrw:nColAct,@xVar,cPict,bValid,RGB(0,0,0),Rgb(255,255,255))

@xVar es el valor que tu quieres editar, puedes hacer por ejemplo

xVar := 0

o bien

xVar := SPACE(20)

y ahora la magia:

xVar := {"enero", "febrero","marzo","abril"....}

Cuando la variable es un ARRAY, AUTOMATICAMENTE, al momenot de editar se crea un combo.

Asi de facil, parece una tonteria, pero realmente es una estupidez.


Bueno, Rene ya de paso, me puedes pasar un ejemplo funcional ?
Perdona que en estos momentos no tengo mucha lucidez con el tema de los browses.

Tengo que crear un browse en runtime que las celdas sean todas con combobox, y ademas , modifiquen directamente en la dbf.

He intentando usar la TsBrowse 7.0 de Manuel , y la verdad , funciona flancamente mal, muy mal.



Saludos
Rafa Carmona
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
User avatar
thefull
 
Posts: 731
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona

Postby R.F. » Mon Oct 16, 2006 11:18 pm

Tu pide por esa boca....

Enviado a tu privado
Saludos
R.F.
R.F.
 
Posts: 840
Joined: Thu Oct 13, 2005 7:05 pm

Postby goosfancito » Mon Jun 04, 2007 10:40 am

RF wrote:Tu pide por esa boca....

Enviado a tu privado


Podrias enviarme ese ejemplo? estoy confundido con una app que estoy haciendo.

Gracias.
Mail: goosfancito@gmail.com
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Postby sysctrl2 » Mon Jun 04, 2007 3:49 pm

con txbrowse lo hacemos de esta forma:

oCol := oBrw3:aCols[ 1 ]
oCol:nEditType := 1
oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, _saveCol1( o:nCreationOrder, v ), ) }


static function _saveCol1( nCol, cValor )
local nRecno := (cAli)->( recno() )
dbselectArea(cAli)

if nCol = 1
rlock()
field->fecha := ctod(cValor)
dbunlock()
endif
oBrw3:refresh()
dbgoto( nRecno )
return


saludos...
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1027
Joined: Mon Feb 05, 2007 7:15 pm

Postby goosfancito » Mon Jun 04, 2007 5:19 pm

Gracias.-

sysctrl2 wrote:con txbrowse lo hacemos de esta forma:

oCol := oBrw3:aCols[ 1 ]
oCol:nEditType := 1
oCol:bOnPostEdit := {|o, v, n| iif( n != VK_ESCAPE, _saveCol1( o:nCreationOrder, v ), ) }


static function _saveCol1( nCol, cValor )
local nRecno := (cAli)->( recno() )
dbselectArea(cAli)

if nCol = 1
rlock()
field->fecha := ctod(cValor)
dbunlock()
endif
oBrw3:refresh()
dbgoto( nRecno )
return


saludos...
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Postby danielr cyberia® » Tue Jun 05, 2007 9:53 am

Saludos Cordiales Colegas!!!

Bueno para un Objeto oBrw yo lo he utilizado asi!

Code: Select all  Expand view  RUN
  // Lista
  oCol:=oBrw:AddCol("VAL_TIPO")
  oCol:cTitle    :="Tipo"
  oCol:nWidth    :=200
  oCol:aItems    :={"EFECTIVO","CHEQUE","TARJETA CR","TARJETA DB","CESTA TIK","EGRESO"}
  oCol:aItemsData:={"EFE","CHQ","TAR","TDB","CTK","EGR"}
  oCol:lPrimary  :=.T. // No puede Repetirse
  oCol:lRepeat   :=.F.
  oCol:nEditType :=EDIT_GET_BUTTON


Cuando utilizas la propiedad oCol:aItems y la llenas con un arreglo esta se convierte en un combobox

Creo que es mas estupido que cualquiera de las anteriores!!

Avisenos como les fue!!!
Best Regards- Saludos y Exitos

Daniel Rivas
User avatar
danielr cyberia®
 
Posts: 28
Joined: Sat Apr 28, 2007 4:06 am
Location: Venezuela


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 35 guests