Tema: Epson TM900FA
Ver Mensaje Individual
  #4
Antiguo 6 de junio de 2021, 17:41
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
@drvedia1981, hay campos que son obligatorios , los que no uses como la descripcion extra en el bufer lo mandas en 0 , te paso un ejemplo , como seria
Código COBOL:
  1. WORKING-STORAGE SECTION.
  2.  
  3.  01 Descripcion             pic x(20) value "Venta de item       ".
  4.  01 Descripcion-Extra-1     pic x(20) value spaces.
  5.  01 Cantidad                pic 9(9). 
  6.  01 Precio                  pic 9(11).
  7.  01 Iva                     pic 9(4).
  8.  PROCEDURE       DIVISION.
  9.     
  10.      MOVE 20             TO BufferLen
  11.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  12.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE Descripcion
  13.                                        BY VALUE BufferLen     
  14.  
  15.      MOVE 0              TO BufferLen
  16.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  17.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE Descripcion-Extra-1
  18.                                             BY VALUE BufferLen     
  19.  
  20.      MOVE 9              TO BufferLen
  21.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  22.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE Cantidad
  23.                                             BY VALUE BufferLen     
  24.      MOVE 11             TO BufferLen
  25.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  26.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE Precio
  27.                                             BY VALUE BufferLen     
  28.  
  29.      MOVE 4              TO BufferLen
  30.      MOVE "AddDataField" TO FUNC-EPSON-LIB
  31.      CALL FUNC-EPSON-LIB WITH STDCALL USING BY REFERENCE Iva
  32.                                             BY VALUE BufferLen    
Saludos
fastpho is offline   Responder Con Cita