trillado tema...
He definido un xBrowse así:
- Code: Select all Expand view
- REDEFINE XBROWSE ::oLstP ID BRW_XBRW OF oDlgP ;
COLUMNS "ID", "TUTOR1" ;
HEADERS "ID", "Tutor" ;
Alias cSQLAlias AUTOSORT
La DBF es administrada con ADS y lo particular es que creo una lista a traves de un Select, definido así:
- Code: Select all Expand view
- if !ADSExecuteSQLDirect( "SELECT ID,TUTOR1 FROM BDF2WS01 WHERE FEAFIP1 "+ ;
"UNION SELECT ID,TUTOR2 FROM BDF2WS01 WHERE FEAFIP2 ORDER BY TUTOR1" )
MessageBox(, "Falla procesar código SQL en Tabla de Personas", "Reintentar...", MB_ICONSTOP )
SQLTutor->( DbCloseArea() )
return( nil )
end
cSQLAlias:= Alias()
Lo que ocurre es que cuando ingreso texto para realizar la búsqueda, esta no se realiza (tampoco muestra el icono indicando el orden).
Salvo, que haga clic sobre la cabecera "Tutor"
He forzado con :cOrder:= "A" para que muestre el ícono; pero la búsqueda no se ejecuta, salvo (insisto) que la active con clic sobre la cabecera.
Se puede indicar que esté activa sin hacer clic en la cabecera?
gracias
P.D.: La razon de crear el xbrowse mediante el Select esta relacionado con esto:
http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31271#p181228