Foxypreviewer problema para unir archivos

[Pablo Chirico]

Hola, buenos días:

Necesito unir 2 pdf de laisma tabla y con diferente condición en un sólo pdf. Por lo que veo, los comandos para unir se ejecutan juntos, algo asi:

REPORT FORM LOCFILE(_Samples + "\Solution\Reports\Wrapping.frx") ;

OBJECT TYPE 10 NOPAGEEJECT

REPORT FORM LOCFILE(_Samples + "\Solution\Reports\Percent.frx") ;

OBJECT TYPE 10 &&  preview

Yo necesito algo como lo siguiente

Do FoxyPreviewer.app

lcReporteDetalle = "Detalle.frx"

lcReporteResumen = "Resumen.frx"

lcSalidaDet = "DetPdf"

lcSaidaRes = "ResPdf"

Use Tablax order Clave_1 in 0

Select Tablax

If Seek(1234,"Tablax","Clave_1")

     Report Form (lcReporteDetalle) While CampoClave = 1234 Object Type 10 To File ( lcSalidaDet ) NOPAGEEJECT NORESET

store 0 to a,b

Set Order to Clave_2

If Seek(6789,"Tablax","Clave_2")

     Registro = Recno()

     Scan For Campo_X = 6789

          a = a + campo3

          b = b +Campo4

     Endscan

     Goto Registro

     Report Form (lcReporteResumen) While Campo_X = 6789 Object Type 10 To File ( lcSalidaRes )

No importa el desarrollo, si está bien o mal, sólo quiero saber si al haber comandos entre ambos reportes se pueden unir, y cómo habría que hacer, porque no me ha funcionado y seguramente yo me esté equivocando en algo o me falte info.

Desde ya, muchas gracias

PabloCh

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

Probablemente te sirva usar Report multi bandas de detalles
C:\Program Files (x86)\Microsoft Visual FoxPro 9\Samples\Solution\Europa\employeesmd.frx
C:\Program Files (x86)\Microsoft Visual FoxPro 9\Samples\Solution\Europa\employeesmd2.frx
https://docs.microsoft.com/en-us/previous-versions/visualstudio/foxpro/ms965281(v=msdn.10)?redirectedfrom=MSDN
https://www.mediafire.com/file/ed58lb3bbjc0t28/OrigDuplMB.rar/file

Saludos,

Víctor.

Lambaré - Paraguay.

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
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/90a63553-2383-41d1-87a5-fa76c3c11e2fn%40googlegroups.com.

[Héctor Reyes]

Hola buenas tardes, yo lo resolví con el siguiente código:

SET PROCEDURE TO LOCFILE("FoxyPreviewer.App") ADDITIVE
LOCAL loReport AS "PreviewHelper" OF "FoxyPreviewer.App"
loReport = CREATEOBJECT("PreviewHelper")
WITH loReport AS ReportHelper
.AddReport("pdf_cbbre.frx")
.AddReport("pdf_cbbre2.frx")
.cprintername="PDFCreator"
.cdestfile="ruta de salida"
.RunReport()
ENDWITH

Saludos

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CABoLD3Gm4tZeoHJaojjkFzXqMyYVz-3Pa6J1tayFfyjUS3pCSA%40mail.gmail.com.

--

Saludos

  

Héctor Reyes Hernández

(477) 166-55-66

La presente información es de carácter CONFIDENCIAL y PRIVADO para uso exclusivo del destinatario. Si usted ha recibido este mensaje por error, favor de contactar al remitente y borrar el mensaje y sus anexos. La divulgación, distribución, retransmisión, copia por cualquier medio, u otro uso de esta información está PROHIBIDA y sujeta a las sanciones establecidas en las leyes  correspondientes.

[Pablo Chirico]

Agradezco sus prontas respuestas. 

En el primer caso,ocurre que estamos migrando una vieja aplicación de Foxpro y necesitamos conservar los formatos de los reportes.  

Para la segunda opción de respuesta, justamente no veo que entre un reporte y el otro haya comandos intermedios, que es justamente la base de mi pregunta.

Necesito sacar un reporte detalle unido a un reporte resumen en un sólo pdf y desde la misma tabla. La idea es saber si el primer pdf se puede conservar en memoria o en un \temp, reprocesar la misma tabla con comandos ingermedios, y al hacer el segundo pdf salgan los dos unidos en una impresora pdf guardándolos con un sólo nombre definitivo

Desde ya, machas gracias

PabloCh

[Héctor Reyes]

El código que te paso, genera un solo pdf.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/51cb663f-b011-4a2d-acb8-893ae8332893n%40googlegroups.com.

[Zarlu]

Buenas tardes Pablo!

Pues esto con código intermedio funciona:

CREATE CURSOR unidos1 (dias c(20))
lcListDias="Lunes,Martes,Miércoles,Jueves,Viernes,Sábado,Domingo"
FOR a=1 TO 7
        APPEND BLANK
        Replace dias WITH GETWORDNUM( lcListDias, a , ",")
EndFor
GO Top
DO LOCFILE("FoxyPreviewer.App")
REPORT FORM unidos1 OBJECT TYPE 10 To File ("unidos.pdf" ) NOPAGEEJECT NORESET
SELECT 0
SELECT unidos1
SCAN
REplace dias WITH ALLTRIM(dias)+"-XXXX"
EndScan
REPORT FORM unidos2 OBJECT TYPE 10 To File ("unidos.pdf" )
DO FOXYPREVIEWER.APP WITH "Release"

Suerte

zarlu

Chetumal, Quintana Roo, México

[Zarlu]

Que tal Pablo!

Unos comentarios adicionales...

No mencionas que es lo que no funciona.

Entiendo que el código que muestras es ilustrativo, pero observo que tienes condicionado la ejecución de los reportes.

Entonces yo tomaría en cuenta que si alguno de los reportes no se ejecuta y/o alguno no genera información el/los reportes no se crearán y el pdf podría no crearse o dar resultados no deseados.

zarlu

Chetumal, Quintana Roo, México

[HernanCano]

Pues... inicialmente te inidcaria que generes los reportes al mismo archivo PDF...

Estás enviando cada reporte a un archivo PDF diferente.... Para lo que preguntas, debieras poner el la cláusula TO FILE ... la misma vble... o el mismo archivo PDF.....

El viernes, 28 de enero de 2022 a la(s) 10:54:16 UTC-5, pabloc... escribió:

Hola, buenos días:

Necesito unir 2 pdf de laisma tabla y con diferente condición en un sólo pdf. Por lo que veo, los comandos para unir se ejecutan juntos, algo asi:

REPORT FORM LOCFILE(_Samples + "\Solution\Reports\Wrapping.frx") ;

OBJEC

 

mpo_X = 6789 Object Type 10 To File ( lcSalidaRes )

[Luis Blank]

Buenos días, 

Yo en la salida del primero llamaría al segundo

--
Blog de la Comunidad Visual FoxPro en Español: http://comunidadvfp.blogspot.com
---
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/03086a23-4d3e-4f9c-b921-c781ce327c7en%40googlegroups.com.

[HernanCano]

En los fuentes de FoxyPreviewer encontrarás estos cuatro ejemplos que te ayudarán a entender cuál es tu inconveniente (en qué parte de tus comandos estás fallando).

Hay otros ejemplos de multireport, pero éstos se refieren a exportar a PDF o a otras extensiones.

test_simplified_multireport.prg
test_simplified_multireport2pdf.prg
test_simplified_multireport2pdfusingobjtype.prg
test_simplified_multireport2rtf.prg

[Pablo Chirico]

Muchas gracias por sus comentarios. Con ellos pude corregir el problema. 

Mi primer error tenía que ver con lo que dijeron Zarlu y HernanCano con respecto al nombre de los Pdf. 

Y el segundo era que con cada ejecución abría y cerraba el FoxyPreviewer. La aplicación es muy grande y no en todos los reportes puedo usarlo, así que no lo puedo coocar al principio de la app.

Saludos

PabloCh 

[HernanCano]

El hecho de "abrir y cerrar FoxyPreviewer" no es un problema: Es una posibilidad que usamos a conveniencia del escenario al que nos enfrentamos.