Generar código QR en Crystal Report

Estoy utilizando el siguiente código para generar el Código QR para la validación en SAT en un formato de factura en Crystal Reports… me pueden indicar que esta mal:

código:

IF {Factura.DocCur}='USD' THEN
URLEncode("https://qrickit.com/api/qr.php?d=") +
URLEncode("https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx?"
+"%26id="+toText({Timbre.tfd_uuid})
+("%26re="+totext({Factura.TaxIdNum})
+"%26rr="+totext({Factura.LicTradNum})
+"%26tt="+toText({Timbre.comprobante_total})
+"%26fe="+toText(Right ({Timbre.tfd_sellocfd},8))),1," ")
ELSE
URLEncode("https://qrickit.com/api/qr.php?d=") +
URLencode("https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx?" 
+"%26id="+toText({Timbre.tfd_uuid})
+("%26re="+totext({Factura.TaxIdNum})
+"%26rr="+totext({Factura.LicTradNum})
+"%26tt="+toText({Timbre.comprobante_total})
+"%26fe="+toText(Right ({Timbre.tfd_sellocfd},8))),1," ")

Mas bien, que error te marca o que detalle encuentras?

Hace algunos

días tenía el mismo servidor para generar el código, pero ya no mostraba el código, solo la imagen y resulta que ya no funciona. Mi partner me proporciono el servidor de ellos y todo resuelto.

No marca ningún error, simplemente no genera el código QR en la factura. He intentado con otros servicios como;

  1. URLEncode(“http://chart.apis.google.com/chart?cht=qr&chs=200x200&chl=”) --> aquí si marca un error, que no se puede conectar a la BD.
  2. https://zxing.org/w/chart?cht=qr&chs=350x350&chld= --> no lo genera y no marca error.

Me puedes pasar el dato a lo mejor podemos hacer alguna clase de trato

Varios de esos servicios en linea se caen y pasa ese detalle. La solución es un desarrollo local o de plano buscar otro servicio que te pueda servir.

Tengo este, pruebalo para ver si te sirve.

"http://qrcode.kaywa.com/img.php?s=4&d="

Me encantaría, pero no te va a servir, ya que el partner tiene que dar de alta el RFC en su servidor para que pueda funcionar, pero como dice @juliancab intenta con otro servidor gratuito

1 me gusta

creo que mi partner aun no hace lo que hace el de america, te anexo la liga al tema:

1 me gusta

Julian, muchas gracias con el link que me pasaste ya me esta generando el código QR, ahora estoy batallando con el “&” no me lo reconoce.

URLEncode("http://qrcode.kaywa.com/img.php?s=4&d=")+
URLencode("https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx?"
+"%26id="+toText({Timbre.tfd_uuid})
+"%26re="+totext({Factura.TaxIdNum})
+"%26rr="+totext({Factura.LicTradNum})
+"%26tt="+toText({Timbre.comprobante_total})
+"%26fe="+toText(Right({Timbre.tfd_sellocfd},8)))

BUEN DIA TRATA CON LO SIGUIENTE:

SALUDOS

no tengo esa opción:

mi versión de CR es 2013

Factura y Nota de Credito

IF {Comando.DOCCUR}='MXP'
THEN URLEncode("http://www.algoryt.com/qr/qr-generator.php?") + URLEncode("https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx" +  "?id=" + toText({Comando.ReportID}) + "&re=" + {Comando.TAXIDNUM} + "&rr=" + {Comando.LICTRADNUM}+ "&tt=" + toText({Comando.DOCTOTAL}-{Comando.WTSUM},"0.000000",6 ) + "&fe=" + toText(RIGHT({Comando.U_B1SYS_SignDigest},8)))

ELSE URLEncode("http://www.algoryt.com/qr/qr-generator.php?") + URLEncode("https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx" +  "?id=" + toText({Comando.ReportID}) + "&re=" + {Comando.TAXIDNUM} + "&rr=" + {Comando.LICTRADNUM}+ "&tt=" + toText({Comando.DOCTOTALFC}-{Comando.WTSUMFC},"0.000000",6 ) + "&fe=" + toText(RIGHT({Comando.U_B1SYS_SignDigest},8)))

Complemento de Pagos

IF {Comando.DocCurr}='MXP'
THEN URLEncode("http://www.algoryt.com/qr/qr-generator.php?") + URLEncode("https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx" + "?id=" + toText({Comando.ReportID}) + "%re=" + {Comando.TAXIDNUM} + "%rr=" + {Comando.LICTRADNUM}+ "%tt=" + toText({Comando.DocTotal},"0.000000",6 ) + "%fe=" + toText(RIGHT({Comando.U_B1SYS_SignDigest},8)))

ELSE URLEncode("http://www.algoryt.com/qr/qr-generator.php?") + URLEncode("https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx" + "?id=" + toText({Comando.ReportID}) + "%re=" + {Comando.TAXIDNUM} + "%rr=" + {Comando.LICTRADNUM}+ "%tt=" + toText({Comando.DocTotalFC},"0.000000",6 ) + "%fe=" + toText(RIGHT({Comando.U_B1SYS_SignDigest},8)))

Pon el amperson como tal.

Estoy en las mismas, tengo el mismo problema al pasar el “&”

http://chart.apis.google.com/chart?cht=qr&chs=250x250&chl=” +
URLEncode(“https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx?"
+”%2526id="+{@FOLIO_FISCAL}
+"%2526re="+{OADM.TaxIdNum}
+"%2526rr="+{OINV.LicTradNum}
+"%2526tt="&ToText({@DOC_TOTAL} ,“0.000000”,6)
+"%2526fe="+right({@SELLO_CFDI},8),0)

Primero que nada y antes de todo, muchas Gracias Daniel_Torrez! me funcionó con la ayuda que me proporcionaste.
URLEncode("http://www.algoryt.com/qr/qr-generator.php?")+URLencode("https://verificacfdi.facturaelectronica.sat.gob.mx/default.aspx?"+"&id="+{Timbre.tfd_uuid}+"&re="+{Factura.TaxIdNum}+"&rr="+{Factura.LicTradNum}+"&tt="+{Timbre.comprobante_total}+"&fe="+toText(Right({Timbre.tfd_sellocfd},8)))

Creo tu detalle estaba en que usas codigos de ESC para generar el &.

1 me gusta

Es probable, lo cambie directamente como lo indicaste, gracias Julián, por el aporte

Este tema se cerró automáticamente 91 días después de la última publicación. No se permiten nuevas respuestas.