Tema: Impresión códigos de escape por CMD
Ver Mensaje Individual
  #7
Antiguo 9 de mayo de 2017, 00:25
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

Kuk

 Inactivo Inactivo
Kuk, yo lo trabajo de la siguiente manera y funciona en cualquier entorno:
Código COBOL:
  1.     SELECT IMPRE 
  2.             ASSIGN TO FPRINT
  3.             ORGANIZATION IS  LINE SEQUENTIAL            
  4.             FILE STATUS IS IMP-STAT.
  5.  
  6.  
  7. * ============================================================
  8. * REG-IMPRESOR .
  9. * ============================================================
  10.  FD  IMPRE IS GLOBAL.
  11.  01  REG-IMPRE                   PIC X(40).
  12.  01  REG-IMPRE-1                 PIC X(40).
  13.  
  14.  WORKING-STORAGE SECTION.
  15.  01  DATA00            PIC X(40)   VALUE SPACES.
  16. * Define the work area for getting the current time.
  17.  01  LINEA-4.
  18.      03 FILLER         PIC X(6) VALUE "Fecha:".
  19.      03 L4-DD          PIC 99.
  20.      03 FILLER         PIC X VALUE "-".
  21.      03 L4-MM          PIC 99.
  22.      03 FILLER         PIC X VALUE "-".
  23.      03 L4-SG          PIC 99.
  24.      03 L4-AA          PIC 99.
  25.      03 FILLER         PIC X(8) VALUE SPACES.
  26.      03 FILLER         PIC X(6)  VALUE "Hora :".
  27.      03 L4-H           PIC 99.
  28.      03 FILLER         PIC X    VALUE ":".
  29.      03 L4-M           PIC 99.
  30.  01  LINEA-5.
  31.      03 FILLER         PIC X(2)   VALUE SPACES.
  32.      03 FILLER         PIC X(20)  VALUE "COMPROBANTE INTERNO".
  33.  01  LINEA-5-1.
  34.      03 FILLER         PIC X(2)   VALUE SPACES.
  35.      03 FILLER         PIC X(22)  VALUE "NO VALIDO COMO TICKET".
  36.      
  37.  01  LINEA-6.
  38.      03 FILLER         PIC X(7)  VALUE "Caja :".
  39.      03 L6-NRO-POS     PIC 9(3).
  40.      03 FILLER         PIC X(2)  VALUE SPACES.
  41.      03 FILLER         PIC X(8)  VALUE "T/F:".
  42.      03 L6-NRO-DOC     PIC 999999.
  43.      03 FILLER         PIC X(3)  VALUE SPACES.
  44.      03 FILLER         PIC X(4)  VALUE "V :".
  45.      03 L6-NROVDR      PIC 9(03).
  46.  01  LINEA-10-1.
  47.      03 FILLER         PIC X(40)  VALUE "Codigo   Descripcion      Precio".
  48.    
  49. * CORTA TICKET EN COMANDERA <ESC> "i" 
  50.  01 M-3 IS GLOBAL.
  51.     03 M-3-1        PIC X VALUE  X"1B".
  52.     03 M-3-2        PIC X VALUE  X"69".
  53. * esc p m t1 t2 abre cajon m: 0 o 1 t1 t2 segundos
  54.  01 M-4 IS GLOBAL.    
  55.     03 M-4-1        PIC X VALUE  X"1B".
  56.     03 M-4-2        PIC X VALUE  X"70".
  57.     03 FILLER       PIC X(3) VALUE  "011".    
  58.  PROCEDURE       DIVISION.
  59.  DISP-REC SECTION.
  60.      MOVE "LPTTIC" TO FPRINT.
  61.      OPEN OUTPUT IMPRE.     MOVE ZEROS TO W-ROW.
  62.      MOVE FUNCTION CURRENT-DATE TO LINEA-FECHA-AUX.     MOVE L1-D TO L4-DD. MOVE L1-M TO L4-MM. MOVE L1-A TO L4-AA. MOVE L1-S TO L4-SG.
  63.      ACCEPT CURR-TIME FROM TIME.     MOVE CURR-HH TO L4-H.      MOVE CURR-MM TO L4-M.
  64.      
  65.  IMPRIME-CABECERA.
  66.  
  67.      MOVE SPACES TO DATA00.     MOVE DATA00 TO REG-IMPRE.     WRITE REG-IMPRE.
  68.  
  69.      MOVE LINEA-5   TO DATA00.     MOVE DATA00 TO REG-IMPRE.     WRITE REG-IMPRE.
  70.  
  71.      MOVE LINEA-5-1 TO DATA00.     MOVE DATA00 TO REG-IMPRE.     WRITE REG-IMPRE.
  72.      
  73.      MOVE SPACES TO DATA00.     MOVE DATA00 TO REG-IMPRE.     WRITE REG-IMPRE.
  74.  
  75. *CORTAL PAPEL
  76.      MOVE M-3 TO REG-IMPRE.     WRITE REG-IMPRE.     
  77. *ABRE CAJON.
  78.      MOVE M-4 TO REG-IMPRE.     WRITE REG-IMPRE.     
  79.           
  80. *//////////////////////////////////////////////////////////
  81.      CLOSE IMPRE.      
  82.      INVOKE POW-SELF "Execute" USING "IMPRIME.BAT" POW-SWHIDE.
  83.  
  84. El bat lo que es hacer un copy sobre el puerto serie (com1,com2)
  85.  
  86. copy lpttic com1:
  87.  
  88. La impresora declarada en windows debe ser generic solo texto
fastpho is offline   Responder Con Cita