FiveTech Software tech support forums

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.

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

Tu pide por esa boca....

Enviado a tu privado

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

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

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

Saludos Cordiales Colegas!!!

Bueno para un Objeto oBrw yo lo he utilizado asi!

Code: Select all  Expand view

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