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.CargarTransportista("Transportador Uno ...", "00000000000", "Calle 4 entre 5 y 6", "Chofer Uno ...",50,"123345678", "ABC 123", "")
objHasar.CargarDocumentoAsociado(1,81,2,94)
objHasar.AbrirComprobante(91)
MESSAGEBOX("NRO EN PROCESO: "+STR(objHasar.Nro_Enproceso))
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.ImprimirPago("Efectivo", 131.0, 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