REPORTE A PDF CON XFRX

[Roxana]

Hola amigos!

Uso la libreria XFRX para generar PDF desde VFP 9 y estoy teniendo un problemas con reportes que tienen incrustadas fotos.

El reporte desde fox se genera e imprime perfecto pero en el PDF la foto sale en blanco y negro con muy mala calidad.

Cabe aclarar que las fotos se editan con el Corel 6. Alguien tiene algun dato?

Muchas gracias!

Saludos,

Roxana

[José Enrique Llopis]

A mi me pasó eso con fotos que tenían mucha calidad, bajé la resolución y funcionó perfectamente.

 

Por si te puede servir.

 

Pepe Llopis

 

 

---

[Viktor Velazquez]

por que no usas reportpreview te solucionaria muchos cosas

---

Date: Wed, 7 May 2014 06:33:46 -0700
From: rox...@gmail.com
To: publice...@googlegroups.com
Subject: [vfp] REPORTE A PDF CON XFRX

[Jairo Miranda]

Foxypreviewer

 

JM

[Allan Raúl Acuña]

Hola mi estimado, yo uso el XFRX, aqui las preguntas que te solicito es:

• Que versión estas usando?
• Tendrás las DLL apropiadas?
• Que formato son las fotos que tienes en los reportes, yo trabajo con JPG sin problemas.

Saludos


Saludos cordiales.

Lic. Allan Raúl Acuña
Analista Programador
msn= allan...@hotmail.com
skype= NicEasySoft
            +(505) 8 831 8191     

Managua, Nicaragua

Centroamérica

---

From: sandrae...@gmail.com
To: publice...@googlegroups.com
Subject: RE: [vfp] REPORTE A PDF CON XFRX
Date: Wed, 7 May 2014 15:44:43 -0500

[Roxana]

Hola! Gracias por su aporte. 

Les cuento que uso desde hace tiempo el XFRX y estoy muy conforme, pero ahora están generando instructivos con fotos y al editarlas con el COREL y después adjuntaras en el sistema, el reporte de fox se genera y se imprime perfecto, pero el PDF no.

La versión que uso es 14.3

Adjunto un de las fotos que provoca el problema y el PDF para que se vea como se esta generando.

El código que estoy utilizando es el siguiente:

loSession= EVALUATE([xfrx("XFRX#INIT")])

IF VARTYPE(loSession) <> 'O'

MESSAGEBOX('Error')

RETURN .F.

ENDIF

        

             loSession.setEmbeddingType(3)

     

lnRetVal = loSession.SetParams(cNombre1,cCarpeta,,,,,"PDF",,,,.T.)

*****************

If lnRetVal = 0

            

             loSession.ProcessReport(creporte)

loSession.finalize

 ENDIF

Mil gracias por su atención!

Saludos,

Roxana

[MALKASOFT ADPI: http://www.developervfp.blogspot.com/]

Hola por que no usas el PDFCreator es muy sencillo de usar y no tienes que cambiar nada solo instalar la ultima version de PDFcreator

LPARAMETERS cNameReport as String, cNameFilePdf as String,cCarpeta as String,lAbrir as Boolean 

LOCAL cNameReport as String, cNameFilePdf as String 

IF EMPTY(cCarpeta)

IF !DIRECTORY("FilePdf")

MKDIR FilePdf

ENDIF 

cRuta = SYS(5)+SYS(2003)+"\FilePdf\"

ELSE

IF !DIRECTORY(cCarpeta)

MKDIR &cCarpeta

ENDIF 

cRuta = SYS(5)+SYS(2003)+"\"+cCarpeta+"\"

ENDIF 

IF TYPE("oPdf")<>"O" 

LOCAL oPdf as Object

oPdf= CREATEOBJECT("PDFCreator.clsPDFCreator")

ENDIF 

oPdf.cStart

oPdf.cVisible = .T.

oPdf.cclearCache

oPdf.cPrinterStop = .F.

oPdf.cOption("AutosaveDirectory") = cRuta

oPdf.cOption("AutosaveFilename")= cNameFilePdf

oPdf.cOption("UseAutosave")= 1

oPdf.cOption("UseAutosaveDirectory") = 1

oPdf.cOption("AutosaveFormat") = 0

oPdf.cSaveOptions()

xWinPre = '"'+SET("Printer",2)+'"'&&Impresora Win Predeterminada

SET PRINTER TO NAME 'PDFCreator'

REPORT form (cNameReport) TO PRINTER NOCONSOLE

oPdf.cclearcache

oPdf.cClose

IF lAbrir

cArchivo = cRuta+cNameFilePdf+".pdf"

AbrirArchivo(cArchivo)

ENDIF 

SET PRINTER TO NAME &xWinPre &&Devolvemos la impresora Predeterminada de windows 

Saludos; 

Ing. Russvell Jesus Soto Gamarra 

Blog: http://developervfp.blogspot.mx/

Canal YouTube: http://www.youtube.com/rycjesusrj

Framework Multi-conexion v6.0 trabaja cualquier base de datos

(SQLServer, MySQL, Firebird, MariaDB, PostgreSQL, Oracle y etc.) 

http://www.youtube.com/watch?v=PCCZvCaet74

[Roxana Demattei]

Hola! Gracias por el dato pero necesito que el PDF se pueda generar sin tener más nada instalado en la PC que el soft que yo desarrollo. Por eso compre esta librería.

 

Gracias!

 

Roxana

[Jairo Miranda]

Con el foxypreviewer.app es más que suficiente, entra a www.portalfox.com y verifica..

 

Además es GRATIS….

 

JM

[Víctor Hugo Espínola Domínguez]

Hola Roxana

Adjunto pdf de tu imagen generada con el Foxypreviewer

Saludos,

Víctor.

Lambaré - Paraguay.

[César Pistiner]

Hola Roxana,

Yo lo utilizo sin problemas, pero no he probado editarlo con el COREL.

Te recomiendo que leas el manual para desarrolladores tal vez encuentres alguna limitación en la imagen que se puede utilizar.

Y si no le encontras solución, use el soporte de la librería.

Y para los demás, comprendo que foxypreviewer es una buena alternativa, pero tienen que entender que tal vez no sea tan sencillo cambiar de librería, con que uno solo se la sugiera alcanza creo jaja. En mi caso seria bastante complejo ya que el proyecto es muy grande y XFRX lo uso por muchísimos lados. Roxana busca una solución usando XFRX.

Espero que entiendan a donde apunto con mi comentario. Saludos para todos.

César

[Luis Maria Guayan]

Roxana si compraste la librería XFRX puedes pedir el soporte directamente a los creadores con correos directamente a Martin: sup...@eqeus.com o  http://www.eqeus.com/Home/Support

Luis María Guayán
Tucumán, Argentina
_________________________
http://www.PortalFox.com
Nada corre como un zorro
_________________________

El 08/05/2014 03:37, Roxana Demattei escribió:

[Roxana Demattei]

Gracias a todos por sus aportes!

Ya mande mail al soporte de XFRX, si tengo respuesta les escribo; y sino tendré que meterme con el foxypreviewer; solo que como bien dijo cesar ya tengo todos los métodos armados con XFRX.

 

Cesar,

Te quisiera pedir si podes generar el PDF con la imagen que adjunte para saber si es realmente un problema de la imagen o algo que hago mal en la invocación de la librería.

 

Mil gracias!!

 

Saludos,

 

Ing. Roxana Demattei

[César Pistiner]

Si, dale... pero no encuentro el adjunto será porque consulto el foro desde gmail ?

Si podes mandamela por email y hago la prueba si?

Saludos,

César

[Roxana]

Hola a todos!

Quería comentarles que finalmente pude descubrir cual era el problema. Les cuento:

Por un lado el Cesar hizo unas pruebas y pudo verificar que si abría el JPG con el Paint de windows y lo volvía a grabar (guardar como) sin cambiarle nada; luego el PDF se generaba bien. Con lo cual confirmo mi teoría de que era algo del Corel.

Y por otro lado el soporte de XFRX me confirmo que para la versión 14.3 que es la que tengo yo, es conveniente utilizar archivos de hasta 24 Bpp.

Así que verifique como estaban grabando los archivos cuando los editaban con el Corel, y el Corel para generar un JPG tiene una función de exportación que entre sus opciones tiene un combo que te permite elegir 24 bpp o 32 bpp. Por supuesto por defecto estaba marcado 32 bpp, así que los generaban de esta manera y por eso las imágenes se generaban mal en el PDF. Asi que les aclare que generen la imagen con 24 bpp y listo. Todo solucionado!

Gracias por la buena colaboración de todos.

Saludos,

Roxana

[César Pistiner]

Muchas gracias Roxana por compartir la solución y los detalles técnicos, seguramente esto le sirva a otros (yo inclusive).

Saludos,
César

[Roxana]

Estimados, Alguien puede compartirme la version 19 de XFRX? La version 14 que tengo yo no maneja BMP y necesito esa funcionalidad.

Muchas gracias!

Saludos

[HernanCano]

Ah, o sea que tampoco pudiste con FoxyPreviewer. Se le han hecho tantas mejoras desde 2014... y es tan fácil de usar... que la prueba no te tomará más de un minuto.... pero bueno  preferiste hacer la prueba con XFRX durante estos seis o siete años y acabas de darte cuenta que no es suficiente.....

Recuerda: un minuto: te lo garantizo..... (que te gustará----siempre y cuando las imágenes seas adecuadas---- ya sabes lo de los 24 b.....)

El jueves, 25 de febrero de 2021 a la(s) 07:44:00 UTC-5, Roxana escribió:

Estimados, Alguien puede compartirme la version 19 de XFRX? La version 14 que tengo yo no maneja BMP y necesito esa funcionalidad.

Muchas gracias!

Saludos

[Roxana Demattei]

Hernan,

 

Te agradezco tu sugerencia pero yo tengo comprada la licencia del XFRX 14 y todos mis sistemas lo usan para muchas funciones. Mi idea es no tener que cambiar esto en todos lados.

Capaz alguien tiene la versión 19 y me la puede compartir…

Sino, voy a probar el FoxyPreviewer.

 

Muchas gracias!

 

Saludos

--
Visita el Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/lgkUdeKhCKw/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/16285726-f836-4be5-948b-055b58f8451en%40googlegroups.com.

[Jose Antonio Blasco]

Roxana, ya viste mis respuestas en el otro hilo??

https://groups.google.com/g/publicesvfoxpro/c/_i9Ox9UW0v4

Un saludo.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/006d01d70b87%2411c20f20%2435462d60%24%40gmail.com.

[Roxana Demattei]

José,

 

Tu ejemplo de convertir el BMP a JPG funciona perfecto. Lo vuelvo a compartir para que todos lo tengan a mano.

 

PROCEDURE BMP_TO_JPG

LPARAMETERS lcSource

lcDestination = JUSTPATH(lcSource) + "\_" + JUSTSTEM(lcSource)

LOCAL loImage AS GpImage OF HOME() + ffc/_gdiplus.vcx

loImage = NEWOBJECT("GpImage", HOME() + "ffc/_gdiplus.vcx")

loImage.CreateFromFile(lcSource)

loImage.SaveToFile(lcDestination + ".jpg","image/jpeg", "quality=70")

loImage=null

RETURN lcDestination

 

Muchas gracias! Genio!

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFg9aWyvDk%3DiDKkcRoVJgXLEWmkuL%3DrttaWJxpCzCBf95Pw3%3Dg%40mail.gmail.com.

[Jose Antonio Blasco]

Upps, Roxana, 

Lo siento, no fuí yo  (me ha sonado a una canción conocida)  :-))

Yo te aporté la forma de generar el pdf con XFRX, porque, según el manual de la versión 14.3 ( y también lo pone en la versión 12.3), si se pueden utilizar BMP's en los PDF.

Un saludo. 

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/008f01d70c59%24cf43d1f0%246dcb75d0%24%40gmail.com.

[Roxana Demattei]

Ahhh eso no lo vi. Solo veo que dicen que hay que usar la versión 19 de XFRX…

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFg9aWwSBFvqfBLQc%2BSahv4_YsMxc5gPOE5CPL5iETD%3D0KPNiw%40mail.gmail.com.

[Roxana Demattei]

Jose,

Ya lo encontré. Es este código:

**************************************

loSession=Evaluate([xfrx("XFRX#INIT")])

*

lnRetval = loSession.SetParams("NomFichero.pdf",,.T.,,.T.,,"PDF")

If lnRetval = 0

  loDocument = Evaluate([xfrx("PDFL#INIT")])

  loDocument.attachToPDFDocument(loSession)

  loSession.ProcessReport("formato.frx")

  loSession.finalize

  *

Endif

 

Bueno, lamentablemente no funciona con BMP.

 

Ya le escribi a eqeus y me confirmaron que BMP solo a partir de versión 17…

 

Asi que voy por la opción de convertir el BMP a JPG.

 

Saludos,

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAFg9aWwSBFvqfBLQc%2BSahv4_YsMxc5gPOE5CPL5iETD%3D0KPNiw%40mail.gmail.com.

[Jose Antonio Blasco]

Pues si ellos mismos lo dicen, está claro.

Un saludo.

Jose A. Blasco
Zaragoza - España
Visual FoxPro 9 SP2

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/00a201d70c69%2417fff9f0%2447ffedd0%24%40gmail.com.