Control de Errores

Try

      objHasar = CREATEOBJECT("ImpresoraFiscal2g.Impresora")

      objHasar.CodigoActivacion=RTRIM(THISFORM.TXTcodigo.Value)

      objHasar.IP = RTRIM(thisform.txtIP.value)

      objHasar.Puerto=RTRIM(thisform.txtPuerto.Value)

      objHasar.Comenzar()

      objHasar.ConsultarUltimoEstado()

      MESSAGEBOX("CAJON ABIERTO: "+IIF(objHasar.UE_Error_Cajonabierto=.t.,"SI","NO"))  

      MESSAGEBOX("IMPRESORA EN ERROR: "+IIF(objHasar.UE_Error_Errorimpresora=.t.,"SI","NO"))

      MESSAGEBOX("FALTA PAPEL JOURNAL: "+IIF(objHasar.UE_Error_Faltapapelj=.t.,"SI","NO"))

      MESSAGEBOX("FALTA PAPEL RECEIPT: "+IIF(objHasar.UE_Error_Faltapapelt=.t.,"SI","NO"))

      MESSAGEBOX("TAPA ABIERTA: "+IIF(objHasar.UE_Error_Tapaabierta=.t.,"SI","NO"))

      MESSAGEBOX("IMPRESORA OCUPADA - ULTIMO ESTADO: "+IIF(objHasar.UE_Impresoraocupada=.t.,"SI","NO"))

      MESSAGEBOX("IMPRESORA OFFLINE: "+IIF(objHasar.UE_Impresoraoffline=.t.,"SI","NO"))

      MESSAGEBOX("IMPRESORA OCUPADA - VERIFICA SI HAY UN DOCUMENTO EN PROCESO: "+IIF(objHasar.ImpresoraOcupada()=.t.,"SI","NO"))

      objHasar.Finalizar()

CATCH TO oError

      MESSAGEBOX("Error:"+oError.Message)

EndTRY