Page 1 of 1
Browse con Combobox
Posted: Tue Oct 10, 2006 4:25 pm
by thefull
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
Posted: Tue Oct 10, 2006 5:41 pm
by R.F.
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.
Posted: Fri Oct 13, 2006 4:52 pm
by thefull
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
Posted: Mon Oct 16, 2006 11:18 pm
by R.F.
Tu pide por esa boca....
Enviado a tu privado
Posted: Mon Jun 04, 2007 10:40 am
by goosfancito
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
Posted: Mon Jun 04, 2007 3:49 pm
by sysctrl2
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...
Posted: Mon Jun 04, 2007 5:19 pm
by goosfancito
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...
Posted: Tue Jun 05, 2007 9:53 am
by danielr cyberia®
Saludos Cordiales Colegas!!!
Bueno para un Objeto oBrw yo lo he utilizado asi!
Code: Select all
// 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!!!