Page 1 of 1

Activar una FilterBar

Posted: Wed Jul 10, 2019 2:08 am
by ddupre
Estimados,
Tengo un form que contiene un TDBFBrowse con algunas columnas y en todas está la propiedad lFilterBar en verdadero.
Estoy buscando desde hace un buen rato cómo hacer para que aparezca "cliqueada" una de las FilterBar al mostrar el form pero no encuentro nada.

Por ejemplo necesitaría algo asi FilterBar:click() en el OnInitialize del form, con la posibilidad de indicar cual de todas las filterbar quiero que aparezca cliqueada.

¿se puede hacer? ¿hay alguna documentación para saber como "acceder a las filterbar"?

desde ya muchas gracias por cualquier orientación que me puedan dar.

Saludos
Daniel

Re: Activar una FilterBar

Posted: Tue Jul 16, 2019 1:28 pm
by bingen
No es exactamente lo que pides pero al menos hay una manera de poder introducir un texto en un filtro

:oBrowse:aCols[nAt]:oHeader:cFilter:="Maria"

Re: Activar una FilterBar

Posted: Fri Jul 19, 2019 4:52 pm
by ddupre
Bingen,
Lo resolví con algo como lo que me indicas.

Agregué un edit al form, el cual tiene el foco cuando se abre dicho form y luego utilicé este método y quedó funcionando perfecto.


METHOD oDetalleOnChar( oSender, nKey, nFlags ) CLASS TFormBuscarArticulo

do case
case 47 <= nKey .and. nKey <= 57 // Números y /
::oDBFBrowseMenu:aCols[2]:cFilter := AllTrim(oSender:Value) + Upper(Chr(nKey))
case 97 <= nKey .and. nKey <= 122 // Letras
::oDBFBrowseMenu:aCols[2]:cFilter := AllTrim(oSender:Value) + Upper(Chr(nKey))
case nKey == 8 // Back Espace
::oDBFBrowseMenu:aCols[2]:cFilter := SubStr(AllTrim(oSender:Value),1,Len(AllTrim(oSender:Value))-1)
endcase

RETURN Nil

Muchas gracias y saludos