FoxPro/Visual FoxPro - Finalizar ejecucion de try catch

 
Vista:

Finalizar ejecucion de try catch

Publicado por Gustavo (33 intervenciones) el 15/11/2020 21:34:03
Hola foro! espero que estén muy bien.

Tengo un inconveniente con el uso de Try - Catch, no logro finalizar la ejecución luego de un error.
Me podrían por favor ayudar con los comandos y/o sintaxis? lo que necesito es que una vez generado un error, finalice la ejecución del Try (actualmente se sigue ejecutando y no me permite continuar con el resto del código), les dejo el código en uso:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
TRY
      objHasar = CREATEOBJECT("ImpresoraFiscal2g.Impresora")
      objHasar.CodigoActivacion = RTRIM(thisform.txt_Clave)
      objHasar.IP = RTRIM(thisform.txt_IP)
      objHasar.Puerto= RTRIM(thisform.txt_Puerto)
      objHasar.Comenzar()
      objHasar.AutodetectarModelo()
      xmodelo = objHasar.Modelo
      objHasar.Finalizar()
CATCH TO oError
      MESSAGEBOX("Error:"+oError.Message)
ENDTRY
 
 
IF alltrim(xmodelo) = 'SMH/PT-250F V: 01.00'
     Codigo 1...
  ELSE
     Codigo 2...
endif
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder