Tema: Epson TM900FA
Ver Mensaje Individual
  #3
Antiguo 6 de junio de 2021, 16:58
drvedia1981
Forero
Última Actividad 17.05.2022 22:45
Posts Posts: 66
Likes enviados Enviados: 3
Likes recibidos Recibidos: 9
Predeterminado
0
Likes

None...

Inactivo Inactivo
hola te paso lo que tengo

conectar con tm900
Código COBOL:
  1.  ENVIRONMENT DIVISION.
  2.  DATA        DIVISION.
  3.  working-Storage section.
  4.  01 sPort             PIC S9(9) COMP-5.
  5.  01 sBaudio           PIC S9(9) COMP-5.
  6.  01 SProtocol         PIC S9(9) COMP-5.
  7.  01 gState         PIC S9(9) COMP-5.
  8.  01 FUNC-EPSON-LIB    Pic x(40).
  9.  01 BufferLen         pic S9(9) COMP-5 VALUE 0.
  10.  01 version           pic x(250).
  11.  PROCEDURE   DIVISION.
  12.      MOVE "GetAPIVersion" TO FUNC-EPSON-LIB.
  13.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE VERSION.
  14.      MOVE spaces       TO FUNC-EPSON-LIB.
  15.      MOVE "setComPort" TO FUNC-EPSON-LIB.
  16.      move 1 to sPort.
  17.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY VALUE sPort.
  18.      MOVE "getLastError" TO FUNC-EPSON-LIB.
  19.      CALL FUNC-EPSON-LIB WITH STDCALL   USING BY VALUE gState.
  20.      display gState.
  21.      MOVE spaces        TO FUNC-EPSON-LIB.
  22.      MOVE "setBaudRate" TO FUNC-EPSON-LIB.
  23.      move 115200        TO sBaudio 
  24.      CALL FUNC-EPSON-LIB WITH  STDCALL   USING BY VALUE sBaudio.
  25.      move spaces TO FUNC-EPSON-LIB.
  26.      MOVE "setProtocolType" TO FUNC-EPSON-LIB.
  27.      MOVE 1 TO SProtocol.
  28.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY VALUE SProtocol.
  29.      MOVE spaces     TO FUNC-EPSON-LIB.
  30.      MOVE "OpenPort" TO FUNC-EPSON-LIB.
  31.      CALL FUNC-EPSON-LIB WITH  STDCALL  USING BY REFERENCE VERSION.

abrir tique
Código COBOL:
  1.  ENVIRONMENT DIVISION.
  2.  DATA        DIVISION.
  3.  working-Storage section.
  4.  01 LINEA-1.
  5.     03 Comando        PIC X VALUE X"0A".
  6.     03 Comandobis     PIC X VALUE X"01".
  7.  01 LINEA-2.
  8.     03 DataField1     PIC X VALUE X"00".
  9.     03 DataField2     PIC X VALUE X"00".
  10.  01 FUNC-EPSON-LIB    Pic x(40).
  11.   01 gState         PIC S9(9) COMP-5.
  12.  01 BufferLen         pic S9(9) COMP-5 VALUE 0.
  13.  01 version           pic x(250).
  14.  PROCEDURE   DIVISION.     
  15.      move spaces TO FUNC-EPSON-LIB.
  16.      MOVE 2 TO BufferLen.
  17.      MOVE "AddDataField" TO FUNC-EPSON-LIB.
  18.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-1 BY VALUE BufferLen.
  19.      MOVE 2 TO BufferLen.
  20.      MOVE "AddDataField" TO FUNC-EPSON-LIB.
  21.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-2 BY VALUE BufferLen.
  22.      MOVE "SendCommand" TO FUNC-EPSON-LIB.
  23.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE VERSION.
  24.  
  25.      MOVE "getLastError" TO FUNC-EPSON-LIB.
  26.      CALL FUNC-EPSON-LIB WITH STDCALL   USING BY VALUE gState.
  27.      display gState.
  28.  
cancela tique
Código COBOL:
  1. ENVIRONMENT DIVISION.
  2.  DATA        DIVISION.
  3.  working-Storage section.
  4.  01 LINEA-1.
  5.     03 Comando        PIC X VALUE X"0A".
  6.     03 Comandobis     PIC X VALUE X"07".
  7.  01 LINEA-2.
  8.     03 DataField1     PIC X VALUE X"00".
  9.     03 DataField2     PIC X VALUE X"00".
  10.  01 FUNC-EPSON-LIB    Pic x(40).
  11.   01 gState         PIC S9(9) COMP-5.
  12.  01 BufferLen         pic S9(9) COMP-5 VALUE 0.
  13.  01 version           pic x(250).
  14.  PROCEDURE   DIVISION.     
  15.      move spaces TO FUNC-EPSON-LIB.
  16.      MOVE 2 TO BufferLen.
  17.      MOVE "AddDataField" TO FUNC-EPSON-LIB.
  18.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-1 BY VALUE BufferLen.
  19.      MOVE 2 TO BufferLen.
  20.      MOVE "AddDataField" TO FUNC-EPSON-LIB.
  21.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-2 BY VALUE BufferLen.
  22.      MOVE "SendCommand" TO FUNC-EPSON-LIB.
  23.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE VERSION.
  24.      MOVE "getLastError" TO FUNC-EPSON-LIB.
  25.      CALL FUNC-EPSON-LIB WITH STDCALL   USING BY VALUE gState.
  26.      display gState.

item

Código COBOL:
  1. ENVIRONMENT DIVISION.
  2.  DATA        DIVISION.
  3.  working-Storage section.
  4.  01 LINEA-1.
  5.     03 Comando        PIC X VALUE X"0A".
  6.     03 Comandobis     PIC X VALUE X"02".
  7.  01 LINEA-2.
  8.     03 DataField1     PIC X VALUE X"00".
  9.     03 DataField2     PIC X VALUE X"00".
  10.  01 FUNC-EPSON-LIB    Pic x(40).
  11.   01 gState         PIC S9(9) COMP-5.
  12.  01 BufferLen         pic S9(9) COMP-5 VALUE 0.
  13.  01 version           pic x(250).
  14.  PROCEDURE   DIVISION.     
  15.      move spaces TO FUNC-EPSON-LIB.
  16.      MOVE 2 TO BufferLen.
  17.      MOVE "AddDataField" TO FUNC-EPSON-LIB.
  18.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-1 BY VALUE BufferLen.
  19.      MOVE 2 TO BufferLen.
  20.      MOVE "AddDataField" TO FUNC-EPSON-LIB.
  21.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-2 BY VALUE BufferLen.
  22.      
  23. *     aca me falta enviar cantidad precio iva y los campos que no uso que antes se enviava el separador x"1C"
  24.  
  25.      MOVE "SendCommand" TO FUNC-EPSON-LIB.
  26.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE VERSION.
  27.  
  28.      MOVE "getLastError" TO FUNC-EPSON-LIB.
  29.      CALL FUNC-EPSON-LIB WITH STDCALL   USING BY VALUE gState.
  30.      display gState.

Gracias saludos

---------- Post añadido : 15:58 ---------- Post anterior : 15:44 ----------

Los datos de item de este modelo son (descripcion extra 1,2,3,4) (descripcion del item) (cantidad) (precio) (tasa) (impuestos internos) (coeficiente) (unidad de referencia) (codigo del item) (codigo interno) (unidad de medida) y (codigo frente al iva)
yo mucho de esos campos no los uso y no se como se envian


Gracias
drvedia1981 is offline   Responder Con Cita