lGetBar

[Marcelo Roggeri]

Hola buenos días, necesito utilizar el filtro en xBrowse

::oBrw:lGetBar := .t.

y solo me muestra esto: no me muestra el GET
Agradezco cualquier ayuda.

Saludos
Marcelo

[nageswaragunupudi]

fwh\samples\xbgetbar.prg

[Marcelo Roggeri]

Hola Rao, si eso fue lo primero que hice.
Lo compilo y funciona bien, no se porque no me anda en el sistema que estoy haciendo
Gracias por contestar
Saludos

[nageswaragunupudi]

Setting oBrw:lGetBar to .t. or .f. only toggles display of the bar.

To make the Gets work, we should first prepare the Gets for the required columns.
This is simple

Code: Select all

oCol:uBarGetVal := <blankvalue_of the datatype>

You need to do this for those columns for which you want the Gets to work.
Once you assign this, XBrowse constructs Gets for these columns when initializing the browse.

Optionally you can also provide a picture.

Code: Select all

oCol:cBarGetPic := <picture>

Assuming that the field Marca is character type length 20
You can do

Code: Select all

oBrw:Marca:uBarGetVal := Space(20)
 

[Marcelo Roggeri]

Hola Rao, genial ahora si me muestra los gets ja pequeño detalle no lo habia visto.
Puedo en lugar de poner un boton para que haga el filtro, a traves de un evento de cambio filtrar, osea ese get tiene ese evento?
y a los gets se los puede tratar en _ como un combo?
Gracias de antemano
saludos
Marcelo

[nageswaragunupudi]

Code: Select all

oCol:aBarGetList:   If you assign an array combobox will be displayed
oCol:bBarGetValid:  You can take action when the user completes the entry
oCol:cBarGetBmp:    bmp file name to show button on the get
oCol:bBarGetAction: Button action
oCol:bBarGetChange: as it means
 

We kept improving bargets.
I am not sure how many of the above work in 18.03.
Please try the above datas

[Marcelo Roggeri]

Muchas gracias Rao, pruebo y comento.
Una pregunta se puede usar un combo en lugar de un get?
Saludos

[Marcelo Roggeri]

Perdon ahi lei que si, voy a probar
Gracias

[Marcelo Roggeri]

Hola buenas tardes, comento que logre hacer funcionar los filtros, lo unico que me falta es poder ejecutar una cierta tarea despues de cambiar una opcion del combo.

Code: Select all

::oBrw:aCols[5]:bBarGetValid := ::validoRubro() 
::oBrw:aCols[5]:bBarGetChange := ::validoRubro()

Cualquiera de las dos opciones que uso solo entra al inicio, luego al cambiar una opcion del combo no ingresa a ese metodo
Espero que me puedan ayudar con esto, y ya me quedaria como queria.
Saludos

[joseluisysturiz]

Saludos, podrias colocar una imagen con xbrowse y combo box.? crei no era posible, gracias...

[Marcelo Roggeri]

Code: Select all

                ::oBrw:lGetBar   := .t.
                ::oBrw:nGetBarHeight:=33

                ::oBrw:aCols[2]:uBarGetVal  := Space(15)

                ::oBrw:aCols[3]:uBarGetVal  := Space(20)
                ::oBrw:aCols[3]:aBarGetList := ::aMarca

                ::oBrw:aCols[4]:uBarGetVal  := Space(40)

                ::oBrw:aCols[5]:uBarGetVal  := Space(30)
                ::oBrw:aCols[5]:aBarGetList := ::aRubro

                ::oBrw:aCols[6]:uBarGetVal  := Space(25) 
                ::oBrw:aCols[6]:aBarGetList := ::aTipoArt

 

[Marcelo Roggeri]

Como ven en la imagen tengo varios combos, al seleccionar un rubro, necesito actualizar el combo de marcas y cambia su contenido de acuerdo al rubro que seleccione, la sentencia sql ya la hice y el array lo actualizo, pero al volver asignar ese array a la lista no me lo muestra, no lo actualiza con los nuevos valores.

::oBrw:aCols[3]:aBarGetList := ::aMarca

Agradezco si me puedes ayudar
Gracias
Marcelo

[Marc Venken]

I have not seen it, but is it possible to have a range in a Getbar ?

Ex. like this

> 500

or > 250 .and. < 1500

or

If a City has only 2 Chars

As it will show all with As into the city name. Maybe a way that we can see only if it has AS. like =="AS"

[Marcelo Roggeri]

En la imagen que muestro hay un importe el del precio, pero no le puse filtro pero se me paso la idea de que en algun momento pueda necesitar eso del rango de numeros.
Creo que no se puede por lo que vi y si se puede no se como es
Saludos

[joseluisysturiz]

Code: Select all

                ::oBrw:lGetBar   := .t.
                ::oBrw:nGetBarHeight:=33

                ::oBrw:aCols[2]:uBarGetVal  := Space(15)

                ::oBrw:aCols[3]:uBarGetVal  := Space(20)
                ::oBrw:aCols[3]:aBarGetList := ::aMarca

                ::oBrw:aCols[4]:uBarGetVal  := Space(40)

                ::oBrw:aCols[5]:uBarGetVal  := Space(30)
                ::oBrw:aCols[5]:aBarGetList := ::aRubro

                ::oBrw:aCols[6]:uBarGetVal  := Space(25) 
                ::oBrw:aCols[6]:aBarGetList := ::aTipoArt

 

Muy buena la imagen, es lo que ando buscando, gracias, saludos...