3 replies to this topic

[cram]

¿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

[Nikolas]

santiago14

 

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

 

[Agustin Ortu]

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:

delphi

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;

[cram]

santiago14

 

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.