FiveTech Support Forums

En este código

El primer mensaje me muestra 0, pero si esa operación ocurre dentro de un bloque de control de errores, el programa la desvía hacia el bloque RECOVER USING, realmente esto esta bien, pero en mi caso no quiero q por divisiones por cero esto ocurra, o sea q no se capture esa operación como error, como puedo hacerlo?

Saludos

Manuel,

La solución es:
<<
Una vuelta de tuerca a lo anterior puede ser la siguiente:

Imagínense que no hemos protegido "manualmente" nuestro codigo contra las divisiones por cero; imagínense que tienen un código crítico que de ninguna manera debe fallar y por eso lo protegemos con un BEGIN SEQUENCE:

CODE: SELECT ALL EXPAND VIEW

bErrorBlock:= ErrorBlock( {|oError| Break(oError) } )
BEGIN SEQUENCE
...(1)
RECOVER USING oError
...(2)
END
ErrorBlock(bErrorBlock)



Pues bien, lo anterior provocará una deviación del flujo hacia el RECOVER si en las operaciones del ...(1) hay una operacion de division por cero, porque el tratamiento por defecto (ErrorSys) de la division por cero no se aplica aqui.

La solución es:
CODE: SELECT ALL EXPAND VIEW

bErrorBlock:= ErrorBlock( {|oError| If(oError:GenCode == EG_ZERODIV, 0, Break(oError)) ) )
BEGIN SEQUENCE
...(1)
RECOVER USING oError
...(2)
END
ErrorBlock(bErrorBlock)


>>

Desde el hilo http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22561&start=0&hilit=hmpaquito

Saludos

Gracias por el aporte, muy bueno

Yo lo he solucionado basándome en tu idea pero de esta manera

oBlock := ErrorBlock( { | oError | ApoloBreak( oError ) } )
BEGIN SEQUENCE
...

//--------------------------------------------------------------------------//

Function ApoloBreak( oError )

Return ( if( oError:GenCode == EG_ZERODIV, 0, Break( oError ) ) )

//---------------------------------------------------------------------------//

Y me va muy bien.

Saludos.