error al trabajar con Xbrowse

[kpidata]

Estimados, tengo una búsqueda incremental que trabaja con xbrowse, cuando hago la búsqueda en la columna ordenada por defecto, la lee bien,
al presionar la teclas todo ok, pero si cambio a otra columna, para hacer misma búsqueda pero con otro campo, me tira error, pero si vuelvo a la columna inicial, trabaja bien de nuevo,
es decir, solo me opera con un solo index ordenado, que seria que que viene por defecto en la apertura y necesito que haga esto para cualquier columna que yo trabaje.. el erro es el siguiente

Called from: => DBSEEK( 0 )
Called from: D:\KPIDATA\PRG\rem001.prg => PSEEK( 75 )
Called from: D:\KPIDATA\PRG\tablas.prg => (b)MAIN_AREA( 7420 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SEEK( 6119 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYCHAR( 2366 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1724 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11742 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3177 )




este es una funcion de lo que sucede.

Function Main_Familia(cEmpresa,cUser,cCuentas)
Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ]
Close DataBase

Select 01
Do While .T.
If NET_USE("Tab_Fam",.F.,0)
Set Index to Tab_Fam1,Tab_Fam2
Set order to 2
exit
Else
ESTADO_DBF()
RETURN Nil
Endif
Enddo

Define Font oFont2 Name "Tahoma" Size 0,-11 Bold

DEFINE DIALOG oDlg ResName "BROW6BC" TITLE "Tabla/Archivos Familia o Linea de Productos.. " TRANSPARENT COLOR Rgb( 255, 0, 0 ), Rgb(185,220,255)

oBrw:=TxBrowse():New(oDlg)
oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW // Con cursor de todo el renglón
oBrw:nColDividerStyle := LINESTYLE_RAISED
oBrw:nRowDividerStyle := LINESTYLE_RAISED
oBrw:bClrSelFocus := {|| { nRGB( 0, 0, 0), nRGB(128,255,128) } } // para barra de linea selecc cuando el control tiene el foco
oBrw:lColDividerComplete := (.t.) // (.T.) Mantiene siempre llena la pantalla
oBrw:nHeaderHeight := 35 // Altura de los encabezados
oBrw:nRowHeight := 25 // Altura del renglón
oBrw:nHeaderLines := 3 // Número de líneas de encabezados
oBrw:nDataLines := 2 // Número de líneas de detalle
oBrw:nFooterHeight := 20 // Altura del footer
oBrw:nFooterLines := 2 // Número de líneas en el footer
oBrw:lFooter := (.T.) // Sí queremos línea de footer
oBrw:lHScroll := (.T.) // Quitamos el scroll horizontal
oBrw:bClrHeader := {|| { nRGB(000,000,000), nRGB(128,255,128) } }
oBrw:bClrStd := { || If( oBrw:KeyNo() % 2 == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, RGB( 189, 211, 253 ) } ) }
oBrw:bClrFooter := {|| { nRGB(000,000,000), nRGB(150,200,200) } }
oBrw:bClrSel := {|| { nRGB(000,000,000), nRGB(128,255,128) } } // para barra de linea selecc cuando el control no tiene el foco
oBrw:nStretchCol := STRETCHCOL_WIDEST
oBrw:oFont := oFont2

oCol := oBrw:AddCol()
oCol:bStrData := { || Tab_Fam->Cod_Fam }
oCol:cHeader := "Codigo"
oCol:nWidth := 100
oCol:cSortOrder :="Tab_Fam1"

oCol := oBrw:AddCol()
oCol:bStrData := { || Tab_Fam->Nom_Fam }
oCol:cHeader := "Nombre"
oCol:nWidth := 300
oCol:cSortOrder :="Tab_Fam2"

oBrw:bSeek := {|c| PSeek( c ) }
oBrw:bLDblClick := {|| Add_Fam(.F.) }
oBrw:bKeyDown :={ | nKey | TeclasFam(nKey, oBrw, cEmpresa) }
oBrw:CreateFromResource(1000)

Redefine Say oBrw:oSeek Var oBrw:cSeek Id 1001 Of oDlg Picture "@!" Font oFont2 COLOR RGB(128,0,0)

ACTIVATE DIALOG oDlg CENTERED
oFont2:End()
Close DataBase
Return NIl

[hmpaquito]

Indique la descripcion del error

[kpidata]

Estimado, tengo un archivo ordenado x codigo y nombre, deseo hacer una busqueda incremental con cualquiera de esos campos, yo ingreso al browse con el index ordenado por nombre y la busqueda todo bien, pero cuando pincho para ordenar por codigo (uso xbrowse), me sale lo que sale en el log.. de error.. esto lo hacia en TSbrowse y corria de lujo, pero no se porque Xbrowse no lo respeta... ahora me sale quit y default, no me reconoce el ordenamiento.


Application
===========
Path and name: D:\KPIDATA\KPIDATA.Exe (32 bits)
Size: 1,788,928 bytes
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 9445)
FiveWin Version: FWHX 12.08
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 10 secs
Error occurred at: 08/05/2017, 12:46:17
Error description: Error DBFCDX/1201 Workarea not indexed

Stack Calls
===========
Called from: => DBSEEK( 0 )
Called from: D:\KPIDATA\PRG\rem001.prg => PSEEK( 75 )
Called from: D:\KPIDATA\PRG\tablas.prg => (b)MAIN_FAMILIA( 82 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:SEEK( 6119 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYCHAR( 2366 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1724 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11742 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3177 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 270 )
Called from: D:\KPIDATA\PRG\tablas.prg => MAIN_FAMILIA( 89 )
Called from: D:\KPIDATA\PRG\gestion.prg => (b)BUILDMENU( 179 )
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 461 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1037 )
Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND( 247 )
Called from: => TMDIFRAME:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3177 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 990 )
Called from: D:\KPIDATA\PRG\gestion.prg => MAIN( 161 )

[kpidata]

no me habia percatado, al usar y compilar con FWH8.12, y BCC55, funciona todo ok, pero si uso FWH13.2 y BCC 582, me reclama este error.