XBrowse y AUTOSORT

[jfafive]

Hola,

Tengo el sigguiente codigo y no consigo que funcione el autosort, para ordenar las columnas:

Code: Select all  Expand view  RUN

REDEFINE XBROWSE oBrw ID ID_BRWCON OF oDlg ;
       ALIAS "REGISTRO" AUTOSORT ;
       HEADERS "Nombe Descriptivo",;
               "Fichero",;
               OemToAnsi( "Descripci¢n" ) ;
       FIELDS REGISTRO->NOMBRE_DES,;
              REGISTRO->FICHERO,;
              REGISTRO->DESCRIPCIO ;
   
       COLSIZES 100,100,500


[jfafive]

La solución pasa por añadir la clausula sort, tal y como sigue:

REDEFINE XBROWSE oBrw ID ID_BRWCON OF oDlg ;
ALIAS "REGISTRO" AUTOSORT ;
HEADERS "Nombe Descriptivo",;
"Fichero",;
OemToAnsi( "Descripci¢n" ) ;
FIELDS REGISTRO->NOMBRE_DES,;
REGISTRO->FICHERO,;
REGISTRO->DESCRIPCIO ;
SORT "IND_NOM", "IND_FIC" ;
COLSIZES 100,100,500

Code: Select all  Expand view  RUN


Tambien hay que tener la base de datos indexada por los campos que vamos a incluir en el orden.

Un saludo.
:wink: