FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Esto último no se copió.
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} |
#2
|
||||
|
||||
Texto codificado en el QR:
https://www.afip.gob.ar/fe/qr/?p=eyJ...A1NDM2NzQ3Nn0= esto es lo que hay que conseguir |
#3
|
||||
|
||||
Tal vez se me escapa algo, pero por lo que he entendido...
1) Montar un JSON con los datos que te piden: Cita:
2) Codificar ese JSON en base64; Con esa codificación obtienes esto: Cita:
3) Con eso montas la URL, añadiendo delante esto: https://www.afip.gob.ar/fe/qr/?p= Resultado es esta URL: Cita:
(https://qrcode.tec-it.com/es) 5) y puedes probar a "decodificarlo" en este web: https://www.codigos-qr.com/lector-qr-online/ Y volverás a obtener el texto: Cita:
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#4
|
||||
|
||||
Para crear la imagen QR utilizo el componente TDelphiZXingQRCode
Lo puedes descargar en https://github.com/foxitsoftware/DelphiZXingQRCode Luego hice un procedimiento que me devuelve un TBitmap del mismo
Y lo utilizo para la imagen que voy a imprimir.
|
#5
|
||||
|
||||
Buen día:
Gracias por responder. lo que no sé como hacer es : "Codificar ese JSON en base64" |
#6
|
||||
|
||||
Yo utilizo una unidad que utiliza las librerías de windows para hacer eso...
Pasa de Stream a string y el string está codificado en Base64 También decodifica. Para utilizarlo con un string -> string deberás crear un TMemoryStream de la cadena (JSON) y pasárselo.
|
#7
|
||||
|
||||
Un ejemplo de utilización completa sería:
Última edición por duilioisola fecha: 20-09-2023 a las 15:49:19. |
#8
|
||||
|
||||
Ya te han puesto ejemplos. En la docwiki de embarcadero tienes información de cómo hacerlo. Las versiones nueva ya incluyen lo necesario para hacerlo. https://docwiki.embarcadero.com/Libr...coding_Methods Esta clase: System.NetEncoding.TBase64Encoding se describe como: Provides methods to encode and decode data in base64 format. Posee métodos de clase que puedes llamar directamente. Y algún ejemplos: For example: Encode('Example') returns 'RXhhbXBsZQ=='. Decode('RXhhbXBsZQ==') returns 'Example'.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#9
|
||||
|
||||
Casi Casi
Buenos días:
Estoy probando la función que pasó duilioisola. El tema es que codifica bien hasta la posición 164, luego comienzan las diferencias.. esto debería dar: eyJ2ZXIiOjEsImZlY2hhIjoiMjAyMC0xMC0xMyIsImN1aXQiOjMwMDAwMDAwMDA3LCJwdG9WdGEiOjEwLCJ0aXBvQ21wIjoxLCJu cm9DbXAiOjk0LCJpbXBvcnRlIjoxMjEwMCwibW9uZWRhIjoiRE9MIiwiY3R6Ijo2NSwidGlwb0RvY1JlYyI6ODAsIm5yb0RvY1Jl YyI6MjAwMDAwMDAwMDEsInRpcG9Db2RBdXQiOiJFIiwiY29kQXV0Ijo3MDQxNzA1NDM2NzQ3Nn0 esto da: eyJ2ZXIiOjEsImZlY2hhIjoiMjAyMC0xMC0xMyIsImN1aXQiOjMwMDAwMDAwMDA3 LCJwdG9WdGEiOjEwLCJ0aXBvQ21wIjoxLCJucm9DbXAiOjk0LCJpbXBvcnRlIjox MjEwMCwibW9uZWRhIjoiRE9MIiwiY3R6Ijo2NSwiIHRpcG9Eb2NSZWMiOjgwLCJu cm9Eb2NSZWMiOjIwMDAwMDAwMDAxLCJ0aXBvQ29kQXV0IjoiRSIsImNvZEF1dCI6 NzA0MTcwNTQzNjc0NzZ9 |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Factura Electronica - Afip Argentina | Joe_Balda | Varios | 30 | 30-01-2021 04:10:34 |
Constancia de Inscripcion AFIP argentina | adripugliesso | Varios | 1 | 13-07-2017 21:00:11 |
AFIP Argentina: Consultas al padron de contribuyentes | AgustinOrtu | Bibliotecas de código fuente | 18 | 28-06-2017 03:04:38 |
Factura Electrónica AFIP Argentina | SergioFrey | Noticias | 2 | 19-05-2017 21:02:03 |
Ayuda Web Service AFIP Argentina | patriciojgf | Delphi para la web | 1 | 04-11-2014 17:46:34 |
|