Favor Ayuda Busqueda Incremental 2 Columnas en XBROWSE

[remtec]

Amigos

Muy buen dia.

Necesito de su ayuda.

Necesito realizar una busqueda Incremental por 2 Columnas en XBROWSE, pero el usuario puede elegir cual usar, segun necesite.

He tomado este codigo como ejemplo, aqui se indica la columna "CITY", como podria hacer para que la busqueda sea como indico arriba, para este caso "FIRST" o "CITY" ?.

Desde ya muchas gracias.

Saludos
Antonio

Code: Select all  Expand view  RUN

function incfilter
local oDlg, oBrw, oFont, oCol
     use maepacie
     set inde to maepacie

   DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14
   DEFINE DIALOG oDlg SIZE 600,500 PIXEL FONT oFont
   @ 30,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg DATASOURCE "MAEPACIE" ;
      COLUMNS "APE_PAC","NOM_PAC","RUT_PAC" ;
      CELL LINES AUTOSORT NOBORDER

   WITH OBJECT oBrw
      :lIncrFilter      := .t.
      :lSeekWild        := .t.
      :cFilterFld       := "APE_PAC"      <--------- NECESITO CAMBIAR ESTE VALOR CUANDO SE CLIQUE LA COLUMNA 3 POR " RUT_PAC"

     
      oCol := oBrw:aCols[ 1 ]
      oCol:cSortOrder := '2'
      ocol:cToolTip:="Clique para ordenar por código"

      oCol := oBrw:aCols[ 3 ]
      oCol:cSortOrder := '1'
      ocol:cToolTip:="Clique para ordenar por Rut"

      :CreateFromCode()
   END

 
   @ 10,10 SAY oBrw:oSeek VAR oBrw:cSeek SIZE 100,10 PIXEL OF oDlg COLOR CLR_HRED,CLR_YELLOW

   ACTIVATE DIALOG oDlg CENTERED
   RELEASE FONT oFont

return nil
 

[remtec]

Amigos

Alguna Sugerencia ?

Saludos
Antonio

[nageswaragunupudi]

Code: Select all  Expand view  RUN

oCol:bLClickHeader := { || oBrw:Seek(""), oBrw:cFilterFld := "newfld" }

[remtec]

Hola Regards

Muchas gracias por tu respuesta.

Lo probare.

Saludos.
Antonio