FiveTech Software tech support forums

www.FiveTechSoft.com
https://www.fivetechsoft.com/forums/

Normas para el QR-Code

https://www.fivetechsoft.com/forums/viewtopic.php?f=6&t=39859

Page 1 of 2

Normas para el QR-Code

Posted: Thu Jan 14, 2021 11:18 am
by TOTOVIOTTI
Hola amigos... por lo que tengo entendido, hay diferentes normas para la creación de los códigos QR y son:

QR-4, QR-8, QR-16 y QR-32

Es posible seleccionar con FW el formato de creación de los cídigos QR según la norma requerida?

Muchas gracias!

Roberto

Re: Normas para el QR-Code

Posted: Thu Jan 14, 2021 5:02 pm
by postinelli
Hola

hasta donde sé hay 2 modelos normados

aca en Argentina ahora debemos incluir QR en las facturas a partir de este año, si estas con eso, ya lo hice, sólo dime si lo necesitas

>>>
Los códigos QR se clasifican en Modelo 1, Modelo 2 y Micro QR. Poseen distintas características y capacidades de datos. La “Versión” indica el tamaño (cantidad de módulos) de un código QR. Una versión más grande contiene datos más grandes. (El tamaño real del código también aumenta.)
La versión estándar tiene módulos de 21 x 21 (MicroQR tiene módulos de 11 x 11) y, a medida que aumenta la versión, se agregan 4 módulos (2 módulos para MicroQR) en cada lado.
>>>

Re: Normas para el QR-Code

Posted: Thu Jan 14, 2021 5:16 pm
by cmsoft
Me interesa postinelli!
podras compartirlo?

Re: Normas para el QR-Code

Posted: Thu Jan 14, 2021 6:36 pm
by TOTOVIOTTI
Si Postinelli...estoy con eso... me podrías ayudar con un ejemplo para poder hacer la adecuación?
Muchas gracias!
Roberto...

Re: Normas para el QR-Code

Posted: Thu Jan 14, 2021 8:34 pm
by postinelli
//----------------------------------------------------------------------------//

function GeneraQR()

Local cOrigen, cJason, cDestino, ElTxt

cOrigen:="https://www.afip.gob.ar/fe/qr/?p="
cJason:='{"ver":1,"fecha":"2020-10-13","cuit":30000000007,"ptoVta":10,"tipoCmp":1,"nroCmp":94,"importe":12100,"moneda":"DOL","ctz":65,"tipoDocRec":80,"nroDocRec":20000000001,"tipoCodAut":"E","codAut":70417054367476}'
cJason=StrToBase64( cJason )
cOrigen=cOrigen+cJason

//MsgAlert(cOrigen)

ElTxt:= "QrJason.txt"
Nhandle:= fcreate(ElTxt)
If (nhandle > 0)
fwrite(Nhandle, cOrigen + CRLF)
fclose(nhandle)
EndIf

cDestino:="FastQR.jpg"

QRCode(cOrigen,cDestino)

MsgInfo("Qr Generado OK")

Return NIL

//----------------------------------------------------------------------------//

DLL32 STATIC FUNCTION QRCode(cStr As STRING, cFile As STRING) AS LONG PASCAL FROM "FastQRCode" LIB "QRCodelib.Dll"
RETURN NIL
/*

Re: Normas para el QR-Code

Posted: Thu Jan 14, 2021 8:41 pm
by postinelli
Aqui les copio

la verdad que es bastante simple, en cuanto vi la resolucion de afip, busqué y poco y salió al toque

espero les sirva

cualquier cosa avisan

///por cierto, todos los qr de afip, incluidos los que pone la afip al emitir una factura via Comprobantes en Linea, los lleva a la pagina de aviso informativo de QR, se ve que aun lo tienen en prueba,
les aviso nomas por si ven que no vincula con datos de facturas emitidas

///si el importe no tiene decimales no se ponen ni el punto ni los ceros
///si tiene decimales se pone el punto y el primer decimal y solo se pone el segundo decimal si es distinto de cero

ej 123.50 123.5
123.00 123
123.56 123.56

-

Re: Normas para el QR-Code

Posted: Thu Jan 14, 2021 8:44 pm
by postinelli

Code: Select all

function PDFQR(cNfac,cNCae,PuntoVenta,xDIA,XDNI,XIMP,TipoFF)

Local cOrigen, cJason, cDestino, ElTxt

Local cCuitEmite:='20211002003'
Local cFechaEmit,cXIMP

xDIA=DToC(xDIA)
cFechaEmit:=subst(xDIA,7,4)+'-'+subst(xDIA,4,2)+'-'+subst(xDIA,1,2)
cXIMP=AllTrim(Str(XIMP))
cXIMP=subst(cXIMP,1,Len(cXIMP)-3)

cOrigen:="https://www.afip.gob.ar/fe/qr/?p="
cJason:='{"ver":1,"fecha":"'+cFechaEmit+'","cuit":'+ cCuitEmite +',"ptoVta":'+AllTrim(Str(PuntoVenta))+',"tipoCmp":'+AllTrim(Str(TipoFF))+',"nroCmp":'+AllTrim(cNfac)+',"importe":'+cXIMP+',"moneda":"PES","ctz":1,"tipoDocRec":96,"nroDocRec":'+AllTrim(Str(XDNI))+',"tipoCodAut":"E","codAut":'+cNCae+'}'
cJason=StrToBase64( cJason )
cOrigen=cOrigen+cJason

///genero el txt solo para verificar el json que sea correcto, luego se comenta la generacion del txt
ElTxt:= "QrJason.txt"
Nhandle:= fcreate(ElTxt)
If (nhandle > 0)
   fwrite(Nhandle, cOrigen + CRLF)
   fclose(nhandle)
EndIf

cDestino:="FactQR.jpg"

QRCode(cOrigen,cDestino)

MsgInfo("Qr Generado OK")

Return NIL

//----------------------------------------------------------------------------//
///en fivewin

//FastQRCode("https://github.com/VFPX/FoxBarcodeQR", "C:\Mis imagenes\FastQR.bmp")

DLL32 STATIC FUNCTION QRCode(cStr As STRING, cFile As STRING) AS LONG PASCAL FROM "FastQRCode" LIB "QRCodelib.Dll"
RETURN NIL
/*

Re: Normas para el QR-Code

Posted: Thu Jan 14, 2021 8:53 pm
by postinelli
tengo la QRCodelib.Dll

no se como compartirla x aqui, o me pasan su email y se las envio

o la descargan de https://github.com/VFPX/FoxBarcodeQR

Re: Normas para el QR-Code

Posted: Thu Jan 14, 2021 9:01 pm
by cmsoft
Execelente!!!
Muchisimas gracias, por el código y por la info!!

Re: Normas para el QR-Code

Posted: Fri Jan 15, 2021 10:53 am
by cmsoft
Buenos dias postinelli.
El QR me lo genera perfecto!
No logro imprimir bien el código QR
La opción que me funcionó fue poniendo NOTRANSPARENT

Code: Select all

@ 26.5,1 PRINT TO oPrn IMAGE "FactQR.jpg" SIZE 3, 3 CM NOTRANSPARENT
Pero me sale con un cuadrado negro
Image
Como lograste imprimirla?
Desde ya muchas gracias

Re: Normas para el QR-Code

Posted: Fri Jan 15, 2021 11:33 am
by cmsoft
Ahí logré imprimirlo pasándolo a BMP.
Pero no me lo lee.
Sabes cual es el tamaño mínimo? Porque me parece que es una cuestión del tamaño...

Re: Normas para el QR-Code

Posted: Fri Jan 15, 2021 11:37 am
by postinelli
te paso como lo hice yo, con Harbour32 + fwh1707

por cierto el codigo de barras ya no va, al menos en las facturas emitidas por comprobantes en linea no sale el codigo de barras

Code: Select all


cQR:="FactQR.jpg"

///aca seteo la impresora XPS
SetPrintDefault(cPrinter)
PrinterInit()
SysRefresh()

PrnSetPage(9)   ///a4
PrnPortrait()   ///vertical
//  PrnLandScape()  ///horizontal

//TPreview():lListViewHide := .T.
PRINT oPrn NAME "Impresión de facturas" PREVIEW
//PRINT oPrn NAME "Facturas en PDF" FILE cFactPdf

IF Empty( oPrn:hDC )
  MsgStop( OemToAnsi( "¡ No hay IMPRESORA para imprimir !" ))
  SetPrintDefault(cPrinterA)
  Return NIL
EndIF

nPixVert := oPrn:nVertRes()
nPixHorz := oPrn:nHorzRes()

IF nPixHorz < 3000
   nAnch    := 8913290
   nAlto    := 12255652
   nAncho_1 := 4
   nAncho_2 := 7
ELSE
   nAnch := 8913494
   nAlto := 12256000
   nAncho_1 := 6
   nAncho_2 := 11
EndIf


   PAGE

       @ 10, 0.5 PRINT TO oPrn IMAGE cQR SIZE 1,1 INCHES NOTRANSPARENT STRETCH
   ENDPAGE

 ENDPRINT


 
saludos

Pablo Ostinelli

Re: Normas para el QR-Code

Posted: Fri Jan 15, 2021 11:56 am
by postinelli
Cesar acabo de ponerlo como vos, sólo cambiando la posicion y tamaño y funciona perfecto
lo lee tanto desde la pantalla con el preview como impreso en papel

Code: Select all

     @ 24.10,  1   PRINT TO oPrn IMAGE cQR SIZE 2.5, 2.5 CM NOTRANSPARENT
 

Re: Normas para el QR-Code

Posted: Fri Jan 15, 2021 12:41 pm
by TOTOVIOTTI
Gracias Postinelli!! Muchas gracias!!!

Re: Normas para el QR-Code

Posted: Fri Jan 15, 2021 1:31 pm
by cmsoft
Gracias Pablo por las pruebas.
Si lo guardo como jpg, me sale el cuadro negro que mostré en la foto anterior
Si lo guardo como bmp, me sale bien, pero no lo lee.
Compilo con:
Compiler version: Harbour 3.2.0dev (r1601050904)
FiveWin Version: FWH 16.06
Habrá algun cambio o algo que me falta incluir??
All times are UTC
Page 1 of 2

Powered by phpBB® Forum Software © phpBB Limited