Testear Conexión

Una vez realizados los pasos anteriores (Registrar DLL, Activar DLL, Conexión), se puede testear la conexión con la IFH2G de la siguiente manera:

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.AutodetectarModelo()

      MESSAGEBOX("Modelo:"+objHasar.Modelo)

      objHasar.Finalizar()

CATCH TO oError

      MESSAGEBOX("Error:"+oError.Message)

EndTRY

Si la conexión fue exitosa, aparecerá el siguiente cuadro de diálogo: