Browse con Combobox

[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

[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.

[thefull]

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

[R.F.]

Tu pide por esa boca....

Enviado a tu privado

[goosfancito]

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

[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...

[goosfancito]

Gracias.-

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...

[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!!!