
Post data: lo que necesito es así como se lee el código de barra en un GET, hacer lo mismo con cierta información del código QR, es decir , extraer solo cierta información del QR, no se si eso es posible, gracias...

cmsoft wrote:Hola José Luis:
En realidad es exactamente igual que con un código de barras.
El lector de código QR te va a devolver en forma de texto, el contenido del texto "escondido" en el QR.
Para eso simplemente puedes utilizar un GET donde quedará ese contenido (te recomiendo que sea un GET tipo MEMO por su tamaño)
Y después es cuestión de descomponer ese texto obteniendo los valores que te sean de utilidad. Claro que tienes que saber cual es el formato a esperar en el QR para poder hacerlo.
Code: Select all | Expand
oHdr:TXT := ""
Code: Select all | Expand
REDEFINE GET aGets[05] VAR oHdr:TXT ID 300 OF oDlg UPDATE;
MEMO;
VALID ValQR(oDlg,aGets);
MESSAGE "Código QR"
Code: Select all | Expand
oHdr:UID := ALLTRIM(SUBSTR(oHdr:TXT,nAtID + 3,36)) // Folio fiscal
Armando wrote:Adolfredo:
Con todo gusto, yo tengo este código:
Defino la variable que recibirá lo que el lector QR leaCode: Select all | Expand
oHdr:TXT := ""
Este es el GET donde se lee el QR, en lugar de usar el teclado, el usuario
utiliza el lector QRCode: Select all | Expand
REDEFINE GET aGets[05] VAR oHdr:TXT ID 300 OF oDlg UPDATE;
MEMO;
VALID ValQR(oDlg,aGets);
MESSAGE "Código QR"
Y en la función ValQR hago el troceo de la cadena para obtener el valor que requieroCode: Select all | Expand
oHdr:UID := ALLTRIM(SUBSTR(oHdr:TXT,nAtID + 3,36)) // Folio fiscal
Espero esto les ayude.
Saludos