Buenos dias Gente
Compilando con xHarbour, capturo un error y describo, entre otros, el suceso informando con oError:procLine
Al compilar con Harbour tal data no existe; cual es el equivalente?; ya que si uso ProcLine(), este sin pasarle parámetro numérico, me devuelve la linea de donde se llamo al Alert() del error y no precisamente donde ocurrió el error.
gracias
Alert( "[Error nro: "+Str(oErr:GenCode,4,,TRUE)+"] - "+oErr:Description+CRLF+" - Línea: "+Str(oErr:procLine,4,,TRUE);
"EL Proceso de borrado se canceló" +CRLF+ ;
"Verifique archivo:"+h0:cFileLog,,"Atención",,IDI_HAND )
FUNCTION ADOSHOWERROR( oCn, cTable, lSilent ) //CHANGES BY BYTE-ONE
LOCAL nErr, oErr, cErr
DEFAULT oCn TO oConnection
DEFAULT lSilent TO .F.
DEFAULT cTable TO ""
IF ( nErr := oCn:Errors:Count ) > 0
oErr := oCn:Errors( nErr - 1 )
IF ! lSilent
WITH OBJECT oErr
cErr := IF( !EMPTY( cTable ),'Table: ' + cTable +CRLF + CRLF ,"")
cErr += oErr:Description
cErr += CRLF + 'Source : ' + oErr:Source
cErr += CRLF + 'NativeError : ' + cValToChar( oErr:NativeError )
cErr += CRLF + 'Error Source : ' + oErr:Source
cErr += CRLF + 'Sql State : ' + oErr:SQLState
cErr += CRLF + REPLICATE( '-', 50 )
cErr += CRLF + PROCNAME( 1 ) + "( " + cValToChar( PROCLINE( 1 ) ) + " )"
cErr += CRLF + PROCNAME( 2 ) + "( " + cValToChar( PROCLINE( 2 ) ) + " )"
cErr += CRLF + PROCNAME( 3 ) + "( " + cValToChar( PROCLINE( 3 ) ) + " )"
cErr += CRLF + PROCNAME( 4 ) + "( " + cValToChar( PROCLINE( 4 ) ) + " )"
cErr += CRLF + PROCNAME( 5 ) + "( " + cValToChar( PROCLINE( 5 ) ) + " )"
cErr += CRLF + PROCNAME( 6 ) + "( " + cValToChar( PROCLINE( 6 ) ) + " )"
cErr += CRLF + PROCNAME( 7 ) + "( " + cValToChar( PROCLINE( 7 ) ) + " )"
MSGALERT( cErr, IF( oCn:Provider = NIL, "ADO ERROR",oCn:Provider ) )
END
ENDIF
ELSE
MSGALERT( "ADO ERROR UNKNOWN"+;
CRLF + PROCNAME( 1 ) + "( " + cValToChar( PROCLINE( 1 ) ) + " )" + ;
CRLF + PROCNAME( 2 ) + "( " + cValToChar( PROCLINE( 2 ) ) + " )" + ;
CRLF + PROCNAME( 3 ) + "( " + cValToChar( PROCLINE( 3 ) ) + " )" + ;
CRLF + PROCNAME( 4 ) + "( " + cValToChar( PROCLINE( 4 ) ) + " )" + ;
CRLF + PROCNAME( 5 ) + "( " + cValToChar( PROCLINE( 5 ) ) + " )" + ;
CRLF + PROCNAME( 6 ) + "( " + cValToChar( PROCLINE( 6 ) ) + " )" + ;
CRLF + PROCNAME( 7 ) + "( " + cValToChar( PROCLINE( 7 ) ) )
ENDIF
RETURN oErr//----------------------------------------------------------------------------//
FUNCTION CheckErr ()
LOCAL nLoc, oError
TRY
nLoc := "error"/2
CATCH oError
msgInfo( oError:gencode )
msgInfo( oError:SubSystem )
msgInfo( oError:SubCode )
msgInfo( oError:Operation )
msgInfo( oError:Description )
msgInfo( valToPrg( oError:Args ) )
quit
END
RETURN (nLoc)#include "FiveWin.ch"
Procedure Main()
local oError, ;
x, ;
nTotal
TRY
nTotal:= x * 100
CATCH oError
#ifdef __XHARBOUR__
Alert( "Error nro: " + cValToChar( oError:GenCode) + CRLF + ;
"SubC: " + cValToChar( oError:SubCode ) + CRLF + "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ;
"SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + "Mensaje: " + oError:Description + CRLF + ;
"Linea: " +cValToChar( oError:procLine ),,"Atención" )
#else // __HARBOUR__
Alert( "Error nro: " + cValToChar( oError:GenCode) + CRLF + ;
"SubC: " + cValToChar( oError:SubCode ) + CRLF + "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ;
"SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + "Mensaje: " + oError:Description + CRLF + ;
"Linea: " +cValToChar( ProcLine() ),,"Atención" )
#endif
END
// Fin#include "FiveWin.ch"
#include "error.ch"
Procedure Main()
local oError, x, nTotal
TRY
nTotal := x * 100
CATCH oError
#ifdef __XHARBOUR__
Alert( "Error nro: " + cValToChar( oError:GenCode) + CRLF + ;
"SubC: " + cValToChar( oError:SubCode ) + CRLF + "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ;
"SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + "Mensaje: " + oError:Description + CRLF + ;
"Linea: " +cValToChar( oError:procLine ),,"Atención" )
#else // __HARBOUR__
Alert( "Error nro: " + cValToChar( oError:GenCode) + CRLF + ;
"SubC: " + cValToChar( oError:SubCode ) + CRLF + "OSCode: " + cValToChar( oError:OsCode ) + CRLF + ;
"SubSystem: " + cValToChar( oError:SubSystem ) + CRLF + "Mensaje: " + oError:Description + CRLF + ;
"Linea: " +cValToChar( ProcLine() ),,"Atención" )
#endif
END
Return Nil
// FinKarinha BOM 2017!!
muchas gracias por la ayuda!
Disculpa que insista:
Compilando con xharbour, oError:procLine devuelve el mismo numero de linea que compilando con harbour, ProcLine()?
(compilando com xHarbour, oError:procLine retorna o mesmo número da linha que a compilando com Harbour, ProcLine()?)
#include "FiveWin.ch"
#include "error.ch"
FUNCTION Main()
local oError, x, nTotal, nLoc
TRY
nLoc := "error" / 2
CATCH oError // Harbour and xHarbour retorna linea 26
msgInfo( oError:gencode )
msgInfo( oError:SubSystem )
msgInfo( oError:SubCode )
msgInfo( oError:Operation )
msgInfo( oError:Description )
msgInfo( valToPrg( oError:Args ) )
MsgInfo( cValToChar( procLine() ),, "Atención" )
END
RETURN NIL
// Fin
se me ocurrió que podriamos "extender" la clase Error de Harbour para implementar el mensaje ProcLine()
...
EXTEND CLASS Error WITH MESSAGE ProcLine INLINE ProcLine()
pero la clase Error de Harbour no lo permite. De hecho no permite crear una clase derivada de ella
no se aún cual es la razón de esta limitación
El errorsys de FWH utiliza ProcLine() y funciona correctamente con Harbour y xHarbour
Puedes probar el ejemplo samples\testerro.prg usando buildh.bat y buildx.bat y verás
que ambos reportan el mismo número de línea
