[Duda] Enlazar con servicios web y codigos QR

[lumalma]

Buenos dias a todos
Las Haciendas forales vascas implantan un sistema de envio de las facturas mediante un archivo XML a traves de servicios web RESTful y ademas cada factura en papel o pdf, etc debe llevar un identificador que se debe generar y un codigo QR.
A pesar de haber mirado documentacion al respecto estoy bastante perdido. Todos estos temas no los he tratado nunca y no se por donde empezar ya que el desarrollo que he hecho habitualmente es adaptar las aplicaciones para funcionamiento en modo local o red.
No se como puedo enlazar desde una aplicacion powercobol con una aplicacion que genere codigos QR ni generar una API para enviar el fichero XML. Realmente estoy muy perdido con todos estos temas y, la verdad, un poco desesperado.

Espero haberme explicado bien.

Agradezco por adelantado toda ayuda.

Un saludo

[Joseg]

❞ Buenos dias a todos Las Haciendas forales vascas implantan un sistema de envio de las facturas mediante un archivo XML a traves de servicios web RESTful y ademas cada factura en papel o pdf, etc debe llevar un identificador que se debe generar y un codigo QR. A pesar de haber mirado documentacion al respecto estoy bastante perdido. Todos estos temas no los he tratado nunca y no se por donde empezar ya que el desarrollo que he hecho habitualmente es adaptar las aplicaciones para funcionamiento en modo local o red. No se como puedo enlazar desde una aplicacion powercobol con una aplicacion que genere codigos QR ni generar una API para enviar el fichero XML. Realmente estoy muy perdido con todos estos temas y, la verdad, un poco desesperado. Espero haberme explicado bien. Agradezco por adelantado toda ayuda. Un saludo

QRCode - eu uzo o zint (opensource), posteriormente anexo a imagem a um report (no meu caso Crystal Report)
Exemplo:

        STRING "zint -o " DELIMiTED SIZE
            qrfilename DELIMiTED "  "         ----------------------------------------->> o que fica no qrcode
            " --vers=12 --secure=2 --scale=5 -b 58 -d " DELIMiTED SIZE
            '"' DELIMiTED BY SIZE
            WGSTRING DELIMiTED BY "  "
            '"' DELIMiTED BY SIZE
        INTO REGCOMMAND.
        INVOKE POW-SELF "ExecuteSync" USING REGCOMMAND POW-SWHIDE RETURNING ReturnValue.    

Para JSON dá para fazer tudo com esta ferramenta:
jq

Também existem outras alternativas, ver exemplos neste forum.

[Gusaiello]

Hola @lumalma, por si sirve de algo envié para el concurso un programita que genera un QR.

Esta el fuente con todos los accesorios que necesita (Zint para generar el QR y Magick para cambiarle el formato).

Zint genera la imagen pero con formato .png.

No se si tiene algún parámetro para cambiar ese formato, por use Magick para generar un .jpg.

Espero te sirva.

[lumalma]

Hola

Muchas gracias Joseg y Gusaiello por vuestra rapida respuesta.

Me pondré con ello y ya comentaré mis progresos.

Un saludo

[Fito]

Buen día: En Argentina tenemos el servicio de Factura Electrónica que sería más o meno lo mismo.

Para todo el manejo del webservice, acá hay empresas que se dedican a la producción de Activex u Ejecutables en Batch para realizar este tipo de tarea. Tendrías que ver si en España hay productos de ese estilo, para no tener que ponerte a renegar vos con todos esos temas. Porque más allá de tener que realizar la aplicación, después hay que mantenerlas actualizadas por todo los cambios que el Fisco realiza. De esta manera es más sencillo para nosotros.

Y la parte del QR, todo dependerá qué herramienta utilices para hacer los reportes. En mi caso uso Cobview y ya la ultima versión genera QR.

Saludos...

Fito...

[lumalma]

Muchas gracias Fito

Un saludo

---------- Post añadido : 19:27 ---------- Post anterior : 19:16 ----------

Buenas tardes

Siguiendo los ejemplos de Joseg y Gusaiello he intentado crear un codigo QR con zint e insertarlo en un documento impreso.

Gusaiello, además lo he hecho en bmp ya que con un parámetro se puede crear un codigo QR en bmp.

El texto de ejemplo que estoy utilizando es: TICKETBAI

El problema es que al ejecutar el comando con executesync como comentaba Joseg me devuelve el error +000000005. Si pruebo con texto mas pequeño como "Esto es una prueba" me genera el QR en formato bmp.

Pero si pruebo a introducir el texto largo en el programa que Gusaiello presentó al concurso se genera perfectamente el QR y lo puedo imprimir y al leerlo obtengo la url que he indicado.

En el manual de zint en Zint: Home indican unos errores en el capítulo 5. Using the API pero no viene nada respecto al comentado mas arriba.

He hecho bastantes pruebas y no logro nada. Pongo el código que estoy utilizando:

     01 WTEXTOQR PIC X(256) VALUE SPACES.
     01 WARCHIVOQR PIC X(8192) VALUE SPACES.
 
     MOVE SPACES TO WARCHIVOQR WTEXTOQR
     MOVE "CODQR.BMP;" TO WARCHIVOQR
     MOVE "https://tbai.egoitza.gipuzkoa.eus/qr/?id=TBAI-44619360G-261020-EzyQEMtxw37Gm-161&s=TB-2020-F&nf=419&i=1542.75&cr=182;" TO WTEXTOQR
*     MOVE "Esto es una prueba;" TO WTEXTOQR
     STRING "zint.exe -o " DELIMITED BY SIZE
        WARCHIVOQR DELIMITED BY ";"
        " --vers=4 --secure=2 --scale=5 -b 58 --filetype=BMP -d " DELIMITED BY SIZE
        '"' DELIMITED BY SIZE
        WTEXTOQR DELIMITED BY ";"
        '"' DELIMITED BY SIZE
        INTO WLINEACOMANDO.
*     INVOKE POW-SELF "ExecuteSync" USING WLINEACOMANDO POW-SWHIDE
*                                   RETURNING WRETURNVALUE2
     INVOKE POW-SELF "ExecuteSync" USING WLINEACOMANDO
                                   RETURNING WRETURNVALUE2
     display "WRETURNVALUE2: " WRETURNVALUE2
 
     MOVE "B" TO EDIT-MODE OF BM-CODQR OF IFactuVT
     MOVE "CODQR.BMP" TO BM-CODQR OF IFactuVT

Muchas gracias

Un saludo

[Fito]

Hola:

Estás usando en ZINT de Gustavo u otra versión? porque esa versión no tiene para trabajar con BMP.

Sacale --filetype=BMP y generalo en PNG

Saludos...

Fito...

[Gusaiello]

❞ Gusaiello, además lo he hecho en bmp ya que con un parámetro se puede crear un codigo QR en bmp.

Pues esta parte no se la encontré por ningun lado. Claro, asi te ahorras el paso de convertir el .png a otro formato.
En mi caso lo necesito en .bmp o .jpg que son los formatos gráficos que puedo leer con Acu.

---------- Post añadido : 16:45 ---------- Post anterior : 16:41 ----------

❞ Estás usando en ZINT de Gustavo u otra versión? porque esa versión no tiene para trabajar con BMP

Ah, entonces no es que no lo encontré, es que no lo tiene.
Gracias @Fito, entonces no soy tan burro

Agrego : buscando por ahi encontré otro programa para generar QR : qrencode, se usa mas o menos como Zint, por un lado tiene menos limitaciones, pero por otro lado no corre bajo XP.

Y...si... tengo algunos clientes que aún usan XP.

[fastpho]

Buenas
Esta ocx que subio Rapinto
en este link [Componente] Imprimir código QR - COBOL Foro
Genera qr-code en formato .jpg .png .bmp sin problemas

        move "TEXT" OF EncodeTxt to "TextToEncode" OF qrcode1.
         
          move "filepng.png" to "ImageFileName" OF qrcode1.
          INVOKE qrcode1 "Refresh".
          INVOKE qrcode1 "SavePicture".
          
         move "filebmp.bmp" to "ImageFileName" OF qrcode1.
          INVOKE qrcode1 "Refresh".
          INVOKE qrcode1 "SavePicture".
          
          
         move "filejpg.jpg" to "ImageFileName" OF qrcode1.
          INVOKE qrcode1 "Refresh".
          INVOKE qrcode1 "SavePicture".

Saludos

[Joseg]

❞ Pues esta parte no se la encontré por ningun lado. Claro, asi te ahorras el paso de convertir el .png a otro formato. En mi caso lo necesito en .bmp o .jpg que son los formatos gráficos que puedo leer con Acu. ---------- Post añadido : 16:45 ---------- Post anterior : 16:41 ---------- Ah, entonces no es que no lo encontré, es que no lo tiene. Gracias @Fito, entonces no soy tan burro Agrego : buscando por ahi encontré otro programa para generar QR : qrencode, se usa mas o menos como Zint, por un lado tiene menos limitaciones, pero por otro lado no corre bajo XP. Y...si... tengo algunos clientes que aún usan XP.

Também uso isto para o efeito:
Mais detalhes: ImageMagick - Convert, Edit, or Compose Digital Images

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  REGCOMMAND             PIC X(4096).
 01  WSTEXTOENC             PIC X(4096).
 01  ReturnValue            pic s9(5) comp-5.
 PROCEDURE       DIVISION.
    MOVE qrfilename TO qrfileconv.
    inspect qrfileconv replacing ALL ".png" BY ".bmp".
    INITIALIZE REGCOMMAND.
    STRING "magick convert " DELIMiTED SIZE
           qrfilename DELIMiTED "  "
           " "  DELIMiTED BY SIZE
           qrfileconv DELIMiTED "  "
           INTO REGCOMMAND.
    INVOKE POW-SELF "ExecuteSync" USING REGCOMMAND POW-SWHIDE RETURNING ReturnValue.
    display "Convert ReturnValue " ReturnValue.