Buenas noches:
Estoy utilizando delphi 7
Necesito imprimir el codigo QR en las facturas. Ya tengo el componente que imprime el Codigo y puedo armé el string.
Ejemplo:
mensaje:='hola loco';
qr.Text:=mensaje;
Imprimo la factura y escaneo el codigo y se lee.. "Hola loco".
Ahora bien, hay que armar un string con los campos de la factura, pero ese string hay que codificarlo de alguna manera y luego cargarlo al qr.
Ej,
mensaje:='{"factura": 123456, "fecha ":2023-09-10 ..... etc etc}'
mensaje:=fcodificarQR(mensaje);
qr.Text:=mensaje;
ni idea de como es ese fcodificarQR
El link de las especificaciones de la AFIP, están mas abajo, pero son muy claras para quien ya sabe la respuesta.
y les copio el ejemplo de JSON y el codificado.
Si alguien sabe por donde iniciar esto, se lo agradezco.
Saludos
https://www.afip.gob.ar/fe/qr/especificaciones.asp
JSON con datos del comprobante:
{"ver":1,"fecha":"2020-10-13","cuit":30000000007,"ptoVta":10,"tipoCmp":1,"nroCmp":94,"importe":12100,"moneda":"DOL","ctz":65," tipoDocRec":80,"nroDocRec":20000000001,"tipoCodAut":"E","codAut":70417054367476}
Texto codificado en el QR:
https://www.afip.gob.ar/fe/qr/?p=eyJ...A1NDM2NzQ3Nn0=