EXTRAÑO ERROR: Error TDOLPHIN/9014(RESUELTO)

[joseluisysturiz]

Saludos, me ha aparecido este extraño errror usando TDOLPHIN, manejo un xBrowse y una tabla de nysql, si la tabla esta vacia, no tengo problema, pero al cargar datos y mover el cursor sobre el xBrowse, me sale inmediatamente este error, solo si muevo el mouse sobre el xBrowse, si lo muevo alrededor por el menu de la tribbon o la texplorer, no da problema:
crei era algo del ultimo build de tdolphin, pero compile mi prg con una version anterior y no da problema, igual compile otro sistema con el mismo build y no da problema, coloco como tengo creado el xBrowse, asi los manejo a todos en mis sistemas, cualquier ayuda, revision, o sugerenciam, sera agradecida:

Error TDOLPHIN/9014 Internal Error:Manejador de la consulta Invalido

Stack Calls
===========
Called from: .\source\prg\tdolpsrv.prg => DOLPHIN_DEFERROR( 2807 )
Called from: .\source\prg\tdolpsrv.prg => TDOLPHINSRV:CHECKERROR( 793 )
Called from: .\source\prg\tdolpqry.prg => (b)TDOLPHINQRY:TDOLPHINQRY( 133 )
Called from: => TDOLPHINQRY:CHECKERROR( 0 )
Called from: .\source\prg\tdolpqry.prg => TDOLPHINQRY:GETROW( 987 )
Called from: .\source\prg\tdolpqry.prg => TDOLPHINQRY:SKIP( 1614 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:SETDOLPHIN( 4475 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE( 415 )
Called from: => TXBROWSE:SKIP( 0 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 1427 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 1288 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1690 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11734 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3177 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 270 )
Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 426 )
Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 31 )
Called from: .\source\prg\tdolpsrv.prg => DOLPHIN_DEFERROR( 2807 )
Called from: .\source\prg\tdolpsrv.prg => TDOLPHINSRV:CHECKERROR( 793 )
Called from: .\source\prg\tdolpqry.prg => (b)TDOLPHINQRY:TDOLPHINQRY( 133 )
Called from: => TDOLPHINQRY:CHECKERROR( 0 )
Called from: .\source\prg\tdolpqry.prg => TDOLPHINQRY:GETROW( 987 )
Called from: .\source\prg\tdolpqry.prg => TDOLPHINQRY:SKIP( 1614 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:SETDOLPHIN( 4475 )
Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE:TXBROWSE( 415 )
Called from: => TXBROWSE:SKIP( 0 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:PAINT( 1427 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:DISPLAY( 1288 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1690 )
Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11734 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3177 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 990 )
Called from: BIOGENESIS.PRG => MAIN( 352 )


DEFINICION DEL xBROWSE

aCampos := {"inv_codiarti", "inv_nombrearti"}

oBrw := TXBrowse():New( oWndArt )

WITH OBJECT oBrw
:SetDolphin( oQryArt, .t., .t., aCampos )
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:nColDividerStyle := LINESTYLE_BLACK
:nStretchCol := STRETCHCOL_LAST
:lColDividerComplete := .t.
:nHeaderHeight := 30
:nLeft := 203 // DISTANCIA DESDE EL BORDER IZQ.
:l2007 := .t.
:lFooter := .f.
:lRecordSelector := .t.
:bClrStd := {|| IF( oQryArt:RecNo() % 2 == 0, {CLR_BLACK, CLR_WHITE}, {0, RGB(203,226,254)} ) }

END WITH

oBrw:aCols[1]:cHeader := "Código"
oBrw:aCols[1]:bStrData := {|| IIF( oQryArt:LastRec() > 0, oQryArt:inv_codiarti, SPACE(10) ) }
oBrw:aCols[1]:nHeadStrAlign := AL_CENTER
oBrw:aCols[1]:nDataStrAlign := AL_LEFT

oBrw:aCols[2]:cHeader := "Nombre del Artículo"
oBrw:aCols[2]:bStrData := {|| IIF( oQryArt:LastRec() > 0, oQryArt:inv_nombrearti, SPACE(10) ) }
oBrw:aCols[2]:nHeadStrAlign := AL_CENTER
oBrw:aCols[2]:nDataStrAlign := AL_LEFT

oBrw:CreateFromCode()

[Daniel Garcia-Gil]

Jose Luis

los errores de dolphin nos indican un error de logica, en este caso, "Error TDOLPHIN/9014 Internal Error:Manejador de la consulta Invalido"
estas perdiendo el handle de la consulta con el que creaste el xbrowse, al rehacer la consulta reasigna el objeto al xbrowse usando el metodo SetDolphin

el error ocurre sobre cuando pasas el mouse sobre el xbrowse, porque es cuando intenta un repintado del mismo, intentando hacer uso del objeto Query (que se ha perdido su handle)

[MarioG]

Consulta afín:
Tomando de los samples tengo el Alerta de TDolphin:

Code: Select all  Expand view

METHOD InfoError( oServer, nError, lInternal )  CLASS TDolphConn
local cText := "        Mensaje de Error"         + CRLF + ;
               "================================" + CRLF + ;
               +"'"+oServer:ErrorTxt()+"'"        + CRLF + ;
               "ERROR No: " + Str( nError )       + CRLF + ;
               "Internal: " + If( lInternal, "Yes", "No" )

   Alert( cText,, "Atención!",, IDI_HAND, TRUE )

   return( nError )
// Fin

En varias ocasiones que se desplegó el Alert, oServer:ErrorTxt(), retorna una cadena vacia, solo me muestra el nro de Error, y el mensaje "Internal: Yes".
Con lo que, como principiante, se me dificultad bastante interpretar el error.
Daniel: Hay una variedad de errores no descriptos?. Podríamos contar con un txt de errores?
Hya algún luar de donde tomarlo? (mysql?)

gracias

[Daniel Garcia-Gil]

Hola

Todos los errores de dolphin estan descritos (salvo 2 ERR_NOTHINGTOSAVE y ERR_DELETING que estan descontinuados)
los codigos de error estan en dolerr.ch
la descripcion las toma automaticamente dependiendo del idioma seleccionado en [x]Harbour, solo hay 2 traducciones (hasta ahora) español e ingles, estan en la carpeta source/lang/msg??.c

el metodo ErrorTxt() devuelve la descripcion del error de mysql, si el error es "internal", no obtendras la descripcion por esa via, es mostrada en el manejador de error de [x]Harbour, como lo aparece a Jose Luis

Error TDOLPHIN/9014 Internal Error:Manejador de la consulta Invalido

los errores internos estan para evitar errores de logica en nuestras aplicaciones

Existe algun error interno que no te muestre la descripcion?

[MarioG]

Daniel;
Gracias por la aclaración.
Ahora no recuerdo cual era el error interno, pero si vuelve a suceder te lo haré saber

Saludos

[joseluisysturiz]

Saludos Daniel, gracias por tu rapida y clara respuesta, en efectivo estaba matando al objeto despues del pintado, se habia coleado un oQryArt:END() al final de la funcion donde creo el xbrowse, esta alli sacandome la lengua y no lo veia, gracias de nuevo y estamos contacto, saludos a la familia, gracias,saludos...