Page 1 of 1

Salvar un Error

Posted: Fri Oct 24, 2008 9:26 am
by dobfivewin
Estiamdos amigos...

Tengo esto:

Code: Select all | Expand

    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

Posted: Fri Oct 24, 2008 12:21 pm
by Patricio Avalos Aguirre
Hola

prueba de esta manera

Code: Select all | Expand

TRY

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

CATH

   MsgInfo( "Error en la formula.." )

END

Re: Salvar un Error

Posted: Fri Oct 24, 2008 7:23 pm
by FranciscoA
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

Posted: Sat Oct 25, 2008 11:36 am
by RenOmaS