Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL
Fujitsu COBOL Sub-Foro dedicado a Compiladores e IDE-s de Fujitsu.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Manejo OCX impresora Fiscal Epson nueva generación fastpho PowerCOBOL (ActiveX, v4 - v11) 99 1 de agosto de 2020 01:37
[Sintaxis] Ayuda con libreria epson InterfaceEpsonNF.dll drvedia1981 PowerCOBOL (ActiveX, v4 - v11) 2 24 de noviembre de 2017 01:05
Respuesta
 
Herramientas

  #1
Antiguo 6 de junio de 2021, 01:36
IDENTIFICATION DIVISION
drvedia1981
 Junior
ENVIRONMENT DIVISION
Avatar de drvedia1981
DATA DIVISION
febrero 2017
Caba Argentina
23.08.2021 19:04
PROCEDURE DIVISION
Posts: 50
Enviado: 1
Recibido: 8
Soluiones: 1
Reputación: 5
drvedia1981 is an unknown quantity at this point
Predeterminado Epson TM900FA

Hola a todos estoy migrando un sistema a la nueva impresora epson tm900fa siguiendo los consejos en el foro y usando la libreria "EpsonFiscalDriver" logre la conexión y realizar un cierre Z abrir un tique cancelar pero no logro imprimir un item alguien tendrá un ejemplo de ese comando, lo envio con la utilidad fpterminal y va perfecto pero no lo logro con la libreria.
Saludos a todos
drvedia1981 no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 6 de junio de 2021, 15:21
IDENTIFICATION DIVISION
fastpho
 Forero
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
51 años
25.10.2021 15:46
PROCEDURE DIVISION
Posts: 175
Enviado: 118
Recibido: 109
Soluiones: 19
Reputación: 15
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point
Predeterminado

Hola @drvedia1981, subi una lineas para ver como estas abriendo el ticket , y como le mandas el item , el pago , y el cierre del ticket para poder ayudarte
Saludos
fastpho no ha iniciado sesión   Responder Con Cita
  #3
Antiguo 6 de junio de 2021, 15:58
IDENTIFICATION DIVISION
drvedia1981
 Junior
ENVIRONMENT DIVISION
Avatar de drvedia1981
DATA DIVISION
febrero 2017
Caba Argentina
23.08.2021 19:04
PROCEDURE DIVISION
Posts: 50
Enviado: 1
Recibido: 8
Soluiones: 1
Reputación: 5
drvedia1981 is an unknown quantity at this point
Predeterminado

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 no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 6 de junio de 2021, 16:41
IDENTIFICATION DIVISION
fastpho
 Forero
Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Razón: Acceso a datos Cobol vía web 
ENVIRONMENT DIVISION
Avatar de fastpho
DATA DIVISION
diciembre 2016
Mendoza
51 años
25.10.2021 15:46
PROCEDURE DIVISION
Posts: 175
Enviado: 118
Recibido: 109
Soluiones: 19
Reputación: 15
fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point fastpho is an unknown quantity at this point
Predeterminado

@drvedia1981, hay campos que son obligatorios , los que no uses como la descripcion extra en el bufer lo mandas en 0 , te paso un ejemplo , como seria
Código COBOL:
  1. WORKING-STORAGE SECTION.
  2.  
  3.  01 Descripcion             pic x(20) value "Venta de item       ".
  4.  01 Descripcion-Extra-1     pic x(20) value spaces.
  5.  01 Cantidad                pic 9(9).
  6.  01 Precio                  pic 9(11).
  7.  01 Iva                     pic 9(4).
  8.  PROCEDURE       DIVISION.
  9.    
  10.      MOVE 20             TO BufferLen
  11.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  12.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE Descripcion
  13.                                        BY VALUE BufferLen    
  14.  
  15.      MOVE 0              TO BufferLen
  16.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  17.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE Descripcion-Extra-1
  18.                                             BY VALUE BufferLen    
  19.  
  20.      MOVE 9              TO BufferLen
  21.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  22.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE Cantidad
  23.                                             BY VALUE BufferLen    
  24.      MOVE 11             TO BufferLen
  25.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  26.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE Precio
  27.                                             BY VALUE BufferLen    
  28.  
  29.      MOVE 4              TO BufferLen
  30.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  31.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE Iva
  32.                                             BY VALUE BufferLen    
Saludos
fastpho no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 6 de junio de 2021, 23:04
IDENTIFICATION DIVISION
drvedia1981
 Junior
ENVIRONMENT DIVISION
Avatar de drvedia1981
DATA DIVISION
febrero 2017
Caba Argentina
23.08.2021 19:04
PROCEDURE DIVISION
Posts: 50
Enviado: 1
Recibido: 8
Soluiones: 1
Reputación: 5
drvedia1981 is an unknown quantity at this point
Predeterminado

Hola fastpho mil gracias no entendia eso de mandar con buffer 0 en los campos que no se usan abrazo

---------- Post añadido : 23:04 ---------- Post anterior : 16:48 ----------

Hola fastpho estoy desarrollando una interface a nivel hardware para intercalar entre la impresora y el host que interpreta los comandos de las viejas impresoras epson (protocolo anterior tm300af tm950af tm2000af ) y adapta a tm900 seria para sistemas que no hay contacto con el programador o no justifica modificar el mismo estoy avanzando con eso ya lo tengo funcionando, seguro en una primera etapa no seria para todos los comando de la maquina pero muchos sistemas usan lo basico Saludos
drvedia1981 no ha iniciado sesión   Responder Con Cita
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 02:29.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.