FoxPro/Visual FoxPro - impresora fiscal hasar 330

   
Vista:

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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder