XBROWSE ordenar y Filtrar por columnas (solucionado)

[CARLOS ATUNCAR]

Saludos a todos una consulta en Xbrowse tengo esta configuración para ordenar y filtrar datos

Code: Select all | Expand

   @ 0, 0 XBROWSE oBrw OF oWnd                        ;
      DATASOURCE oQry                             ;
      COLUMNS  oCols                              ;
      LINES CELL AUTOSORT PIXEL FONT oFont STYLE FLAT

   WITH OBJECT oBrw
        // busquedas
       :aCols[1]:SetOrder()
       :lIncrFilter         := .T.
       :cFilterFld          := "pro_ruc"
      :lSeekWild           := .T.
  END
 

Como se podria hacer para pulsar en la cabecera y al cambiar el orden por esa columna tambien se podria filtrar por esa columna. Muchas gracias por su atención

[karinha]

Tal vez:

Code: Select all | Expand

   oCol:cSortOrder:="NOMBRE"
 

https://www.fivetechsoft.com/forums/vie ... hp?t=37981

Regardds, saludos.

[CARLOS ATUNCAR]

Mister Rao, es posible dar click en la cabecera de la columna del xBrowse y se active el orden y filtro por esa columna ?

[CARLOS ATUNCAR]

Bueno por el momento le he dado solucion de esta forma pero seria interesante poder activar el filtro como se activa el ordenamiento por columna

Code: Select all | Expand

WITH OBJECT oBrw

   For xCol:=1 TO Len( :aCols )
      :aCols[xCol]:bRClickHeader       := {|r,c,f,o| HeaderFilter(r,c,f,o)}
   Next

END

Static Function HeaderFilter(r,c,f,o)
local oCols :={;
          {"pro_ruc","RUC"},;
          {"pro_rs","RAZON SOCIAL"},;
          {"pro_dir","DIRECCION"},;
          {"pro_departa","DEPARTAMENTO"},;
          {"pro_provinc","PROVINCIA"},;
          {"pro_tele","TELEFONO"},;
          {"clase","TIPO"};
          }

local oCol, nCol,cColum,e,cHeart


if oBrw:MouseAtHeader( r, c )
   if ( nCol := oBrw:MouseColPos( c ) ) > 0
      oCol  := oBrw:ColAtPos( nCol )
      cColum:= oCol:cHeader
   endif
endif

FOR EACH e IN oCols
   If e[2]=cColum
      cHeader := e[1]
   Endif
NEXT

oBrw:Seek("")
oBrw:cFilterFld := cHeader
oBrw:Refresh()

Return NIL