Generar codigo QR

[XeviCOMAS]

Hasta ahora me valía de los códigos de barra que generaba con una lib, pero...
¿Alguna herramienta para crear código QR???

No se, ya es algo que es necesario e indispensable y no se si hay alguna lib en harbour o Xailer ya tiene su clase para generar esos códigos.

Gracias.

[gerencia]

Xevi,

Asi lo hago

Código: Seleccionar todo

   cQrJPG:= "NumFac: "   + cDocto  + CRLF + ;
            "FecFac: "   + DToS(oQuery:Fecha_docto) + oQuery:Hora + CRLF + ;
            "NitFac: "   + acNit[1]  + CRLF + ;
            "DocAdq: "   + acNit_a[1] + CRLF + ;
            "ValFac: "   + AllTrim(Transform(::oSubtotal:Value-::oDescto:Value,"999999999999.99")) + CRLF +  ;
            "ValIva: "   + AllTrim(Transform(::oIva:Value,"999999999999.99")) + CRLF + ;
            "ValOtroIm: "+ AllTrim(Transform(0,"999999999999")) + CRLF + ;
            "ValTolFac: " + AllTrim(Transform(nValFacim,"999999999999.99")) + CRLF + ;
            "CUFE: "     + AllTrim(cCufe)                                   + CRLF + ;
            "QRCode: "   + IF(aUrl[1,3],AllTrim(aUrl[1,1])+cCufe,AllTrim(aUrl[1,2])+cCufe)


 Qr_factura(cQrJPG,"Qrfile.jpg")
 
 
/*_____________________________________________________________________________*/
Function Qr_factura(cText,cFile)
  Local oBarCode
  Local oPic
  Local cFileDestino

  cFileDestino := cFile 

  // Borrar el archivo si existe
   If File(cFile)
      FErase(cFile)
   Endif
  oBarCode:=TBarcode():Create()

  WITH OBJECT oBarCode
     :nType := zbQRCODE
     :cText := cText
      oPic  := :GetPicture()
      oPic:Save(cFileDestino,1,100)
   END WITH

Return nil

Saludos,

[XeviCOMAS]

FUNCIONA perfecto!!!

Una cosilla, los campos que pones en el QRcode, son los que manda algun reglamento al hacer la factura, que corresponde a
NitFac, DocAdq, CUFE y QRCode

O ¿podemos poner los que nos vengan en gana??? o ¿ponemos los que se requieran en cada situación, entiendo???

Gracias.

[gerencia]

Hola Xevi,

Si es una normativa para la Facturación electronica en Colombia.

Saludos,

[Carlos Ortiz]

Desde que version de Xailer esta disponible esa clase? Gracias

oBarCode:=TBarcode():Create()

[Pedro Gil]

Carlos,

Si no estoy equivocado, desde Xailer 5.0 que se publicó en el año 2017.

Saludos.

[Carlos Ortiz]

Gracias Pedro