Cobol Foro - [Sintaxis] Problemas con comunicación impresoras fiscales.

Cobol Foro (https://www.cobolforo.es/index.php)

- Fujitsu COBOL (https://www.cobolforo.es/forumdisplay.php?f=77)

- - [Sintaxis] Problemas con comunicación impresoras fiscales. (https://www.cobolforo.es/showthread.php?t=1435)

Problemas con comunicación impresoras fiscales.

Hola Coboleros.. tengo que comunicarme con impresora fiscal SAMS4S ELLIX40F. Con la herramienta de comunicación (SAMDRV.EXE) que viene con la impresora, que funciona como el viejo (PFBACH) logre programarla.
Pero ahora tengo que comunicarme por medio de la DLL que viene con la impresora.
Nunca lo hice, leyendo vi que las funciones o protocolos de esta DLL tengo que cargalas en COBOL85.
No se como se hace esto, paso a paso.
Tengo que ejecutar cobol85 y como agrego estos datos.?
powercobol 5
ej:

Código:

SerialPortOpen=Sam4sFiscalDriver.dll

SerialBaudSet=Sam4sFiscalDriver.dll

...

saludos a todos....

Hola @Ale, no he trabajado con este Impresor Fiscal , pero deberias mirar en el manual de la libreria cuales son los miembros de la clase "Sam4sFiscalDriver.DLL" para poder armar el archivo cobol85.cbr y luego
desde tu aplicacion llamar a esas funciones con los parametros que requiera tales miembros y calculo que devolvera un resultado a tales llamadas.

La libreria deberias registrarla , tu aplicacion y el archivo cobol85.cbr deben estar en el misma carpeta

En el foro hay varios ejemplos de como hacer estas llamadas (Ej Epson tm900 Fiscal , Epson no fiscal)

Saludos....

hola y gracias por responderme fastpho.. si si el problema mío es que no se como se registran en cobol85 estas funciones. ej: SerialPortOpen=Sam4sFiscalDriver.dll no se como se hace para entrar al cobol85 e incluir estos compandos..
muchas gracias.. saludos.....

@Ale, el archivo cobol85.cbr es una archivo de texto , los editas con cualquier editor como bloc de notas o notepad etc ....
te quedaria algo asi ejemplo:

Código COBOL:

[MainForm.Entry]
SerialPortOpen=Sam4sFiscaldriver.dll
SerialBaudset=Sam4sFiscaldriver.dll  
AbrirTique=Sam4sFiscaldriver.dll

Luego dentro de tu aplicacion llamas a la funcion :

Código COBOL:

WORKING-STORAGE SECTION.
 01  Respuesta-Impresor       PIC S9(9) COMP-5.
 01  Puerta                               PIC S9(9) COMP-5.
 01  Funcion                             PIC X(50). 
 PROCEDURE DIVISION.
     
     MOVE "SerialPortOpen"   TO Funcion.              
     MOVE 1                              TO Puerta. *>  COM1
 
     CALL Funcion  STDCALL  USING BY VALUE Puerta returning Respuesta-Impresor.

Hay muchos ejemplos en el foro de como implementarlo , bajate alguno y miralos .
Saludos

Muchas Gracias Genio!!. voy a probar si me sale..
abrazo..
Ale.

Ayuda con comunicación por Dll con impresor fiscal

Hola buenas noches. Sigo sin darme cuenta como comunicarme con impresora fiscal sam4s por intermedio de la DLL de la empresa.
no puedo abrir el puerto com1.
Parte del manual de las funciones de la DLL, dice asi:

MANUAL FUNCIONES

A continuación se describen las funciones que contiene la librería.
Ver ejemplos de uso en el Capítulo V y el la carpeta Ejemplos (incluida junto a esta documento).
int SerialPortOpen (int portnum)
Abre el puerto serial.
Parámetros:
portnum: número de puertos serial. Ej.: el COM8 es el 8.
Retorno: 1 en caso de éxito, 0 en caso de error.
int SerialBaudSet (int baudrate)
Establece la velocidad a usar con el puerto serial, debe coincidir con la configurada en el equipo. Por
ejemplo 115200. Llamar antes de SerialPortOpen. No tiene ningún efecto si el equipo se encuentra
conectado por USB.
Retorno: 1 en caso de éxito, 0 en caso de error.
int SerialPortClose ()
Cierra el puerto serial.
Retorno: 1 en caso de éxito, 0 en caso de error.
int IFOpBegin (const char * name)
Comienza a preparar un nuevo comando por nombre.
Parámetros:
name: nombre del comando. Ver comandos disponibles en el Capítulo III.
Retorno: 1 en caso de éxito, 0 en caso de error.
etc..

cargo las funciones y comando de la dll, en el cobol85 asi.

Código:

[tpv.Entry]

SerialPortOpen=Sam4sFiscalDriver.dll

SerialBaudSet=Sam4sFiscalDriver.dll

SerialPortClose=Sam4sFiscalDriver.dll

IFOpBegin=Sam4sFiscalDriver.dll

IFOpSend=Sam4sFiscalDriver.dll

dentro de mi programa.:

Código COBOL:

 WORKING-STORAGE SECTION.
 01 RESPUESTA-IMPRESOR    PIC S9(9) COMP-5.
 01 FUNCION               PIC X(50).
 PROCEDURE       DIVISION.
  inicio.
    MOVE "SerialPortClose ()" to FUNCION.
    CALL FUNCION WITH STDCALL RETURNING RESPUESTA-IMPRESOR.

** cerrar el puerto me funciona, porque según el manual valor 1 = operacion correcta.
ahora cuando quiero abrirlo no me funciona se cierra el programa y no tira ningun error.:

Código COBOL:

WORKING-STORAGE SECTION.
 01 RESPUESTA-IMPRESOR    PIC S9(9) COMP-5.
 01 FUNCION               PIC X(50).
 PROCEDURE       DIVISION.
  inicio.   
    MOVE "SerialPortOpen (1)" to FUNCION.
    CALL FUNCION WITH STDCALL RETURNING RESPUESTA-IMPRESOR.

*** no se que estoy haciendo mal. les agradecería me ayuden si alguno logra darse cuenta.
utilizo Powecobol 5
ahora les pongo un ejemplo en otros lenguajes.

Código VB:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'MsgBox("Sam4sFiscalDriver Version: " + Drv.version)
 
        'Configura velocidad de comunicacion del puerto serial
        Dim baudrate = 9600
        If (Drv.SerialBaudSet(baudrate) = 0) Then
            MsgBox("No se pudo configurar la velocidad " & baudrate)
            Return
        End If
 
        'Abre el puerto serial
        Dim comnum = 8
        If (Drv.SerialPortOpen(comnum) = 0) Then
            MsgBox("No se pudo abrir el puerto serial " & comnum)
            Return
        End If
 
        ' Si hay un documento abierto, lo cancela primero
        Drv.IFOpBegin("DocumentoEnCurso")
        If (Drv.IFOpSend(1) = 0) Then
            CmdError("DocumentoEnCurso")
            Return
        End If
        If (Drv.IFOpRetIntGet("CodigoTipo") <> 0) Then
            Drv.IFOpBegin("Cancelar")
            If (Drv.IFOpSend(1) = 0) Then
                CmdError("Cancelar")
                Return
            End If
        End If
        
        'Ejemplo: Tique
        Drv.IFOpBegin("AbrirTique")
        If (Drv.IFOpSend(1) = 0) Then
            CmdError("AbrirTique")
            Return
        End If
 
        Drv.IFOpBegin("ItemVenta")
        Drv.IFOpParamSet("Descripcion", "Item de prueba")
        Drv.IFOpParamFloatSet("Precio", 1.2345)
        Drv.IFOpParamFloatSet("IVA", 21.0)
        Drv.IFOpParamSet("CodigoProducto", "7791234567898")
        If (Drv.IFOpSend(1) = 0) Then
            CmdError("ItemVenta")
            Return
        End If

---------- Post añadido el 6 de febrero de 2022 a las 02:40 ----------

Perdón. logre encotrarle la vuelta

Código COBOL:

 working...
    01 NPORT                 PIC S9(9) COMP-5.
 
  
    MOVE 1 TO NPORT.
    MOVE "SerialPortOpen" to FUNCION.
    CALL FUNCION WITH STDCALL USING BY VALUE NPORT RETURNING RESPUESTA-IMPRESOR.

ahora no me toma funciones. las envio asi.

Código COBOL:

  MOVE 'IFOpBegin ("CierreZ")' TO FUNCION.
  CALL FUNCION WITH STDCALL using by reference RESPUESTA-IMPRESOR.

el manual explica esto.:

Código CPP:

int IFOpBegin (const char * name)

Comienza a preparar un nuevo comando por nombre.
Parámetros:
• name: nombre del comando. Ver comandos disponibles en el Capítulo III.
Retorno: 1 en caso de éxito, 0 en caso de error.

ejemplo en otro lenguaje..

Código CPP:

drv.IFOpBegin("CierreZ");
 cmd_send(drv);

saludos, perdón por las molestias.. muchas gracias...

Comentario de Moderador

Por favor, usa los botones de resalto de sintaxis para lenguajes de programación que hay en el editor.
También no crees hilos nuevos si ya existe uno tratando el mismo tema ;)

Hola @Ale, podes subir el manual al que haces referencia de la dll para poder ayudarte
Saludos..

Hola y gracias nuevamente Fastpho por responderme..
Estoy un poco mareado con esta impresora, por intermedio de la aplicación Samdrv he podido hacerle funcionar casi todo. Pero no le encontre funciones para asociarle nota de credito a la factura..
Entonces me largue a tratar de comunicarme por intermedio de funciones y protocolos de la dll sams4sFiscalDriver.dll . Adjunto el manual.. lo unico logro hacer hasta ahora como puse en este tema es abrir y cerrar el puerto.. nada mas..
muchas gracias y saludos..

@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:

WORKING-STORAGE SECTION.
 01  Funcion-SAM4-LIB          PIC X(50).
 01  sPort                     PIC S9(9) COMP-5. 
 01  sWait                     PIC S9(9) COMP-5.  
 01  sBaudio                   PIC S9(9) COMP-5. 
 01  Respuesta-Impresor        PIC S9(9) COMP-5 value 0. 
 01  CierreZSam4s              PIC X(7) VALUE "CierreZ". 
 PROCEDURE       DIVISION.
*> BAUDIOS DE COMUNICACION
*SerialBaudSet 
     move spaces            TO Funcion-SAM4-LIB.
     MOVE 115200            TO sBaudio. *> Chequear a que velocidad esta el impresor fiscal OJO !!!!
     MOVE "SerialBaudSet"   TO Funcion-SAM4-LIB.
     CALL Funcion-SAM4-LIB WITH  STDCALL  USING BY VALUE sBaudio      returning Respuesta-Impresor.
     DISPLAY Respuesta-Impresor.     
     IF Respuesta-Impresor NOT = 1
         INVOKE POW-SELF "DisplayMessage" USING "ERROR"
     END-IF.
     
     
*> OPEN  PORT.
*SerialPortOpen
     move spaces             TO Funcion-SAM4-LIB.
     MOVE 1                  TO sPort *> COM1  ,  Chequear en que puerto esta el impresor fiscal OJO !!!!! 
     MOVE "SerialPortOpen"   TO Funcion-SAM4-LIB.
     CALL Funcion-SAM4-LIB WITH  STDCALL  USING BY VALUE sPort      returning Respuesta-Impresor.
     DISPLAY Respuesta-Impresor.
 
     IF Respuesta-Impresor NOT = 1
         INVOKE POW-SELF "DisplayMessage" USING "ERROR"
     END-IF.
          
          
*>CIERRE "Z"     
     move spaces        TO Funcion-SAM4-LIB.
     MOVE "IFOpBegin"   TO Funcion-SAM4-LIB.
     CALL Funcion-SAM4-LIB WITH STDCALL USING BY REFERENCE CierreZSam4s returning Respuesta-Impresor.
     DISPLAY Respuesta-Impresor.
     IF Respuesta-Impresor NOT = 1
         INVOKE POW-SELF "DisplayMessage" USING "ERROR"
     END-IF.
 
     move spaces       TO Funcion-SAM4-LIB.
     MOVE "IFOpSend"   TO Funcion-SAM4-LIB.
     MOVE 1            TO sWait.
     CALL Funcion-SAM4-LIB WITH STDCALL USING BY VALUE sWait returning Respuesta-Impresor.
     DISPLAY Respuesta-Impresor.          
     IF Respuesta-Impresor NOT = 1
         INVOKE POW-SELF "DisplayMessage" USING "ERROR"
     END-IF.

Saludos...

Muchas Gracias Fastpho.. me sirvió tu información, avanzo de apoco cada día.
Ahora me tira error y me cancela el comprobante cuando envio el comando ItemVenta y no se porque.

Código COBOL:

WORKING..
     01 PARAMETRO-VENTA       PIC X(9) VALUE 'ItemVenta'.
 
      MOVE SPACES TO FUNCION5.        
      MOVE "IFOpBegin" TO FUNCION5.
      CALL FUNCION5 WITH STDCALL USING BY REFERENCE PARAMETRO-VENTA RETURNING RESPUESTA-IMPRESOR.

Y lo hago luego de enviar sin errores el comando AbrirTique como corresponde el orden.
me falta poco, pero se me hace cada vez mas complicado..

Muchas Gracias nuevamente...
saludos...