Salvar un Error

[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

[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

[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

[RenOmaS]

http://www.forums.fivetechsoft.com/view ... hp?t=10594