Para generar el QrCode debe llamar a unos programas externos, aquí el ejemplo de código en Fox:
loShell = createobject("WScript.Shell")
lcrutacomprobante='cfdi:Comprobante'
lcrutaemisor='cfdi:Comprobante/cfdi:Emisor'
lcrutareceptor='cfdi:Comprobante/cfdi:Receptor'
lctotal=alltrim(cfdi_xml_atributo(h,lcrutacomprobante,'total'))
lctotal=padreal(lctotal,10,6)
lcqrcode="?re="+cfdi_xml_atributo(h,lcrutaemisor,'rfc')+"&rr="+cfdi_xml_atributo(h,lcrutareceptor,'rfc')+"&tt="+;
lctotal+"&id="+alltrim(cfdi_uuid(h))
loShell.Run('qrcode\qrcode.exe -o "'+lcxml+'.png" "'+lcqrcode+'"',0,.T.)
loShell.Run('qrcode\png2bmp.exe "'+lcxml+'.png"',0,.T.)
release loShell
Vea que también se llama a unas funciones de la dll: cfdi_xml_atributo y cfdi_uuid ,
h es el manejador al CFDI cargado,
lcxml es el nombre del archivo xml, al cual se le agrega el sufijo .png .
Se anexa también la especificación del SAT para el QRcode.
Solicite por correo el directorio con los programas que se deben llamar, la imagen resultante estará en png y bmp .
| Adjuntos: |
|
qrcode.png [ 182.15 KiB | Visto 13961 veces ] |