FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour EXTRA脩O ERROR: Error TDOLPHIN/9014(RESUELTO)
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
EXTRA脩O ERROR: Error TDOLPHIN/9014(RESUELTO)
Posted: Wed Dec 26, 2012 07:07 AM

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()
Dios no est谩 muerto...



Gracias a mi Dios ante todo!
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: EXTRA脩O ERROR: Error TDOLPHIN/9014
Posted: Wed Dec 26, 2012 09:59 AM

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)

Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: EXTRA脩O ERROR: Error TDOLPHIN/9014
Posted: Wed Dec 26, 2012 01:05 PM
Consulta af铆n:
Tomando de los samples tengo el Alerta de TDolphin:
Code (fw): Select all Collapse
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
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: EXTRA脩O ERROR: Error TDOLPHIN/9014
Posted: Wed Dec 26, 2012 02:04 PM
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

joseluisysturiz wrote: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?
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: EXTRA脩O ERROR: Error TDOLPHIN/9014
Posted: Wed Dec 26, 2012 02:22 PM

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

Saludos

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: EXTRA脩O ERROR: Error TDOLPHIN/9014-RESUELTO
Posted: Wed Dec 26, 2012 02:23 PM
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... :-)
Dios no est谩 muerto...



Gracias a mi Dios ante todo!

Continue the discussion