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