Enrique,
La function XBrowse, segun mi version, esta limitada a:
function XBrowse( uData, cTitle, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit )
Sin embargo, puedes hacer algo como esto:
- Code: Select all Expand view
Function MyXBrowse( uData, cTitle, aTitCols, lAutoSort, bSetUp, aCols, bSelect, lExcel, lFastEdit )
DEFAULT uData := Alias(), ;
cTitle := If( ValType( uData ) == 'C', uData, ;
If( ValType( uData ) == 'O', uData:ClassName(), ;
'XBROWSE' ) ), ;
lAutoSort:= .f., ;
bSetUp := { || nil },;
lExcel := .t. ,;
aTitCols:={} //AQUI
Y despues de estas lineas:
if lAutoSort
@ nHt - 28, 10 say 'Search For :' size 30,10 pixel of oDlg
@ nHt - 28, 45 say oBrw:oSeek prompt oBrw:cSeek ;
size nWd-115,10 pixel update of oDlg ;
color CLR_RED,CLR_YELLOW
ATail( oDlg:aControls ):Cargo := 115
@ nHt - 28,nWd - 60 checkbox oBrw:lSeekWild prompt 'WildSeek' ;
size 50, 10 pixel of oDlg ;
on change ( oBrw:Seek(), oBrw:SetFocus() )
ATail( oDlg:aControls ):Cargo := -60
endif
- Code: Select all Expand view
if !empty(aTitCols)
AEval( oBrw:aCols, { |o,n| o:cHeader := aTitCols[n], o:nHeadStrAlign := AL_CENTER } )
endif
Entonces ya podrias hacer:
- Code: Select all Expand view
xBrowse ( aUsers, "Empresas a las que tiene acceso", {"Codigo", "Nombre"} )
Espero te sirva.
Saludos.
Francisco J. Alegría P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql