XBROWSE ordenar y Filtrar por columnas (solucionado)

Posts: 230

Joined: Thu Sep 17, 2015 11:40 PM

XBROWSE ordenar y Filtrar por columnas (solucionado)
Posted: Wed Nov 06, 2024 09: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

Carlos Atuncar - CaSoftSystem
Chincha - Perú
+51983478218
carlosalbatun@gmail.com

karinha

Posts: 8523

Joined: Tue Dec 20, 2005 07:36 PM

Re: XBROWSE ordenar y Filtrar por columnas
Posted: Thu Nov 07, 2024 03:10 PM

Tal vez:

Code (fw): Select all Collapse

   oCol:cSortOrder:="NOMBRE"

https://www.fivetechsoft.com/forums/viewtopic.php?t=37981

Regardds, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

CARLOS ATUNCAR

Posts: 230

Joined: Thu Sep 17, 2015 11:40 PM

Re: XBROWSE ordenar y Filtrar por columnas
Posted: Fri Nov 08, 2024 04: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 ?

Carlos Atuncar - CaSoftSystem
Chincha - Perú
+51983478218
carlosalbatun@gmail.com

CARLOS ATUNCAR

Posts: 230

Joined: Thu Sep 17, 2015 11:40 PM

Re: XBROWSE ordenar y Filtrar por columnas (solucionado)
Posted: Fri Nov 08, 2024 06: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 (fw): Select all Collapse

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

Carlos Atuncar - CaSoftSystem
Chincha - Perú
+51983478218
carlosalbatun@gmail.com

FiveTech Support Forums

Continue the discussion