Uso de QRCodeLib.dll en Visual Foxpro

[nema26]

Buenas tardes!

Alguien tendra un ejemplo de como generar el codigo QR en Visual Foxpro, lo que sucede que acabo de compra la libreria para generar los QR, probando porque el que ya genero con otra libreria, si lo lee la pagina del sat, pero al oprimir el boton validar me dice qeu no ex valida esa informacion y que no existe en el portal, cosa que si capturo a mano si la valida y me muestra los datos fiscales.

Asi es como segun yo y por la libreria CFDLib.dll que estoy utilizando debe ir en este lenguaje, si me muestra la version de la QR, pero a la hora de generar el QR me dice

Declare DLL call caused an exception

y asi es como lo mando llamar, no se si alguien tenga un ejemplo que me haga favor de pasar.

DECLARE string FastQRCode IN ADDBS(SYS(5)+CURDIR()) + 'Include\QRCodeLib.dll' string, string
DECLARE string QRCodeLibVer IN ADDBS(SYS(5)+CURDIR()) + 'Include\QRCodeLib.dll'

MESSAGEBOX( QrCodeLibVer())

cQrData = "https://verificacfdi.facturaelectronica ... lt.aspx?"+;
"id=8B2FC6AC-DD4F-4BA3-AED4-741A2A43C6D8" + "&" +;
"re=GORO770117DB1" + "&" +;
"rr=TAI090312JRA" + "&" +;
"tt=11.60" + "&" +;
"fe=UmN3PJ0="

FastQRCode( cQrData, "D:\ANTEAM\QR_PRUEBA.PNG")


Muchas gracias

[jggtz]

Código: Seleccionar todo

cQrData = "https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx?"+ "&" +;
"id=8B2FC6AC-DD4F-4BA3-AED4-741A2A43C6D8" + "&" +;
"re=GORO770117DB1" + "&" +;
"rr=TAI090312JRA" + "&" +;
"tt=00000011.600000" + "&" +;
"fe=UmN3PJ0="

FastQRCode( cQrData, "D:\ANTEAM\QR_PRUEBA.PNG")

Te falta concatenar un & en primera linea y
el total debe de ser 10 enteros con 6 decimales

[nema26]

Ya se lo agregue pero me sigue marcando el mismo error!


Declare DLL call caused an exception.

[nema26]

ya lo resolvi, muchas gracias !!


lcruta = ADDBS(SYS(5)+CURDIR()) + "QR_NUEVO.PNG"

IF !BITAND( FastQRCode(TData, lcruta), 15) = 0
MESSAGEBOX("no se genero el archivo", 16, "no se genero")
ENDIF

para el que le interese, asi fue como funciono !