FiveTech Software tech support forums

Posted: **Wed Nov 06, 2024 9:07 pm**

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

   @ 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

Posted: **Thu Nov 07, 2024 3:10 pm**

Tal vez:

Code: Select all | Expand

   oCol:cSortOrder:="NOMBRE"

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

Regardds, saludos.

Posted: **Fri Nov 08, 2024 4:48 pm**

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

Posted: **Fri Nov 08, 2024 6:33 pm**

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

FiveTech Software tech support forums

XBROWSE ordenar y Filtrar por columnas (solucionado)

XBROWSE ordenar y Filtrar por columnas (solucionado)

Re: XBROWSE ordenar y Filtrar por columnas

Re: XBROWSE ordenar y Filtrar por columnas

Re: XBROWSE ordenar y Filtrar por columnas (solucionado)