Página 1 de 1
Generar codigo QR
Publicado: Jue Ene 18, 2024 12:43 pm
por 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.
Re: Generar codigo QR
Publicado: Jue Ene 18, 2024 11:45 pm
por 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,
Re: Generar codigo QR
Publicado: Mar Feb 06, 2024 9:12 am
por 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.
Re: Generar codigo QR
Publicado: Vie Feb 09, 2024 1:11 am
por gerencia
Hola Xevi,
Si es una normativa para la Facturación electronica en Colombia.
Saludos,
Re: Generar codigo QR
Publicado: Lun Feb 12, 2024 6:05 am
por Carlos Ortiz
Desde que version de Xailer esta disponible esa clase? Gracias
oBarCode:=TBarcode():Create()
Re: Generar codigo QR
Publicado: Lun Feb 12, 2024 5:54 pm
por Pedro Gil
Carlos,
Si no estoy equivocado, desde Xailer 5.0 que se publicó en el año 2017.
Saludos.
Re: Generar codigo QR
Publicado: Lun Mar 04, 2024 12:56 pm
por Carlos Ortiz
Gracias Pedro