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
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.
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.
Tu pide por esa boca....
Enviado a tu privado
RF wrote:Tu pide por esa boca....
Enviado a tu privado
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...
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...
// 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