Ultimos Comprobantes

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

      MESSAGEBOX("Ultima Factura A:"+ STR(objHasar.UltimaFactura_A))

      MESSAGEBOX("Ultima Factura B:"+ STR(objHasar.UltimaFactura_B))

      MESSAGEBOX("Ultima NC A:"+ STR(objHasar.UltimaNC_A))

      MESSAGEBOX("Ultima NC B:"+ STR(objHasar.UltimaNC_B))

      **METODO GENERICO PARA TODOS LOS COMPROBANTES

      MESSAGEBOX("Ultimo TIQUE_FACTURA_A:"+ STR(objHasar.ObtenerUltimoComprobante(81)))

      objHasar.Finalizar()

CATCH TO oError

      MESSAGEBOX("Error:"+oError.Message)

EndTRY