Tema: Problemas con comunicación impresoras fiscales.
Ver Mensaje Individual
  #9
Antiguo 7 de febrero de 2022, 15:35
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
Tableta Informe Z Sam4s
0
Likes

None...

Inactivo Inactivo
@Ale,estuve viendo el manual tiene 2 librerias una para 32 y otra 64 bits , tenes que usar la 32
aparentemente no hay que registrarla solo copiarla dll en la carpeta del proyecto por lo que dice el manual .

Encontre en google un grupo de Visual FoxPro un programa en Python completo con todas las funciones te puede servir de ejemplo para traducirlo al powercobol.


y te paso el link del grupo para que leas los problemas que tienen con la libreria .....
https://groups.google.com/g/publices...m/Q-fexaz_AQAJ

Ejemplo para hacer una Informe Z

Código COBOL:
  1. WORKING-STORAGE SECTION.
  2.  01  Funcion-SAM4-LIB          PIC X(50).
  3.  01  sPort                     PIC S9(9) COMP-5. 
  4.  01  sWait                     PIC S9(9) COMP-5.  
  5.  01  sBaudio                   PIC S9(9) COMP-5. 
  6.  01  Respuesta-Impresor        PIC S9(9) COMP-5 value 0. 
  7.  01  CierreZSam4s              PIC X(7) VALUE "CierreZ". 
  8.  PROCEDURE       DIVISION.
  9. *> BAUDIOS DE COMUNICACION
  10. *SerialBaudSet 
  11.      move spaces            TO Funcion-SAM4-LIB.
  12.      MOVE 115200            TO sBaudio. *> Chequear a que velocidad esta el impresor fiscal OJO !!!!
  13.      MOVE "SerialBaudSet"   TO Funcion-SAM4-LIB.
  14.      CALL Funcion-SAM4-LIB WITH  STDCALL  USING BY VALUE sBaudio      returning Respuesta-Impresor.
  15.      DISPLAY Respuesta-Impresor.     
  16.      IF Respuesta-Impresor NOT = 1
  17.          INVOKE POW-SELF "DisplayMessage" USING "ERROR"
  18.      END-IF.
  19.      
  20.      
  21. *> OPEN  PORT.
  22. *SerialPortOpen
  23.      move spaces             TO Funcion-SAM4-LIB.
  24.      MOVE 1                  TO sPort *> COM1  ,  Chequear en que puerto esta el impresor fiscal OJO !!!!! 
  25.      MOVE "SerialPortOpen"   TO Funcion-SAM4-LIB.
  26.      CALL Funcion-SAM4-LIB WITH  STDCALL  USING BY VALUE sPort      returning Respuesta-Impresor.
  27.      DISPLAY Respuesta-Impresor.
  28.  
  29.      IF Respuesta-Impresor NOT = 1
  30.          INVOKE POW-SELF "DisplayMessage" USING "ERROR"
  31.      END-IF.
  32.           
  33.           
  34. *>CIERRE "Z"     
  35.      move spaces        TO Funcion-SAM4-LIB.
  36.      MOVE "IFOpBegin"   TO Funcion-SAM4-LIB.
  37.      CALL Funcion-SAM4-LIB WITH STDCALL USING BY REFERENCE CierreZSam4s returning Respuesta-Impresor.
  38.      DISPLAY Respuesta-Impresor.
  39.      IF Respuesta-Impresor NOT = 1
  40.          INVOKE POW-SELF "DisplayMessage" USING "ERROR"
  41.      END-IF.
  42.  
  43.      move spaces       TO Funcion-SAM4-LIB.
  44.      MOVE "IFOpSend"   TO Funcion-SAM4-LIB.
  45.      MOVE 1            TO sWait.
  46.      CALL Funcion-SAM4-LIB WITH STDCALL USING BY VALUE sWait returning Respuesta-Impresor.
  47.      DISPLAY Respuesta-Impresor.          
  48.      IF Respuesta-Impresor NOT = 1
  49.          INVOKE POW-SELF "DisplayMessage" USING "ERROR"
  50.      END-IF.
Saludos...
fastpho is offline   Responder Con Cita