Generando codigos QR con aplicacion QRFACIL.EXE

[DIEGO]

Estimados:

                    Atrasado como siempre, estoy intentando generar el codigo QR para Afip Argentina, con la aplicacion QRFACIL.exe de Sergio Castellari y me esta dando el siguiente error .

"Parametro cModo NO RECONOCIDO"

La variable ccadenaqr contiene:

"'QR;30680903375;2020-02-28;3;1;8291;52057;PES;1;80;30680903375;E;70093822103364'"

La variable crun contiene:

"Z:\MANTENIMIENTO\pdf\qr\qrfacil.exe "

Shellexecute  se declara :

Declare Integer ShellExecute In shell32.Dll ;

Integer hndWin, ;

String cAction, ;

String cFileName, ;

String cParams, ;

String cDir, ;

Integer nShowWin

y se ejecuta

ShellExecute(0,"",crun,ccadenaqr,"",0)

Gracias por la ayuda

[Esteban Herrero]

Hola.

Teniendo una clase genial como es FoxBarcodeQR q se integra a la perfeccion con VFP, p q queres usar un exe externo p generar el QR, la verdad no lo entiendo.

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/6f03ec30-f907-4b01-b017-28b92b5318abn%40googlegroups.com.

[DIEGO]

Esteban, me parecio una buena idea probar con la aplicacion , ya que es un aporte a la comunidad.

FoxBarcodeQR, tambien lo voy a utilizar para reemplazar todos los desarollos que tengo con Foxbarcode.

Pero lo que yo estaba buscando con el hilo que abri, es si me pueden ayudar a resolver el problema con esta aplicacion.

Igualmente, agradecido por tu colaboracion.

[Javier]

buenas tardes, queria pedir ayuda si alguien puede con el ejemplo de Qr para afip, con foxbarcodeqr, no logro que funcione en un reporte. me manda a la pagina de qr....de afip,  pero no valida nada. En cambio si leo el qr  generado en el formulario eiemplo si me lleva al pagina de validación.

espero haberme explicado bien. gracias

[Sergio Castellari]

Hola Javier,

Soy el creador de QRFacil, ¿Necesitas ayuda sobre su uso? ¿Necesitas descargar la ultima version?

Actualmente el servicio de AFIP para validación de comprobantes mediante QR, esta FUNCIONANDO!!!

Los QR generados por QRFacil funcionan correctamente enviandote a la pagina de validación con todos los datos leidos. Luego resta completar el capcha (humano) solicitado por AFIP.

Saludos,

Sergio Castellari

Link QRFacil 1.08.44 ---> https://mega.nz/file/IA1UDT6Q#Z0dBOfOqXWVZNeyoz-10R1ZgQcLX7y-szegUkZJl770

(incluye ayuda en PDF ya que QRFacil puede generar otros tipos de códigos muy utiles)

[Javier Barrera]

Hola Sergio!

Muchas gracias por compartir tus conocimientos. He probado el ejecutable y he obtenido estos resultados:

DECLARE INTEGER ShellExecute IN shell32.dll ;
  INTEGER hndWin, ;
  STRING cAction, ;
  STRING cFileName, ;
  STRING cParams, ;  
  STRING cDir, ;
  INTEGER nShowWin

=ShellExecute(0,"","QRFacil","PDF417;Tambien es simple crear un código PDF417 con QRFacil !!!","", 1)

y el resultado que obtengo en el pdf417.jpg es "Tambien".

Si ejecuto:

 =ShellExecute(0,"","QRFacil","PDF417;TambienessimplecrearuncódigoPDF417conQRFacil!!!","", 1)

El resultado es "TambienessimplecrearuncCtAmbienessimplecrearunc@86:pDF417conQRFacil!!!"

Creo que cuando encuentra un espacio en blanco se para y cuando hay un acento lo convierte mal.

Saludos,

[Jorge Strumia]

Hola a todos, yo genero el QR por el aplicativo de Sergio.

Lo hago de la siguiente manera: genero un archivo .bat con todos los parámetros

'30680903375;2020-02-28;3;1;8291;52057;PES;1;80;30680903375;E;70093822103364' = codigoqr

Armo el archivo .bat con: 'QRFacil.exe '+'"Qr;'+codigoqr+'"' en la carpeta de QRFacil (yo lo llamo consul.bat)

* PARA EJECUTAR un archivo.bat (que lo ejecute)
cComando = "c:\qrfacil\consul.bat"
oShell = createobject("WScript.Shell")
*oShell.Run(cComando,SW_SHOW_NORMAL,.T.)
oShell.Run(cComando,0,.T.)

Y ahí me genera el .jpg, que lo pego en el reporte (ej: C001-00005-000001110)

Saludos.

Jorge Strumia

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/98404f5e-70e7-49c9-9846-b70c8e9cfcc3n%40googlegroups.com.

[Sergio Castellari]

Hola Javier,

 

Creo que estas usando comillas DOBLES en el “texto” a enviar. Mira el ejemplo que adjunto en el PDF, va con comillas simples.

 

Acabo de probar el ejemplo, y en mi caso sale correctamente.

 

¿Puedes probar lo que indico y decirme el resultado?

 

Saludos,

Sergio Castellari

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---

Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/xlEjxfU1C_w/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/87a36d41-7cdf-42df-9d68-07952f7ba6b4n%40googlegroups.com.

[Sergio Castellari]

Hola Jorge!!!!

 

Muchas GRACIAS por compartir tu “método”.

Ojalá le sirva a Javier!

 

Saludos,

Sergio Castellari

Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/xlEjxfU1C_w/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMrb3o29GP9%2BEW4dK9EzE2kijBf3tyRzA6-4q2vVFuyeFPN7Vg%40mail.gmail.com.

[Javier Barrera]

Hola Sergio,

Cambiando las comillas doble " por simples ' el resultado es el mismo

DECLARE INTEGER ShellExecute IN shell32.dll ;
  INTEGER hndWin, ;
  STRING cAction, ;
  STRING cFileName, ;
  STRING cParams, ;  
  STRING cDir, ;
  INTEGER nShowWin

=ShellExecute(0,'','QRFacil','PDF417;Tambien es simple crear un código PDF417 con QRFacil !!!','', 1)

Saludos,

Javier Barrera

Zaragoza - España.

[Sergio Castellari]

Javier,

 

Acabo de hacer esto en mi equipo:

cParam:='"PDF417;Tambien es Simple crear un codigo PDF417 con QRFacil !!!"'

ShellExecute(0,"","QRFACIL",cParam)

 

Y genera perfectamente el archivo PDF417.jpg

 

OBSERVA que para que funcione correctamente, DEBES colocar comillas SIMPLES y luego comillas DOBLES en la cadena de parámetros (información NO descripta en la versión 1.08.44). Evidentemente SHELLEXCUTE tiene un comportamiento incompatible con “espacios” dentro de los parámetros…

 

NOTA: En el ejemplo original coloco un texto con acento “código”, y la realidad es que el formato PDF417, no acepta acentos ni otros caracteres especiales (aquí una guía de referencia: https://hmong.es/wiki/PDF417)

 

Saludos y cualquier duda, aquí estoy…

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/b0b65ad7-f556-4372-a47b-70b57fbb43b0n%40googlegroups.com.

[Sergio Castellari]

Hola gente,

 

Observando algunas consultas, he subido una nueva versión de QRFacil, que simplemente “mejora” la información de ayuda provista para evitar dolores de cabeza innecesarios, además de corregir ejemplos donde no se cumple con las características de codificación del “cModo” seleccionado.

 

Link de descarga: https://mega.nz/file/UN1TABBD#lbNWazMj2zP5WbEMHx7iZi1kP56xO9LQUy5bE4ne3Rg

 

Por supuesto cualquier observación será bienvenida!!

 

NOTA: esta nueva versión solo mejora la ayuda para hacerla más clara. Básicamente no se agrega ni quita ninguna funcionalidad existente.

 

Saludos,

Sergio Castellari

 

 

 

[Javier Barrera]

Hola Sergio,

El código de esta manera funciona perfectamente:

DECLARE INTEGER ShellExecute IN shell32.dll ;
  INTEGER hndWin, ;
  STRING cAction, ;
  STRING cFileName, ;
  STRING cParams, ;  
  STRING cDir, ;
  INTEGER nShowWin
 

cParam=["PDF417;Tambien es Simple crear un codigo PDF417 con QRFacil !!!"]

ShellExecute(0,"","QRFACIL",cParam,"", 1)

Muchas gracias por tu interés.

Saludos,

[Javier Barrera]

He seguido probando el programa y he observado al generar código "QR_FREE"

QRFacil.exe "QR_FREE;QRFacil.exe, fue hecho para ayudar a los colegas. Buena Suerte !!! "

se obtiene la imagen que aparece en la documentación (QRFacil.pdf) como la que se adjunta. Esta imagen da error al decodificarla. He observado que los 55 primeros caracteres lo hace bien, después el resultado es erróneo.

Saludos,

[Sergio Castellari]

Javier,

 

Acabo de “leer” la imagen que adjuntas, y se lee perfectamente, no encuentro error…

 

Saludos,

Sergio

 

NOTA: las imágenes del PDF de ayuda no fueron actualizadas con los nuevos cambios en los “textos” de ejemplo.

--

Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/xlEjxfU1C_w/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/b8e87efa-3ce4-4ea7-bca4-e4b4b3cfd5d7n%40googlegroups.com.

[matr...@gmail.com]

Hola. Yo ejecuto lo siguiene:

DECLARE INTEGER ShellExecute IN shell32.dll ;
  INTEGER hndWin, ;
  STRING cAction, ;
  STRING cFileName, ;
  STRING cParams, ;  
  STRING cDir, ;
  INTEGER nShowWin

ShellExecute(0,"","QRfacil.exe","QR;20166858888;2020-10-03;1;94;125.32;PES;1;80;20166858888;E;70235874687124")

Con comillas simples o dobles siempre me devuelve el error Too Few Arguments.

Alguien me da una manito

Con los mismos datos desde la ventana de comandos anda perfecto

[Javier Barrera]

Hola,

Este código genera la imagen

DECLARE INTEGER ShellExecute IN shell32.dll ;
  INTEGER hndWin, ;
  STRING cAction, ;
  STRING cFileName, ;
  STRING cParams, ;  
  STRING cDir, ;
  INTEGER nShowWin
 

cParam=["QR_FREE;QR;20166858888;2020-10-03;1;94;125.32;PES;1;80;20166858888;E;70235874687124"]
cDir ="p:\temporal\QRFacil_1_08_50\"

ShellExecute(0,"","QRFACIL",cParam,cDir, 1)

Pero a mí la imagen jpg que se genera no la puedo leer, parece como que la imagen no cabe en el recuadro.

Saludos,

[torof...@gmail.com]

Buenos dias, tiene el qrfacil actualizado donde se le pueda dar como parametro el archivo .jpg generado y no  siempre sea qrfree.jpg sino el archivo con el nombre que deseo

[Elides Paredes]

Estimados amigos, he tratado de crear códigos QR con mucho texto y no funciona. Aunque con textos cortos si queda bien con  foxbarcodeqr .

Tengo entendido que se pueden guardar imágenes, es eso posible o estoy en un error?

gracias..

Elides Paredes, Barquisimeto Venezuela