Hola foro,
Tengo definido el contenido de cada columna de un XBrowse de acuerdo a una funcion diferente para cada una de ellas. Esto es, lo que me muestra en el browse no es el contenido del campo del DBF sino el resultado de procesarlo y para cada columna es una funcion diferente.
Me gustaria indexar el browse de acuerdo al contenido de la columna, no del campo en el dbf. Eso eso posible?
Gracias
oBrw:aCols[ 1]:cSortOrder :="TAG001" // TAG Por el que deseas ordenar. REDEFINE BTNBMP FILE DirIconos+"BVerificar.BMP" ID 300 OF oDlg ;
action (oBrw:aCols[7]:cSortOrder:="Borrame",,oBrw:REFRESH(),oBrw:SETFOCUS(),oDlg:REFRESH(),SYSREFRESH())
#include "fivewin.ch"
#include "xbrowse.ch"
REQUEST DBFCDX
function Main()
field AGE
local oWnd, oBar, oBrw
SET DELETED ON
USE CUSTOMER NEW SHARED VIA 'DBFCDX'
INDEX ON MyFunc( AGE ) TAG MYTAG TO TEMP MEMORY
SET ORDER TO TAG FIRST
GO TOP
DEFINE WINDOW oWnd
@ 0,0 XBROWSE oBrw OF oWnd ;
COLUMNS 'FIRST', 'AGE', { || MyFunc(AGE) } ;
HEADERS nil, nil, 'MYFUNC' ;
SORT nil, nil, 'MYTAG' ;
ALIAS 'CUSTOMER' AUTOSORT CELL LINES
oBrw:CreateFromCode()
oWnd:oClient := oBrw
ACTIVATE WINDOW oWnd ON INIT oBrw:SetFocus()
return nil
function MyFunc( nAge )
local nRet := 0
// this logic has no meaning
// purpose is only demonstration
if nAge > 40
nRet := nAge
elseif nAge > 30
nRet := nAge * 2
else
nRet := nAge * 4
endif
return nRet