Tema: Problemas con comunicación impresoras fiscales.
Ver Mensaje Individual
  #65
Antiguo 27 de marzo de 2025, 23:28
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
1
Likes

Ale

 Inactivo Inactivo
@Ale te paso ejemplo...
Código COBOL:
  1. WORKING-STORAGE SECTION.
  2.  01 TITULO-ECabCola  PIC X(24) VALUE "EstablecerEncabezadoCola".
  3.  01 TITULO-ECNumero  PIC X(6)  VALUE "Numero".
  4.  01 TITULO-ECTexto   PIC X(5)  VALUE "Texto".
  5.  01 Valor-ECNumero   PIC S9(9) COMP-5.
  6.  01 Valor-ECTexto    PIC X(50).
  7.  01 HEADER-11.
  8.     03 H-CAJERO  PIC X(7) VALUE "CAJERO:".
  9.     03 H-CODIGO  PIC 9(2).
  10.     03 FILLER    PIC X VALUE SPACES.
  11.     03 H-NOMBRE  PIC X(19).
  12.     03 H-CAJA    PIC X(7) VALUE "  CAJA:".
  13.     03 H-NUMERO  PIC 9(4). 
  14.  PROCEDURE       DIVISION.
  15.  
  16.  
  17.      MOVE spaces        TO FUNC-SAM4-LIB.
  18.      MOVE "IFOpBegin"   TO FUNC-SAM4-LIB.
  19.      CALL FUNC-SAM4-LIB WITH STDCALL USING BY CONTENT TITULO-ECabCola returning Respuesta-Impresor.
  20.      DISPLAY "TITULO-ECabCola " , Respuesta-Impresor.
  21.  
  22. ************     
  23. *Texto Cola
  24.  
  25.      MOVE spaces           TO FUNC-SAM4-LIB.
  26.      MOVE "IFOpParamSet"   TO FUNC-SAM4-LIB.
  27. *     MOVE SPACES  TO Valor-ECTexto.
  28.      MOVE 2 TO H-CODIGO.
  29.      MOVE "Osvaldo Linea 11 " TO H-NOMBRE.
  30.      MOVE 3 TO H-NUMERO.
  31.      MOVE HEADER-11        TO Valor-ECTexto.
  32.      CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE TITULO-ECTexto 
  33.                                            BY REFERENCE     Valor-ECTexto
  34.                                            returning Respuesta-Impresor.
  35.      DISPLAY "TITULO-ECTexto " , Respuesta-Impresor.
  36.  
  37. *****************
  38. *Numero Cola
  39.      MOVE spaces              TO FUNC-SAM4-LIB.
  40.      MOVE "IFOpParamIntSet"   TO FUNC-SAM4-LIB.
  41.      MOVE 11                  TO Valor-ECNumero.
  42.      CALL FUNC-SAM4-LIB WITH STDCALL USING BY REFERENCE TITULO-ECNumero 
  43.                                            BY VALUE   Valor-ECNumero
  44.                                            returning Respuesta-Impresor.
  45.      DISPLAY "titulo-ECNumero " , Respuesta-Impresor.
  46.                                            
  47.  
  48.              
  49.  
  50. *--------------
  51. * Send 
  52.      MOVE spaces          TO FUNC-SAM4-LIB.
  53.      MOVE "IFOpSend"   TO FUNC-SAM4-LIB.
  54.      MOVE 1            TO sWait.
  55.      CALL FUNC-SAM4-LIB WITH STDCALL USING BY VALUE sWait returning Respuesta-Impresor.
  56.      DISPLAY "SEND TITULO-ECabCola " , Respuesta-Impresor.

Saludos ....
fastpho is offline   Responder Con Cita