impresora fiscal hasar 330
Publicado por gabriela (25 intervenciones) el 21/07/2014 23:45:18
Hola a todos, tengo un sistema desarrollado en visual fox 7. Hasta ahora tenia clientes que imprimían facturas electronicas y otros en impresora de matriz de punto con papel continuo o simplemente en impresora laser. Pero ahora un cliente necesita que el sistema imprima en una impresora fiscal hasar 330. La verdad he leido un monton, pero no se por donde empezar, tengo la OCX de hasar, que no se como usarla. Me han dado un codigo que es un prg, pero no se como usarlo. se los escriboa continuacion:
PUBLIC Fiscal as IFUniversal.Driver
Fiscal = CREATEOBJECT("IFUniversal.Driver")
Fiscal.Modelo = 0 && modHasar715
&& El significado de algunas constantes numericas se puede encontrar agregando en IntelliSense
&& la referencia a IFUniversal y explorando las constantes con el Examinador de Objetos
Fiscal.Puerto = 2 && pcCOM2
Fiscal.Baudios = 9600 && bd9600
Fiscal.Inicializar
Fiscal.CancelarComprobante
&&Esto no se envia si la factura es a consumidor final
Fiscal.DatosCliente("Abel Miranda", 0, 20939802593, 1, "Blanco Encalada 1204 5to A")
IF Fiscal.Error = 0 THEN
Fiscal.AbrirComprobante(1)
ENDIF
IF Fiscal.Error = 0 THEN
Fiscal.ImprimirItem("Item 1", 2, 100, 21, 0)
ENDIF
IF Fiscal.Error = 0 THEN
Fiscal.ImprimirItem("Item 1", 2, 100, 21, 0)
ENDIF
IF Fiscal.Error = 0 THEN
Fiscal.ImprimirDescuentoGeneral("Item 1", 10)
ENDIF
IF Fiscal.Error = 0 THEN
Fiscal.ImprimirPago("Visa", 100)
ENDIF
IF Fiscal.Error = 0 THEN
Fiscal.ImprimirPago("Efectivo", 100)
ENDIF
IF Fiscal.Error = 0 THEN
MESSAGEBOX("Impresión exitosa!!")
ELSE
MESSAGEBOX(Fiscal.ErrorDesc)
ENDIF
Fiscal.CerrarComprobante
Se tambien que hay que hacer cierre z y cierre x.
Alguien me puede dar una mano, explicandome que tengo que hacer o donde puedo encontrar un codigo de ejemplo?
Desde ya muchas gracias
PUBLIC Fiscal as IFUniversal.Driver
Fiscal = CREATEOBJECT("IFUniversal.Driver")
Fiscal.Modelo = 0 && modHasar715
&& El significado de algunas constantes numericas se puede encontrar agregando en IntelliSense
&& la referencia a IFUniversal y explorando las constantes con el Examinador de Objetos
Fiscal.Puerto = 2 && pcCOM2
Fiscal.Baudios = 9600 && bd9600
Fiscal.Inicializar
Fiscal.CancelarComprobante
&&Esto no se envia si la factura es a consumidor final
Fiscal.DatosCliente("Abel Miranda", 0, 20939802593, 1, "Blanco Encalada 1204 5to A")
IF Fiscal.Error = 0 THEN
Fiscal.AbrirComprobante(1)
ENDIF
IF Fiscal.Error = 0 THEN
Fiscal.ImprimirItem("Item 1", 2, 100, 21, 0)
ENDIF
IF Fiscal.Error = 0 THEN
Fiscal.ImprimirItem("Item 1", 2, 100, 21, 0)
ENDIF
IF Fiscal.Error = 0 THEN
Fiscal.ImprimirDescuentoGeneral("Item 1", 10)
ENDIF
IF Fiscal.Error = 0 THEN
Fiscal.ImprimirPago("Visa", 100)
ENDIF
IF Fiscal.Error = 0 THEN
Fiscal.ImprimirPago("Efectivo", 100)
ENDIF
IF Fiscal.Error = 0 THEN
MESSAGEBOX("Impresión exitosa!!")
ELSE
MESSAGEBOX(Fiscal.ErrorDesc)
ENDIF
Fiscal.CerrarComprobante
Se tambien que hay que hacer cierre z y cierre x.
Alguien me puede dar una mano, explicandome que tengo que hacer o donde puedo encontrar un codigo de ejemplo?
Desde ya muchas gracias
Valora esta pregunta


0