¿alguien conoce un sitio donde hallar buenos ejemplos de código Delphi para impresión con los ocx distribuidos por Hasar y EPSON, para impresoras fiscales?
Es que los ejemplos están en Visual Basic
Además son muy pobres.
Saludos
Escrito 08 octubre 2015 - 12:39
¿alguien conoce un sitio donde hallar buenos ejemplos de código Delphi para impresión con los ocx distribuidos por Hasar y EPSON, para impresoras fiscales?
Es que los ejemplos están en Visual Basic
Además son muy pobres.
Saludos
Escrito 11 octubre 2015 - 12:42
dejo varias cosas resueltas para HASAR. solo buscar aqui como: hasar.
http://delphiaccess....hp330/?hl=hasar
http://delphiaccess....hp330/?hl=hasar
http://delphiaccess....hp330/?hl=hasar
sobre Epson te encontre a vos: http://delphiaccess....-dxe2/?hl=epson
Escrito 11 octubre 2015 - 02:35
Yo apenas estoy iniciando en este asunto, en concreto me toco la Epson LX300 (Argentina)
Lo que hice fue entrar en la pagina de EPSON y bajarme el OCX
Despues, me base en este hilo de ClubDelphi y el manual de instrucciones (OCXFiscal.pdf) que viene dentro del paquete OCX.
Aparentemente es muy sencillo. Para las pruebas estoy usando este emulador y por el momento todo parece ir bien
El OCX, lo importas desde Delphi (Component, import component, Type Library) y te genera un control ActiveX
La unica cuestion que hay que tener en cuenta es setear el puerto correcto y ya podrias mandarle los comandos a la impresora
Cualquier duda intento ayudarte. si necesitas codigo lo publico, pero como te digo, es trivial, no tenes que escribir en el puerto atraves de un archivo como vi que hacen por ahi: El componente cuenta con una serie de funciones que mandas los parametros (eso si, todo son WideString y se pasan por referencia, es decir, operador var, es bastante molesto esto)
Un ejemplo:
var Description, Quantity, UnitPrice, IVA_Tax, Qualifier, Bundle, PorcentualInternalTaxes, ExtraLine1, ExtraLine2, ExtraLine3, IncreaseTax, FixesInternalTaxes: WideString; begin Description := // descricpion del producto [...] Result := FPrinter.SendInvoiceItem(Description, Quantity, UnitPrice, IVA_Tax, Qualifier, Bundle, PorcentualInternalTaxes, ExtraLine1, ExtraLine2, ExtraLine3, IncreaseTax, FixesInternalTaxes); end;
Escrito 12 octubre 2015 - 03:09
dejo varias cosas resueltas para HASAR. solo buscar aqui como: hasar.
http://delphiaccess....hp330/?hl=hasar
http://delphiaccess....hp330/?hl=hasar
http://delphiaccess....hp330/?hl=hasar
sobre Epson te encontre a vos: http://delphiaccess....-dxe2/?hl=epson
Sí, respondí en ese entonces, pero se refiere a otra cosa.
Aparte hay varios ActiveX, el de EPSON, precisamente no es el más utilizado según creo.
Estuve viendo el UNIDRV.OCX, que permite comunicarse con varias marcas y modelos. El problema es que las Hasar se utilizvarios man tanto como las EPSON y además existen otras marcas y varios modelos de las anteriores.
Estuve trabajando en un sistema que contiene una registradora. Ya pasó mucho tiempo, hasta el punto que olvidé casi por completo lo que había hecho. Me tiré a completar las partes y ajustarla a un cliente de esos que piden cosas raras y a medida, me hizo perder mucho tiempo. Ahora tengo que continuar con la impresión de tickets y formularios.
Muchas gracias.
PROGRAMACIÓN →
General →
Unidrv.ocxComenzado por cram , 05 oct 2016 impresoras fiscales, activex y ás... |
|
|