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()
IF !objHasar.ImpresoraOcupada()
objHasar.CargarCodigoBarras(49,"779123456789",78,80)
objHasar.CargarDatosCliente("Cliente 2", "30711979995", 1, 67, "Camino interfábrica sin número", "", "", "")
objHasar.CargarDocumentoAsociado(1, 81, 2, 94)
objHasar.AbrirComprobante(902)
objHasar.ImprimirTextoFiscal(.f.,.f.,.f.,.f., "Texto Fiscal", 84)
objHasar.ImprimirItem("Producto Uno", 1.0, 131.0, 7, 21.0, 77, 36, 10.0, 84, 66, "7791234500001")
objHasar.ImprimirConceptoRecibo("Concepto....1")
IF objHasar.CodigoActivacion <> "DEMO"
objHasar.AvanzarPapelEstacionTique(1)
ENDIF
objHasar.ImprimirConceptoRecibo("Concepto....2")
IF objHasar.CodigoActivacion <> "DEMO"
objHasar.AvanzarPapelEstacionTique(1)
ENDIF
objHasar.ImprimirPago("Efectivo",68.51,84)
objHasar.ImprimirPago("Cheque",100,84)
objHasar.CerrarComprobante(1)
MESSAGEBOX("NRO EMITIDO: "+STR(objHasar.Nro_Emitido))
ELSE
MESSAGEBOX("LA IMRESORA SE ENCUENTRA OCUPADA")
endif
objHasar.Finalizar()
CATCH TO oError
MESSAGEBOX("Error:"+oError.Message)
EndTRY