Favor Ayuda Busqueda Incremental 2 Columnas en XBROWSE
Posted: Fri Jul 26, 2019 3:21 pm
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
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
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