Tema: Manejo OCX impresora Fiscal Epson nueva generación
Ver Mensaje Individual
  #73
Antiguo 13 de agosto de 2019, 23:01
Fito
Guardián del Foro
Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos de parte de los Foreros Guardián del Foro: Guardián del espíritu y clima del Foro - Issue reason: Por el Avatar Activista del Foro: Activista del Foro - Issue reason: Por aportar ideas 
Última Actividad 01.10.2026 22:19
Posts Posts: 458
Likes enviados Enviados: 271
Likes recibidos Recibidos: 243
Predeterminado
0
Likes

None...

Inactivo Inactivo
Holaaa:

Estoy renegando con la Epson TM-T900FA, ya pude hacer un X y un Z. Pero ahora quiero recuperar desde la impresora el puesto de venta y no logro hacerlo. Mando un comando OBTENER ID que en el campo 5 tiene el puesto de venta y no logro nada.

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  
  3.  01  LINEA-OBTENER-ID    pic xx value X"0005".
  4.  01  LINEA-EXTRA         pic xx value X"0000".
  5.  
  6.  01  xsucursal           pic x(500).
  7.  01  redefines xsucursal.
  8.      02 wsucursal        pic 99999.
  9.      02                  pic x(495).
  10.  
  11.  01  variables-nuevas.
  12.      02 BufferLen           pic s9(9) comp-5.
  13.      02 campo               pic s9(9) comp-5.
  14.  
  15.  PROCEDURE       DIVISION.
  16.  
  17. *...... Obtener el punto de venta ..................................     
  18.      move "OpenPort"       to Epson
  19.      call Epson with stdcall using by reference version.     
  20.  
  21.      move "Purge"          to Epson
  22.      call Epson with stdcall using by reference version.     
  23.  
  24.      move 2                to BufferLen
  25.      move "AddDataField"   to Epson
  26.      call Epson with stdcall using by reference LINEA-OBTENER-ID
  27.                                    by value     BufferLen 
  28.      
  29.      move 2                to BufferLen
  30.      move "AddDataField"   to Epson
  31.      call Epson with stdcall using by reference LINEA-EXTRA
  32.                                       by value     BufferLen.
  33.      
  34.      move "SendCommand"    to Epson
  35.      call Epson with stdcall using by reference version.
  36.      
  37.      move "GetExtraField"  to Epson
  38.      move 5                to campo
  39.      move 5                to BufferLen
  40.      call Epson with stdcall using by value campo 
  41.                                    by reference xsucursal
  42.                                    by value BufferLen.
  43.                                    
  44.      move wsucursal        to suc-default.
  45.  
  46.      invoke pow-self "DisplayMessage" using xsucursal.
  47.  
  48.      
  49.      move "ClosePort"      to Epson
  50.      call Epson with stdcall using by reference version.     
  51. *...... /Obtener el punto de venta ..................................    

Si alguien tiene una idea, bienvenida sea.

Saludos.

Fito...
Fito is offline   Responder Con Cita