Reimpresion

Reimpresión del Ultimo Comprobante

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.PedirReimpresion()&&Ultimo comprobante

      ELSE

            MESSAGEBOX("LA IMRESORA SE ENCUENTRA OCUPADA")

      ENDIF

      objHasar.Finalizar()

CATCH TO oError

      MESSAGEBOX("Error:"+oError.Message)

EndTRY

Reimpresión de Cualquier Comprobante

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

            **Reimprime el remito nro 10

            objHasar.CopiarComprobante(91, 10)      

      ELSE

            MESSAGEBOX("LA IMRESORA SE ENCUENTRA OCUPADA")

      endif

      objHasar.Finalizar()

CATCH TO oError

      MESSAGEBOX("Error:"+oError.Message)

EndTRY