errsysw FWH1308

[Sistem]

no devuelve la línea de error,
sólo devuelve el msj => Too many recursive

Estoy tratando de usar la versión anterior de errsysw(1303) no exito

alguien sabe resolver?
gracias

[Antonio Linares]

Por favor copia aqui el contenido de error.log gracias

[Sistem]

Antonio,

no está generando el error.log
sólo muestra el siguiente error:



grato.

[Antonio Linares]

Usa esto:

ErrorBlock( { | oError | MsgInfo( oError:Description ) } )

So the errorsys of FWH is not used and you will get the description of the error

[hmpaquito]

Antonio,

Es buena cosa grabar en un archivo, de forma "temprana" una sencilla descripcion, con lo mas basico del error: la descripcion y la pila de llamadas.
Se podria hacer que si el error "normal" se "logra" construir, entonces borrar el primero grabado. El archivo se podria llamar fwout.log o algo asi.

Esto por qué. Pues porque algunas veces, al recoger tanta informacion el gestor de errores, puede ocurrir que se produzca un error recurrente que termina... bueno... ya lo sabes tu mejor que nadie.

Solo era una idea

[Antonio Linares]

Paco (hmpaquito)

Si, tienes razón es una buena idea para resolver los errores recurrentes.

No habia caido en esa solución, gracias

[Sistem]

Antonio

ErrorBlock( { | oError | MsgInfo( oError:Description ) } ) <= sólo muestra "variavel nao existe" y luego in otro dlg muestra "erro na recuperacao do erro"

[Antonio Linares]

ErrorBlock( { | oError | MsgInfo( oError:Description ), MsgInfo( ProcLine( 3 ), ProcName( 3 ) ) } )

Tal vez tengas que usar 4 en vez de 3 para obtener el número de línea correcto y el nombre de la función.

[Sistem]

Antonio,

ErrorBlock( { | oError | MsgStop( "Description: "+OemToAnsi(oError:Description)+CRLF+"File: " + ProcFile( 3 )+CRLF+"ProcName: " + Trim( ProcName( 3 ) ) + "( " + NTRIM( ProcLine( 3 ) ) + " )", "Error") } )
como posso saber o nome da variavel que causou o erro?

[Sistem]

proc ErrorSys()
ErrorBlock( { | oError | MsgStop( "Description: "+OemToAnsi(ErrorMessage( oError ))+CRLF+"File: " + ProcFile( 3 )+CRLF+"ProcName: " + Trim( ProcName( 3 ) ) + "( " + LTrim(Str(ProcLine( 3 ))) + " )", "Error") } ) <= me sirvió en parte
// ErrorBlock( { | e | ErrorDialog( e ) } )
return

Alguien tiene uno errosys.prg que se ejecuta en FWH1308 ?

gracias

[Antonio Linares]

Prueba a mostrar el valor de oError:SubSystem tambien

[Sistem]

Antonio
utilizando el famoso método de eliminación => /* */

eliminando el código abajo:
/*
for j = 1 to 8
if ! Empty( ( nTarget := ( Alias( n ) )->( DbRSelect( j ) ) ) )
cErrorLog += Space( 8 ) + Str( j ) + ": " + ;
"TO " + ( Alias( n ) )->( DbRelation( j ) ) + ;
" INTO " + Alias( nTarget ) + CRLF
// uValue = ( Alias( n ) )->( DbRelation( j ) )
// cErrorLog += cValToChar( &( uValue ) ) + CRLF
endif
next
*/
o dialog é exibido

nota: uso sqlrdd (no sé si tiene algo a ver)

[Antonio Linares]

Ahora queda claro que el problema viene de SQLRDD, posiblemente de alguna función de esas que usa FWH errorsys y que SQLRDD no soporta