In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Activar una FilterBar

Foro público de Xailer en español
ddupre
Posts: 284
Joined: Mon Nov 12, 2007 3:53 pm

Activar una FilterBar

Postby ddupre » Wed Jul 10, 2019 2:08 am

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
User avatar
bingen
Posts: 397
Joined: Mon Jul 07, 2014 8:17 pm
Location: Bilbao
Contact:

Re: Activar una FilterBar

Postby bingen » Tue Jul 16, 2019 1:28 pm

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"
BiSoft Desarrollo de software profesional
http://www.bisoft.es
ddupre
Posts: 284
Joined: Mon Nov 12, 2007 3:53 pm

Re: Activar una FilterBar

Postby ddupre » Fri Jul 19, 2019 4:52 pm

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

Return to “Spanish”