QR en PDF con HARU

[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 view

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

[karinha]

Prueba:

Code: Select all  Expand view

C:\fwh..\samples\barcod01.prg
 

https://fivetechsoft.com/forums/viewtopic.php?p=220740

Regards, saludos.

[acuellar]

Gracias estimado Joao

El barcod01.prg funciona perfecto.

El problema es cundo se utiliza HARU

[cmsoft]

Ademar:
A mi me funciona bien así como lo tienes, incluyendo
REQUEST FWHARU
REQUEST FWZEBRA

[acuellar]

Estimado Cesar

Intenta con éste código

Code: Select all  Expand view

#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

[karinha]

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=40111&p=239345&hilit=DATAMATRIX&sid=4b111801aa95b9e8d8db65daa98212c9&sid=29399eac7a6f76f3420ee78a22e510ed#p239440

Saludos.

[cmsoft]

Estimado Cesar

Intenta con éste código

Este es el resultado


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

[Willi Quintana]

Prueba asi:

Code: Select all  Expand view

      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
 

[acuellar]

Muchas Gracias Estimados

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

Y compará los resultados.

[cmsoft]

Muestra igual pero mas grande el segundo qr
El destino del Qr es el mismo

[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

[cmsoft]

Tienes toda la razon. No había prestado atención de tu texto original en inglés.