FS=chr(28)
Hasar.Puerto = 1
** Para resolver el tema del modelo que me daba problemas al pasar el comando DocumentoDeReferencia
** lo que hice fué usar AutoDetectarModelo..
Hasar.AutodetectarModelo
Hasar.Comenzar
Hasar.TratarDeCancelarTodo
** Hasar.DatosCliente(Nombre,Documento,67,73,Domiclio) No funciona en la HASAR 715.
** Por lo tanto..
Cadena = "b" +FS+ "NombreCliente" +FS+ "DocumentoCliente" +FS+ "C" +FS+ "2" +FS+ "Domicilio"
Hasar.Enviar(Cadena)
Hasar.DocumentoDeReferencia(1) = "0001-00000008"
Hasar.AbrirDNFH(53) && 52 (Ticket Nota_credito_A), 53(Ticket Nota_credito_BC).
Hasar.ImprimirItem("cDetalle",nCantidad,nPrecioUnit,21,0)
Hasar.CerrarDNFH
Hasar.Finalizar
** Por otro lado para leer el último comprobante impreso desde la Impresora Fiscal, sería así:
Hasar.UltimoDocumentoFiscalA && Para leer última Factura A impresa.
Hasar.UltimoDocumentoFiscalBC && Para leer última Factura B y C impresa.
Hasar.UltimaNotaCreditoA && Para leer última Nota de Crédito A impresa.
Hasar.UltimaNotaCreditoBC && Para leer última Nota de Crédito B y C impresa.