Tema: Usando EpsonFiscalDriver.dll
Ver Mensaje Individual
  #7
Antiguo 30 de agosto de 2020, 03:33
jhjacomo
Forero Junior
Última Actividad 17.03.2025 00:43
Posts Posts: 21
Likes enviados Enviados: 0
Likes recibidos Recibidos: 7
Predeterminado
0
Likes

None...

Inactivo Inactivo
Ola Kuk, @Kuk, gracias por tu respuesta.

Si la variable wstatus esta definida en working.
Ahí va el código completo:
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 gState         PIC S9(9) COMP-5.
  7.  01 FUNC-EPSON-LIB    Pic x(40).
  8.  01 version           pic x(250).
  9.  01 mensa.
  10.     03 wcomando       pic x(30).
  11.     03 wrespue        pic x(15). 
  12.     03 wstatus        pic 99999999+.
  13.  PROCEDURE   DIVISION.
  14.      move POW-OFF to POW-ENABLE of ESTADO. 
  15.      call CLEARLIST OF p-comandos.
  16. *****  GetAPIVersion
  17.      MOVE "GetAPIVersion" TO FUNC-EPSON-LIB.
  18.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE VERSION.
  19.      move spaces to mensa.
  20.      move "Ver Version"  to wcomando.
  21.      move version        to wrespue.
  22.      move PROGRAM-STATUS to wstatus.
  23.      call ADDSTRING of p-comandos using mensa.
  24. *****  setComPort
  25.      MOVE spaces       TO FUNC-EPSON-LIB.
  26.      MOVE "setComPort" TO FUNC-EPSON-LIB.
  27.      move 0 to sPort.
  28.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY VALUE sPort.
  29.      move spaces to mensa.
  30.      move "Seteo puerto" to wcomando.
  31.      move sPort          to wrespue.
  32.      move PROGRAM-STATUS to wstatus.
  33.      call ADDSTRING of p-comandos using mensa.
  34. *****  setBaudRate
  35.      MOVE spaces        TO FUNC-EPSON-LIB.
  36.      MOVE "setBaudRate" TO FUNC-EPSON-LIB.
  37.      move 9600          TO sBaudio *> set baudios
  38.      CALL FUNC-EPSON-LIB WITH  STDCALL   USING BY VALUE sBaudio.
  39.      move spaces to mensa.
  40.      move "Seteo velocidad puerto" to wcomando.
  41.      move sBaudio                  to wrespue.
  42.      move PROGRAM-STATUS           to wstatus.
  43.      call ADDSTRING of p-comandos using mensa.
  44. *****  getPrinterState
  45.      call ADDSTRING of p-comandos using "getPrinterStatus".
  46.      MOVE "getPrinterStatus" TO FUNC-EPSON-LIB.
  47.      move spaces to mensa.
  48.      CALL FUNC-EPSON-LIB WITH STDCALL RETURNING PROGRAM-STATUS.
  49.      move PROGRAM-STATUS to wstatus.
  50. ***** WITH  STDCALL  USING BY REFERENCE VERSION.
  51. ***** RETURNING CODIGO-CmImpresor.
  52.      move "Ver Status Impresora"  to wcomando.
  53.      call ADDSTRING of p-comandos using mensa.
  54.      call DISPLAYMESSAGE of ComFis using "Fin Status".
  55.      move POW-ON to POW-ENABLE of ESTADO.
Este código da error al compilar, si hago la llamada a la función de esta forma: "CALL FUNC-EPSON-LIB.", no da error, pero en PROGRAM-STATUS no devuelve el estado verdadero del controlador.
jhjacomo is offline   Responder Con Cita