Una curiosa curiosidad

[hmpaquito]

Hola a todos:

Teniendo un bucle tal que asi:

Code: Select all  Expand view

SELECT (cAli)
GO TOP
DO WHILE !Eof()
   nPrecio:= Importe/ Cantidad             // (*)
   REPLACE Precio WITH nPrecio
   SKIP
ENDDO
 

Cuando en la linea (*) Importe sea cero entonces sera llamado el controlador de errores porque se habra producido una division por cero. En el controlador de errores (errorsys) el error sera tratado, y el tratamiento por defecto será devolver cero como resultado de la division y no habra pasado nada.... pero SI HABRA PASADO Y MUCHO, y es que la velocidad del proceso se resentira mucho, si hay muchas iteraciones del bucle en las que sucede eso. Para solucionarlo, mejor controlar antes el valor de Importe y si es cero entonces no hacer la division:

Code: Select all  Expand view

SELECT (cAli)
GO TOP
DO WHILE !Eof()
   IF Importe == 0
      nPrecio:= 0
   ELSE
      nPrecio:= Importe/ Cantidad
   ENDIF  
   REPLACE Precio WITH nPrecio
   SKIP
ENDDO
 

Sólo era una curiosidad.

Saludos

[Antonio Linares]

Y muy util, gracias!

[thefull]

Muy útil.

[carlos vargas]

sip, muy buena optimización.
gracias por el tips.

salu2

[hmpaquito]

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)
 

Saludos a todos

[thefull]

hmpaquito , muy buen tip!!!
Me ha solucionado un problema que estaba entre quitar el try/catch o recorrer cientos de lineas por el tema de la división por cero.
Tu solución me ha ido de perlas.

Gracias

[hmpaquito]

Rafa,

hmpaquito , muy buen tip!!!
Me ha solucionado un problema que estaba entre quitar el try/catch o recorrer cientos de lineas por el tema de la división por cero.
Tu solución me ha ido de perlas.
Gracias

Nada comparado con el el beneficio que yo he tenido con tus aportes; sin ir mas lejos TUtilPrn/TImprime estan en la base de todas mis impresiones.

Gracias a ti.

Saludos