FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Salvar un Error
Posts: 325
Joined: Sun Feb 03, 2008 11:04 PM
Salvar un Error
Posted: Fri Oct 24, 2008 09:26 AM
Estiamdos amigos...

Tengo esto:

    mCALCUX := alltrim(&(LIQUSUM)->FORMULA)
    mCALCU := ROUND( &( mCALCUX ) ,2)

como verán que sobre una formula armada por el usuario el programa realiza un calculo....

ahora si la formula está mal cargada o en blanco se va por error el programa... mi pregunta: como puedo frenar el programa si la formula "mCALCUX" está mal?

chas gracias

David
Argentina
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Salvar un Error
Posted: Fri Oct 24, 2008 12:21 PM
Hola

prueba de esta manera

TRY

    mCALCUX := alltrim(&(LIQUSUM)->FORMULA)
    mCALCU := ROUND( &( mCALCUX ) ,2)

CATH

   MsgInfo( "Error en la formula.." )

END
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Salvar un Error
Posted: Fri Oct 24, 2008 07:23 PM

Puedes probar asi:

if !empty( ( mCALCUX := alltrim(&(LIQUSUM)->FORMULA) ) ) .or. ( mCALCUX := alltrim(&(LIQUSUM)->FORMULA) ) != NIL

mCALCU := ROUND( &( mCALCUX ) ,2)

else
//lo que tengas que hacer
endif

Saludos

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
Posts: 205
Joined: Fri Oct 07, 2005 05:07 PM
Salvar un Error
Posted: Sat Oct 25, 2008 11:36 AM
Saludos/regards

RenOmaS



skype: americo.balboa

Continue the discussion