FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Browse con Combobox
Posts: 731
Joined: Fri Oct 07, 2005 07:42 AM

Browse con Combobox

Posted: Tue Oct 10, 2006 04: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__)
Posts: 840
Joined: Thu Oct 13, 2005 07:05 PM

Browse con Combobox

Posted: Tue Oct 10, 2006 05: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.
Posts: 731
Joined: Fri Oct 07, 2005 07:42 AM

Browse con Combobox

Posted: Fri Oct 13, 2006 04: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__)
Posts: 840
Joined: Thu Oct 13, 2005 07:05 PM

Browse con Combobox

Posted: Mon Oct 16, 2006 11:18 PM

Tu pide por esa boca....

Enviado a tu privado

Saludos

R.F.
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM

Browse con Combobox

Posted: 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/
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM

Browse con Combobox

Posted: Mon Jun 04, 2007 03: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 "
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM

Browse con Combobox

Posted: Mon Jun 04, 2007 05: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/
Posts: 28
Joined: Sat Apr 28, 2007 04:06 AM

Browse con Combobox

Posted: Tue Jun 05, 2007 09:53 AM
Saludos Cordiales Colegas!!!

Bueno para un Objeto oBrw yo lo he utilizado asi!

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

Continue the discussion