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.
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Generar codigo QR
Generar codigo QR
Un Saludo,
Xevi.
Xevi.
Re: Generar codigo QR
Xevi,
Asi lo hago
Saludos,
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
Jose David Angulo Urzola
Auditoria y Sistemas Ltda.
Cartagena-Colombia
Auditoria y Sistemas Ltda.
Cartagena-Colombia
Re: Generar codigo QR
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.
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.
Un Saludo,
Xevi.
Xevi.
Re: Generar codigo QR
Hola Xevi,
Si es una normativa para la Facturación electronica en Colombia.
Saludos,
Si es una normativa para la Facturación electronica en Colombia.
Saludos,
Jose David Angulo Urzola
Auditoria y Sistemas Ltda.
Cartagena-Colombia
Auditoria y Sistemas Ltda.
Cartagena-Colombia
- Carlos Ortiz
- Mensajes: 872
- Registrado: Mié Jul 01, 2009 5:44 pm
- Ubicación: Argentina - Córdoba
- Contactar:
Re: Generar codigo QR
Desde que version de Xailer esta disponible esa clase? Gracias
oBarCode:=TBarcode():Create()
oBarCode:=TBarcode():Create()
@dbfarma
www.dbfarma.com.ar
www.dbfarma.com.ar
Re: Generar codigo QR
Carlos,
Si no estoy equivocado, desde Xailer 5.0 que se publicó en el año 2017.
Saludos.
Si no estoy equivocado, desde Xailer 5.0 que se publicó en el año 2017.
Saludos.
- Carlos Ortiz
- Mensajes: 872
- Registrado: Mié Jul 01, 2009 5:44 pm
- Ubicación: Argentina - Córdoba
- Contactar: