Tema: Usando EpsonFiscalDriver.dll
Ver Mensaje Individual
  #8
Antiguo 30 de agosto de 2020, 17:08
fastpho
El Foro es mi casa
Innovación: Por aportar innovaciones - Issue reason: SQLite + OO Cobol class Concurso: Primer puesto: Ganador/a del Primer puesto en un concurso - Issue reason: Acceso a datos Cobol vía web 
Última Actividad 21.08.2026 18:08
Posts Posts: 365
Likes enviados Enviados: 252
Likes recibidos Recibidos: 243
Predeterminado
0
Likes

None...

Inactivo Inactivo
@jhjacomo, Para saber el Estado proba con estas lineas , solicitar primero el estado y luego leer por el medotod getPrinterStatus ver la respuesta y como dijo @Kuk, no le pongas RETURNING por que pwc3 no acepta la palabra reservada RETURNING
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01 LINEA-ESTADO.
  5.     03 Comando            PIC X VALUE  X"00".
  6.     03 Comandobis         PIC X VALUE  X"01".
  7.  01 LINEA-EXTRA.   
  8.     03 DataField1         PIC X VALUE  X"00".
  9.     03 DataField2         PIC X VALUE  X"00".
  10.  01 gState            PIC S9(9) COMP-5.
  11.  01 FUNC-EPSON-LIB    Pic x(40).
  12.  01 version           pic x(250).
  13.  PROCEDURE       DIVISION.
  14.      move spaces         TO FUNC-EPSON-LIB.
  15.      MOVE 2              TO BufferLen.
  16.      MOVE "AddDataField" TO FUNC-EPSON-LIB.
  17.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-ESTADO
  18.                                             BY VALUE BufferLen.     
  19.  
  20.      move spaces         TO FUNC-EPSON-LIB.  
  21.      MOVE 2              TO BufferLen.
  22.      MOVE "AddDataField" TO FUNC-EPSON-LIB.
  23.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE LINEA-EXTRA
  24.                                             BY VALUE BufferLen.     
  25.                                
  26.  
  27. *SEND  COMMAND                                   
  28.      move spaces       TO FUNC-EPSON-LIB.
  29.      MOVE "SendCommand" TO FUNC-EPSON-LIB.
  30.      CALL FUNC-EPSON-LIB WITH  STDCALL  USING BY REFERENCE VERSION.  
  31. *****  getPrinterState
  32.      move spaces             to FUNC-EPSON-LIB.
  33.      MOVE "getPrinterStatus" TO FUNC-EPSON-LIB.
  34.      CALL FUNC-EPSON-LIB. 
  35. *> PROGRAM-STATUS ---> si no es cero hay problemas  40961 tapa abierta 1 poco papel 2 sin papel
  36.      move PROGRAM-STATUS to gState.
  37.      display "estado" , gState.
fastpho is offline   Responder Con Cita