Page 1 of 1

QR en PDF con HARU

Posted: Wed Oct 11, 2023 10:08 pm
by acuellar
Mr. RAO

With Haru it does not place the QR with the desired size in PDF, in Preview Perfect

Con Haru no coloca el QR con el tamaño deseado en el PDF en vista previa perfecto

Code: Select all | Expand

cCode:="TEXTO DEL CODIGO QR"
@1.1,4.4  PRINT TO oPrn TEXT cCode AS BARCODE TYPE "QR" SIZE 2.8,2.8 CM 
 
Thanks for the help

Re: QR en PDF con HARU

Posted: Wed Oct 11, 2023 11:36 pm
by karinha
Prueba:

Code: Select all | Expand

C:\fwh..\samples\barcod01.prg
 
https://fivetechsoft.com/forums/viewtopic.php?p=220740

Regards, saludos.

Re: QR en PDF con HARU

Posted: Thu Oct 12, 2023 12:19 pm
by acuellar
Gracias estimado Joao

El barcod01.prg funciona perfecto.

El problema es cundo se utiliza HARU

Re: QR en PDF con HARU

Posted: Mon Oct 16, 2023 2:43 am
by cmsoft
Ademar:
A mi me funciona bien así como lo tienes, incluyendo
REQUEST FWHARU
REQUEST FWZEBRA

Re: QR en PDF con HARU

Posted: Mon Oct 16, 2023 2:00 pm
by acuellar
Estimado Cesar

Intenta con éste código

Code: Select all | Expand

#include "FiveWin.ch"

REQUEST FWHARU
REQUEST FWZEBRA

Function Main()
  TPrinter():lUseHaruPDF:=.T.  
  PRINT oPrn  FILE "PRUEBA.PDF" PREVIEW
  PAGE
   cCode:="https://pilotosiat.impuestos.gob.bo/consulta/QR?nit=145806028&cuf=9F9F8D3316B178A2A7554C91782C077D04CFCA16754CD1B844000E74&numero=102&t=2"
   @1.1,4.4  PRINT TO oPrn TEXT cCode AS BARCODE TYPE "QR" SIZE 2.0,2.0 CM
   @5.1,4.4  PRINT TO oPrn TEXT cCode AS BARCODE TYPE "QR" SIZE 3.0,3.0 CM
  ENDPAGE
  ENDPRINT
Return nil
 
Gracias por la ayuda

Re: QR en PDF con HARU

Posted: Mon Oct 16, 2023 3:43 pm
by karinha

Re: QR en PDF con HARU

Posted: Tue Oct 17, 2023 11:09 am
by cmsoft
acuellar wrote:Estimado Cesar

Intenta con éste código
Este es el resultado
Image

El qr me lo muestra, pero va a una pagina que los datos del comprobantes están vacios.

Re: QR en PDF con HARU

Posted: Tue Oct 17, 2023 1:35 pm
by Willi Quintana
Prueba asi:

Code: Select all | Expand

       IF oApp:nPDF_QR = 1  // 5.6
          @ nRowOt/2.54, 0.1 PRINT TO oPrn TEXT cCode AS BARCODE TYPE "PDF417" SIZE 2.2, 0.65 INCHES
         Else
          @ nROwOt/2.54, 0.1 PRINT TO oPrn TEXT cCode AS BARCODE TYPE "QR-CODE" SIZE 0.7, 0.7 INCHES
       EndIf
 

Re: QR en PDF con HARU

Posted: Tue Oct 17, 2023 4:25 pm
by acuellar
Muchas Gracias Estimados

Cesar quitale ésta línea TPrinter():lUseHaruPDF:=.T.

Y compará los resultados.

Re: QR en PDF con HARU

Posted: Tue Oct 17, 2023 4:32 pm
by cmsoft
Muestra igual pero mas grande el segundo qr
El destino del Qr es el mismo

Re: QR en PDF con HARU

Posted: Tue Oct 17, 2023 4:36 pm
by acuellar
Es lógico que el segundo tiene que se mas grande por su medida

He ahí la diferencia. deberían ser iguales.

con TPrinter():lUseHaruPDF:=.T. y sin

Re: QR en PDF con HARU

Posted: Tue Oct 17, 2023 4:39 pm
by cmsoft
Tienes toda la razon. No había prestado atención de tu texto original en inglés.