23 respuestas en este tema

[eduarcol]

buenos dias,


Estoy trabajando con la OCXde Epson para impresoras fiscales y estoy teniendo problemas con un campo especifico que es la extension, el cual debo enviar una cadena en forma de bits a la impresora, segun el manual:

Bit 0-2         ‘000’ – Factura a consumidor final.
‘001’ – Factura con derecho a crédito fiscal.
‘010’ – Nota de crédito a consumidor final.
‘011’ – Nota de crédito con derecho a crédito fiscal.
‘100’ – Factura a consumidor final con exoneración de ITBIS.
‘101’ – Factura con derecho a crédito fiscal con exoneración de
            ITBIS.
‘110’ – Nota de crédito a consumidor final con exoneración de ITBIS.
‘111’ – Nota de crédito con derecho a crédito fiscal con exoneración             de ITBIS.
Bit 3 Reservado.
Bit 4-5 ‘00’ – Utilizar fuente predeterminada.
‘01’ – Utilizar fuente tipo A.
‘10’ – Utilizar fuente tipo B.
‘11’ – Reservado.
Bit 6-8 ‘000’ – No realizar copias.
‘001’ – Realizar una copia.
‘010’ – Realizar dos copias.
‘011’ – Realizar tres copias.
‘100’ – Realizar cuatro copias.
‘101’ – Realizar cinco copias.
‘110’ – Realizar seis copias.
‘111’ – Realizar siete copias.
Bit 9 Reservado.
Bit 10 ‘0’ – Utilizar %Ley predeterminado.
              ‘1’ – No utilizar %Ley.
Bit 11-15 Reservados.

al enviar chr(0) + chr(1) se supone que estoy enviando 001.

Pero no entiendo mucho de esto, como podria hacer para lograr estas combinaciones, que me devuelve cada chr() en cada posicion??


Gracias

[egostar]

Hola amigo,

Me parece que no, Char(0) y Char(1) no son '0' y '1', son los caracteres null y start of heading respectivamente, si quieres enviar la cadena '001' tienes varias alternativas,

• La mandas tal cual --> '001'
• La mandas como chr --> #48 + #48 + #49
• La mandas como hexadecimal --> $30 + $30 + $31

Depende de tu componente y como trate las cadenas.

Saludos

[eduarcol]

Aqui es donde comienza mi confusion, por ejemplo en un control que solo maneja un bit

Bit 0 ‘1’ – Imprime reporte.
        ‘0’ – No imprime reporte

lo envio de esta forma

EpsonControl.AddDataField(chr(0) + chr(1));

y asi si funciona...

[eduarcol]

Pongo un ejemplo para estar mas claro, al enviar la siguiente cadena de bits,

0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1

Deberia enviar el chr(69) ????

[egostar]

Aqui es donde comienza mi confusion, por ejemplo en un control que solo maneja un bit

Bit 0 ‘1’ – Imprime reporte.
        ‘0’ – No imprime reporte

lo envio de esta forma

EpsonControl.AddDataField(chr(0) + chr(1));

y asi si funciona...

Ahhhhh, ya ya, olvidalo, me estoy "meando fuera del hoyo", yo estoy pensando en Bytes no en bits

Deja aclarar mi mente y regreso

Saludos

[seoane]

Pongo un ejemplo para estar mas claro, al enviar la siguiente cadena de bits,

0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1

Deberia enviar el chr(69) ????

Entiendo que si, ahora abría que determinar el orden de los bytes. Al tratarse de 16bits (2 bytes) habría que saber cual se envía primero el mas alto o el mas bajo.

Es decir chr(69) + chr(0)  o por el contrario chr(0) + chr(69)

[egostar]

Pongo un ejemplo para estar mas claro, al enviar la siguiente cadena de bits,

0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 1

Deberia enviar el chr(69) ????

Entiendo que si, ahora abría que determinar el orden de los bytes. Al tratarse de 16bits (2 bytes) habría que saber cual se envía primero el mas alto o el mas bajo.

Es decir chr(69) + chr(0)  o por el contrario chr(0) + chr(69)

Me has ganado amigo seoane

Yo asumo que deberia ser char(0) + chr(69)

Hice un pequeño ejercicio, a ver si sirve de algo.

php

procedure TForm1.Button3Click(Sender: TObject);
var
  caracter1,
  caracter2: string;
 
  Entero1,
  Entero2: integer;
 
    function BinToInt(Value: string): Integer;
    var
      i, iValueSize: Integer;
    begin
      Result := 0;
      iValueSize := Length(Value);
      for i := iValueSize downto 1 do
        if Value[i] = '1' then Result := Result + (1 shl (iValueSize - i));
    end;
 
 
begin
  caracter1 := '00000000';
  caracter2 := '01000101';
 
  Entero1 := BinToInt( caracter1 );
  Entero2 := BinToInt( caracter2 );
 
  showMessage( format('%d - %d',[Entero1, Entero2]) );
 
end;

Saludos

[eduarcol]

Gracias, a todos, estas explicaciones era justo lo que necesitaba para aprender

Saludos

[AntonioSAl]

Estimado:
Me he roto la cabeza con este protocolo (EpsonFPHostCOntrolX.ocx), sin embargo no logro hacer que la impresora TM-T88IV haga algo. No es problema de comunicación porque con drivers de pago logro hacer que imprima. Tienes algún ejemplo de código para enviar comandos a esta impresora, como un reporte Z o un ticket?. Te lo agradecería mucho.
Saludos desde Chile.
Atte.

[eduarcol]

Para enviar a imprimir va a depender mucho del protocolo de la impresora, por lo cual debes tener un manual, yo la utilizo en Republica dominicana.


Basicamente lo que debes hacer es enviar comandos, para lo cual el OCX utiliza esto

 

delphi

EpsonControlOcx.AddDataField(Comando); //Tantas veces como comandos se necesiten en una instruccion
             EpsonControlOcx.SendCommand;
 

Pero los comandos a enviar dependen del protocolo de la impresora, si nos compartes el codigo que utiizas podriamos ayudarte un poco

Saludos

[AntonioSAl]

Estimado: estoy tomando como protoolo base este, considerando que no he encontrado el de la TM-T88IV, pero entiendo que es el mismo:
ftp://ftp.epson.com/latin/drivers/Impresoras/FiscalEASA/Manual/Manual_Protocolo_Compatible_220AFII_Hera_RevD.pdf

Para enviar un comando  a la impresora lo hago de la siguiente forma, según un código que conseguí en otro foro:

delphi

//com1, baudios =9600 y protocolo extended previamente seteados.
 // Segun el manual, para avanzar papel-> 07 01
 EpsonFPHostControl1.AddDataField( #07#01);
 EpsonFPHostControl1.SendCommand;
 EpsonFPHostControl1.ClosePort;

Te agradecería sugerencias y asistencia.
Atte.

[eduarcol]

Antes de eso abres el puerto?

Lo que se me ocurre de ser asi es que no sean los comandos, o estas trabajando en modo extendido y sean comandos del normal.

Saludos

[AntonioSAl]

Olvidé poner esta parte....

delphi

EpsonFPHostControl1.OpenPort;

Creo que la pregunta que debí hacer al principo es:
"Es correcta la forma de envío del comando?"
Lo otro, es que estoy monitereando el tráfico del COM1 y efectivamente envía datos, sin embargo por alguna razón (error mío, por supuesto) no hace nada el impresor.
Atento a tus comentarios.

[AntonioSAl]

Estimados:
Alguien sabe como enviar comandos a esta impresora que contengas caracteres literales?. Por ejemplo, para enviar una impresión de texto no fiscal se debe enviar el comando "0E 01". Lo he intentado de distintas formas pero no lo he logrado enviar.
Les Agradezco cualquier ayuda.

[poliburro]

Estimados:
Alguien sabe como enviar comandos a esta impresora que contengas caracteres literales?. Por ejemplo, para enviar una impresión de texto no fiscal se debe enviar el comando "0E 01". Lo he intentado de distintas formas pero no lo he logrado enviar.
Les Agradezco cualquier ayuda.

¿Al final del envio le has agregado un retorno de carro? eso a veces es lo que a los dispositivos les permite saber que es el fin del comando.

[AntonioSAl]

Lo intenté pero no funcionó... de todas maneras gracias por responder

[eduarcol]

Prueba con esta Linea

EpsonFPHostControl1.AddDataField( #07+#01);

Es decir concatenando

[AntonioSAl]

Gracias por responder Eduardo!
Esa línea funciona sin problemas (#07+#01), lo que estoy intentando enviar a la impresora es 0E 01, que sería como enviar

AddDataField(#0E#01)

Pero "#0E" no existe. Tambien probé enviando el valor decimal "#14" o el ascii "#69", sin resultados positivos .

Atento a los comentarios.

[genriquez]

Hola

Creo que la manera más sencilla de obtener los números a enviar es asignar una constante para cada opción, he identificado 4 grupos, así que les di nombres a las constantes de acuerdo al grupo, así el valor final a enviar al puerto será

TipoFactura + Fuente + Copias + Ley

delphi

const
   //Bit 0-2
   TF0 = Word($0);  //‘000’ – Factura a consumidor final.
   TF1 = Word($1);  //‘001’ – Factura con derecho a crédito fiscal.
   TF2 = Word($2);  //‘010’ – Nota de crédito a consumidor final.
   TF3 = Word($3);  //‘011’ – Nota de crédito con derecho a crédito fiscal.
   TF4 = Word($4);  //‘100’ – Factura a consumidor final con exoneración de ITBIS.
   TF5 = Word($5);  //‘101’ – Factura con derecho a crédito fiscal con exoneración de ITBIS.
   TF6 = Word($6);  //‘110’ – Nota de crédito a consumidor final con exoneración de ITBIS.
   TF7 = Word($7);  //‘111’ – Nota de crédito con derecho a crédito fiscal con exoneración de ITBIS.
 
   //Bit 3   Reservado.
   //Bit 4-5   
   F0 = Word($00)   //‘00’ – Utilizar fuente predeterminada. Equivale a 00000
   F1 = Word($08);  //‘01’ – Utilizar fuente tipo A.         Equivale a       01000
   F2 = Word($10);  //‘10’ – Utilizar fuente tipo B.         Equivale a       10000
   F3 = Word($18);  //‘11’ – Reservado.                      Equivale a       11000
 
   //Bit 6-8
   CP0 = Word($0);   //‘000’ – No realizar copias.           Equivale a    00000000
   CP1 = Word($20);  //‘001’ – Realizar una copia.           Equivale a    00100000
   CP2 = Word($40);  //‘010’ – Realizar dos copias.          Equivale a    01000000
   CP3 = Word($60);  //‘011’ – Realizar tres copias.         Equivale a    01100000
   CP4 = Word($80);  //‘100’ – Realizar cuatro copias.       Equivale a    10000000
   CP5 = Word($A0);  //‘101’ – Realizar cinco copias.        Equivale a    10100000
   CP6 = Word($C0);  //‘110’ – Realizar seis copias.         Equivale a    11000000
   CP7 = Word($E0);  //‘111’ – Realizar siete copias.        Equivale a    11100000
 
   //Bit 9    Reservado.
   //Bit 10
   LY0 = Word($0);     //‘0’ – Utilizar %Ley predeterminado. Equivale a  0000000000
   LY1 = Word($200);  //‘1’ – No utilizar %Ley.              Equivale a  1000000000
   //Bit 11-15 Reservados.
 
 
    Var  C : Word;
    Begin
//Ejemplo de
//  TF2 = Word($2);    //‘010’ – Nota de crédito a consumidor final.  Equivale a         010
//   F2 = Word($10);   // ‘10’ – Utilizar fuente tipo B.              Equivale a       10000
//  CP3 = Word($60);   //‘011’ – Realizar tres copias.                Equivale a    01100000
//  LY1 = Word($200);  //  ‘1’ – No utilizar %Ley.                    Equivale a  1000000000
//                                                                                1001110010
   
        C := TF2 or F2 or CP3 or LY1; 
        //la variable C contiene dos bytes ya que es de tipo Word y quedaría así  00000010-01110010
       ... aquí ya la rutina que envía al puerto....

donde la variable C es de tipo Word o equivalente a dos bytes, ya lo que debes hacer es enviar los dos bytes al puerto.

Espero ayude a simplificar la rutina

[AntonioSAl]

Genial!
Será muy útil tu ayuda respecto a la extensión del comando. Mi real problema es la impresión de texto no fiscal, para enviar códigos de barra. Según el manual de protocolo extendido el comando es "0E 01"+ extensión. El problema lo tengo en el envío del comando en sí.
Gracias!