error en xbrowse mysql, tdolphin

[kpidata]

Estimados amigos, estoy trabajando con tdolphin, xbrowse y mysql, el tema es que tengo el siguiente problema, genero un browse con xbrowse, el cual tiene dos columnas, "codigo", "nombre", que cuando hago click sobre el titulo, se ordena la columna de forma ascendente, o descendente, según la columna que presione, el problema es que cuando entro a ingresar un registro nuevo o hago una edición a un registro, ingreso bien, retorno al browse y pincho sobre la columna, se me cae el programa, indicando este mensaje:

Application
===========
Path and name: D:\PANEL2018\GESTION.Exe (32 bits)
Size: 1,123,840 bytes
Compiler version: xHarbour build 1.2.1 Intl. (SimpLex) (Rev. 9445)
FiveWin Version: FWHX 12.08
Windows version: 6.1, Build 7600

Time from start: 0 hours 0 mins 16 secs
Error occurred at: 19/06/2018, 13:56:18
Error description: Error DBCMD/2001 Workarea not in use: ORDBAGNAME

Stack Calls
===========
Called from: => ORDBAGNAME( 0 )
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:SETORDER( 11457 )
Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:HEADERLBUTTONUP( 10290 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:LBUTTONUP( 3358 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1714 )
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:\PANEL2~1\PRG\tablas.prg => MENU_INSUMOS( 111 )
Called from: D:\PANEL2~1\PRG\gestion.prg => (b)MAIN( 259 )
Called from: source\h_ttaskitem.prg => TTASKITEM:LBUTTONUP( 317 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1714 )
Called from: source\h_ttaskitem.prg => TTASKITEM:HANDLEEVENT( 258 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3177 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 990 )
Called from: D:\PANEL2~1\PRG\gestion.prg => MAIN( 301

este es el código..

--------------------------------------------------------------------------------------------------------------------------

FUNCTION MENU_INSUMOS(cEmpresa)
Local oDlg, oBrw, oFont2, oCol, oSay, oBtn2[ 9 ]
LOCAL oGet,nIndex,aIdx:={}
LOCAL cBusca := Space(60)
Local cSeek:=""
Local oCampo, cCampo :=space(50)
LOCAL acIndices := { "por Codigo", "por Descripcion" }
LOCAL cIndice := "por Descripcion"
nIndex:={"cod_insumo","nom_insumo"} //nIndex
aIdx:={"por Codigo","por Descripcion"} //nIndex

cTab_Insumo:=XServer:Query("SELECT cod_insumo, nom_insumo, val_insumo FROM tab_insumo ORDER BY cod_insumo")
Define Font oFont2 Name "Tahoma" Size 0,-11 Bold

DEFINE DIALOG oDlg ResName "BROW6BC" TITLE "MAESTRO DE INSUMOS DE PRODUCTOS/ARTICULOS" COLOR Rgb( 255, 0, 0 ), Rgb(185,230,255)

Redefine BtnGet oCampo Var cCampo Id 1002 Of oDlg Resource "BTO_ZOOM" Font oFont2 PICTURE "@!" COLOR RGB(128,0,0) ;
Action (FiltrarInsumo(oBrw,cCampo,cTab_Insumo))

Redefine BtnBmp oBtn2[1] Id 101 Resource "BTO_NUEVO" Of oDlg 2007; // BTO_NUEVO
Action (Add_Insumo(.T.,oBrw, cTab_Insumo),oBrw:Refresh(),oBrw:Gotop()) Tooltip "Permite Ingresar nuevo Registro.."

Redefine BtnBmp oBtn2[2] Id 102 Resource "BTO_CAMBIA" Of oDlg 2007;
Action (Add_Insumo(.F.,oBrw, cTab_Insumo),oBrw:Refresh(),oBrw:Gotop()) Tooltip "Permite Cambiar y/o Modificar Registro.."

Redefine BtnBmp oBtn2[3] Id 103 Resource "BTO_BORRA" Of oDlg 2007;
ACTION (Del_Insumo(oBrw,cTab_Insumo,cEmpresa),oBrw:Refresh(),oBrw:Gotop()) Tooltip "Permite Borrar y/o Eliminar Registro.."

Redefine BtnBmp oBtn2[4] Id 104 Resource "BTO_PRINT" Of oDlg 2007;
ACTION (Print_Insumo(cEmpresa,cTab_Insumo),oBrw:Refresh(),oBrw:Gotop()) Tooltip "Imprime informe General del Archivo.."

Redefine BtnBmp oBtn2[5] Id 105 Resource "BTO_EXCEL" Of oDlg 2007;
ACTION (Excel_Insumo(cEmpresa,cTab_Insumo),oBrw:Refresh(),oBrw:Gotop()) Tooltip "Excel informe General del Archivo.."

Redefine BtnBmp oBtn2[6] Id 106 Resource "BTO_SALIR" Of oDlg 2007;
ACTION oDlg:End() Tooltip "Salir del Proceso.."

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:l2007:=.T.
oBrw:lAutoSort:=.T.
oBrw:nStretchCol := STRETCHCOL_WIDEST
oBrw:bLDblClick := {|| Add_Insumo(.F.,oBrw, cTab_Insumo), cTab_Insumo:Refresh() }
oBrw:bKeyDown := { | nKey | TeclasInsumo(nKey, oBrw, cTab_Insumo) }
oBrw:oFont := oFont2
oBrw:SetDolphin(cTab_Insumo,.T.,.T.)

oBrw:aCols[1]:cHeader := "Código"
oBrw:aCols[1]:bStrData := { || cTab_Insumo:cod_insumo }
oBrw:aCols[1]:nHeadStrAlign := AL_CENTER
oBrw:aCols[1]:nDataStrAlign := AL_LEFT //LEFT
oBrw:aCols[1]:nWidth := 100
oBrw:aCols[1]:cSortOrder := "cod_insumo"
oBrw:aCols[1]:bLClickHeader := {|| oBrw:GoTop() }
oBrw:aCols[1]:cToolTip :="Haga doble Click para ordenar por código"

oBrw:aCols[2]:cHeader := "Detalle"
oBrw:aCols[2]:bStrData := { || cTab_Insumo:nom_insumo }
oBrw:aCols[2]:nHeadStrAlign := AL_CENTER
oBrw:aCols[2]:nDataStrAlign := AL_LEFT //LEFT
oBrw:aCols[2]:nWidth := 300
oBrw:aCols[2]:cSortOrder := "nom_insumo"
oBrw:aCols[2]:bLClickHeader := {|| oBrw:GoTop() }
oBrw:aCols[2]:cToolTip :="Haga doble Click para ordenar por Detalle"

Redefine Say oBrw:oSeek Var oBrw:cSeek Id 1001 Of oDlg Picture "@!" Font oFont2 COLOR Rgb( 255, 0, 0 ), Rgb(185,220,255)
oBrw:CreateFromResource( 1000 )

ACTIVATE DIALOG oDlg CENTERED
oFont2:End()
cTab_Insumo:End()
Return NIl