31 replies to this topic

[eduarcol]

Hola a todos, resulta que estoy trabajando con las impresoras fiscales Epson, estas [ironia]"lindas maquinitas"[/ironia] tienen un detallito, no imprimen los caracteres especiales, que para el español es indispensable (Ñ, á, é, í, ó, ú).

Lo que queria saber es si Delphi trae una función con la cual me pueda deshacer de ellos, o tengo que inventarmela yo mismo?

algo asi como

delphi

cCadena := QuitarCaracteres(cCadena);

[felipe]

[OFF TOPIC]¿Alguién sabe de algún tutorial, manual o recurso para el manejo de las impresiones de este tipo?[/OFF TOPIC]

[eduarcol]

[OFF TOPIC]¿Alguién sabe de algún tutorial, manual o recurso para el manejo de las impresiones de este tipo?[/OFF TOPIC]

eso depende de la impresora y del fabricante del chip de la memoria Fiscal, ¿tienes algúna en especifica?

[seoane]

¿Probaste a cambiarle el juego de caracteres? Algunas impresoras permiten cambiarle el juego de caracteres, por defecto traen el ingles, intenta cambiarlo a español.

Y para desacerte de los caracteres problemáticos solamente tienes que eliminar los que sean mayores a 127. Es decir:

delphi

function QuitarCaracteres(Str: String): String;
var
  i: Integer;
begin
  Result:= EmptyStr;
  for i:= 1 to Length(Str) do
    if Str[i] < #128 then
      Result:= Result + Str[i];
end;

[eduarcol]

Gracias Seoane, lo probare de inmediato.

[felipe]

[OFF TOPIC]¿Alguién sabe de algún tutorial, manual o recurso para el manejo de las impresiones de este tipo?[/OFF TOPIC]

eso depende de la impresora y del fabricante del chip de la memoria Fiscal, ¿tienes algúna en especifica?

Pues la verdad no... en realidad no he tenido que trabajar con estas impresoras, pero si me gustaria conocer algo al respecto... quiza pronto lo tenga que hacer 

PD: El ejemplo no importa, despues de que pueda entender su funcionamiento en común 

[eduarcol]

en verdad no es nada del otro mundo, simplemente le envias los datos del cliente con cierto formato y los datos del producto vendido.  ella se encarga de estructurar el formato de tal manera que salga una factura autorizada por el ministerio o organismo encargado de llevar los impuestos en el pais.

A "grosso modo" ellas lo que tienen es una memoria interna que permite almacenar estos montos por fecha, y a la hora de fiscalizar sacan un reporte llevando el control del impuesto cobrado en ese punto de venta.

[felipe]

en verdad no es nada del otro mundo, simplemente le envias los datos del cliente con cierto formato y los datos del producto vendido.  ella se encarga de estructurar el formato de tal manera que salga una factura autorizada por el ministerio o organismo encargado de llevar los impuestos en el pais.

A "grosso modo" ellas lo que tienen es una memoria interna que permite almacenar estos montos por fecha, y a la hora de fiscalizar sacan un reporte llevando el control del impuesto cobrado en ese punto de venta.

... bueno, eso no lo sabia y menos que tanto aplica en cada pais...
Normalmente estas son usadas para generar tiquets y cosas por el estilo ¿no?... no se si estoy confundiendo la cosa, ahi perdonaran  :$, pero entonces ya depende de cada modelo el funcionamiento de la misma y el modo en que se trabaje desde Delphi, ¿voy bien? 

[eduarcol]

lo has entendido bien, solo que ticket = Factura

[felipe]

lo has entendido bien, solo que ticket = Factura

Claro, entonces se registran los codigos e impuestos que aplican para cada pais, ejemplo aca: NIT (Número de Identificación Tributaria), IVA (Impuesto al Valor Agregado)...

Entonces estando claros en eso, mi inquietud (Y causante del desvio del tema    ) es sobre su programación, ya que es claro que no se generan factuas igual que como con una impresora normal  ... A eso refiero con el ejemplo que me gustaira ver

Gracias...

[enecumene]

Si te refieres a cómo diseñar un ticket o cómo se hace el ticket, pues algunos lo hacemos via Canvas otros lo hacen vía reporteador.

Saludos.

[eduarcol]

en verdad quieres ver eso?? jejeje no te lo recomiendo...

a ver un ejemplo para las epson:

Este procedimiento imprime una factura fiscal con un solo producto, los comentarios hacen referencia al campo en el manual.

delphi

procedure TfrEpson.EnviarFactura;
var
   cCadena: String;
begin
   //abre la factura fiscal
           //   1  2            3              4         5          6   7   8  9  10  11 12  13   14     15  16 17  18
           // cmd -                 1          -         2          -   3   -  4  -   5   -  6  -     7      -  8   -  9
   cCadena := #64#28 + 'EDUARDO COLMENARES' + #28 + 'V-14116252' + #28#127#28#127#28#127#28#127#28 + 'T' + #28#127#28#127;
   EnviarComando(cCadena);
 
   //espera que este lista la impresora
   lEsperar := True;
   nVan := 0;
   while lEsperar do
   begin
      Application.ProcessMessages;
   end;
 
   //texto en factura fiscal
           //  1   2        3                             4    5
           //CMD  -                        1             -     2
   cCadena := #65#28 + 'DIRECCION: FUNDACION MENDOZA' + #28 + 'S';
   EnviarComando(cCadena);
 
   //espera que este lista la impresora
   lEsperar := True;
   nVan := 0;
   while lEsperar do
   begin
      Application.ProcessMessages;
   end;
 
   //imprimir item
           //  1   2      3       4       5      6       7      8       9      10    11    12  13 14  15 16  17
           // CMD  -      1       -       2      -       3      -       4       -    5     -    6 -   7  -   8
   cCadena := #66#28 + 'CORTE' + #28 + '1000' + #28 + '2385' + #28 + '0900' + #28 + 'M' + #28#127#28#127#28#127;
   EnviarComando(cCadena);
 
   //espera que este lista la impresora
   lEsperar := True;
   nVan := 0;
   while lEsperar do
   begin
      Application.ProcessMessages;
   end;
 
   //CERRAR FACTURA FISCAL
           //   1  2    3
           // cmd  -    1
   cCadena := #69#28 + 'T';
   EnviarComando(cCadena);
 
   //espera que este lista la impresora
   lEsperar := True;
   nVan := 0;
   while lEsperar do
   begin
      Application.ProcessMessages;
   end;
end;

El siguiente procedimiento es el que se comunica con la impresora, y utiliza los componentes TPApro.

delphi

procedure TfrEpson.enviarcomando(Comando: String);
var
   nSuma, nSecuencia, I: Integer;
   cCadena: String;
const
   _ESPERA = 800;
begin
   //Envia un comando a la impresora
 
   //Toma la secuencia
   nSecuencia := 0;
   while (nSecuencia < 32) or (nSecuencia > 126) do
   begin
      nSecuencia := Random(127);
   end;
 
   //Arma la primera parte de la cadena
            //STX + SEC            + COMANDO + ETX + BCC
   cCadena := #2 + chr(nSecuencia) + Comando + #03;
 
 
   //calcula BCC
   nSuma := 0;
 
   For i := 0 To Length(cCadena) do
   begin                                          //calcula el valor en ASCII de una cadena.
      nSuma := Integer(Char(cCadena[i])) + nSuma;         //y lo devuelve en suma.
   end;
 
   //Agrega el bcc a la cadena
   cCadena := cCadena + InttoHex(nSuma, 4);
 
   txEnvios.Lines.Add(cCadena);
   Port.PutString(cCadena);
 
end;

PD, aqui me ayudo mucho egostar.

[felipe]

Gracias eduarcol por tan  ?... ejemplo  jejejeje...
Aparte de todo se entiende el objetivo y era algo que queria conocer...

Si te refieres a cómo diseñar un ticket o cómo se hace el ticket, pues algunos lo hacemos via Canvas otros lo hacen vía reporteador.

Saludos.

Gracias amigo, me imagino que con el canvas tendria algo parecido al ejemplo que me dan, respecto a la complejidad claro; ahora vía reporteador ¿podria ser mas simple?, pero ¿y que tan recomendado?


PD: Tenga en cuenta que pregunto solo por aprender... maestros 

[eduarcol]

este tipo de impresora no tienen los drivers, y no aceptan cambio en el formato, por lo menos en Vzla, ya veo que en Dominicana son mas ligeros al respecto... Por cierto Fernando sabes que es una fiscal y no una TMU normal?

[felipe]

...es una fiscal y no una TMU normal?

¿Que tan diferentes podrian ser?

[eduarcol]

En que la Fiscal se le anexa una memoria para guardar el registro de las ventas y del IVA o Impuesto a las ventas, esta memoria no puede ser modificada y solo es leida para sacar los reportes de venta y declaraciones al Fisco.

Una TMU es una impresora mas, común y silvestre, que tiene sus drivers y demas facilidades para programar, mientras que la fiscal debe ser por secuencia de escape tal cual se muestra en el ejemplo.

[enecumene]

Sí Eduardo, sé la diferencia, sólo que Felipe no especificó , y lo dije en sentido general

[eduarcol]

lo pregunte porque me asalta una duda, en Dominicana tu puedes modificar el formato a la factura de una impresora fiscal?

[enecumene]

Bueno, no te aseguro nada porque no trabajo con ellos, pero sí he visto que cambian los formatos.

[felipe]

En que la Fiscal se le anexa una memoria para guardar el registro de las ventas y del IVA o Impuesto a las ventas, esta memoria no puede ser modificada y solo es leida para sacar los reportes de venta y declaraciones al Fisco.

Una TMU es una impresora mas, común y silvestre, que tiene sus drivers y demas facilidades para programar, mientras que la fiscal debe ser por secuencia de escape tal cual se muestra en el ejemplo.

Re-gracias  ... ahora entiendo más cómo funciona la cosa, es entonces el caso de una TMU en donde puedo imprimir desde un reporteador normal, solo ajustandose a su configuración claro...
Entonces ya depende del usuario o cliente cual es la necesidad de la impresora... solo algo más, ¿en un TPV se usan las TMU?

Sí Eduardo, sé la diferencia, sólo que Felipe no especificó  , y lo dije en sentido general 

¿Ahora me daras la culpa a mi?  jejeje... hice la pregunta de ese modo por no saber las diferencias de estas impresoras, pero mira que ahora me es mas claro