![Shocked :shock:](./images/smilies/icon_eek.gif)
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...
![Shocked :shock:](./images/smilies/icon_eek.gif)
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.
oHdr:TXT := ""
REDEFINE GET aGets[05] VAR oHdr:TXT ID 300 OF oDlg UPDATE;
MEMO;
VALID ValQR(oDlg,aGets);
MESSAGE "Código QR"
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 lea
- Code: Select all Expand view
oHdr:TXT := ""
Este es el GET donde se lee el QR, en lugar de usar el teclado, el usuario
utiliza el lector QR
- Code: Select all Expand view
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 requiero
- Code: Select all Expand view
oHdr:UID := ALLTRIM(SUBSTR(oHdr:TXT,nAtID + 3,36)) // Folio fiscal
Espero esto les ayude.
Saludos
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: nageswaragunupudi and 86 guests