Tique/Factura 'B'

Tique/Factura 'B'

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.CargarDatosCliente("Cliente 1", "30610400562", 3, 67, "Calle uno nro 999", "", "", "")

            objHasar.AbrirComprobante(82)

            MESSAGEBOX("NRO EN PROCESO: "+STR(objHasar.Nro_Enproceso))

            objHasar.ImprimirTextoFiscal(.f.,.f.,.f.,.f.,"Texto Fiscal",84)

            objHasar.ImprimirItem("Producto Uno", 1.0, 25.0,7,21.0,77,36,10.0,84,84,"7791234500001")

            objHasar.ImprimirPago("Efectivo",25.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