Error permanente en Foxypreviewer

[Pablo Chirico]

Buenos días:

Estoy haciendo pruebas con FoxyPreviewer. Necesito exportae reportes a pdf dándole la ruta y el nombre desde el programa de impresión, sin pasar por la ventana del PDFCreator o similares. 

El tema es que siempre me da el mismo error

Cualquier OBJECT TYPE que le ponga en el programa, el error es el mismo, sólo que cambia la numeración.

Me podrán ayudar con este tema? Desde ya, muchas gracias

PabloCh

[HernanCano]

Muestra los comandos con que estás ejecutando lo que necesitas.

[Zarlu]

Buenos días pablochirico!

Analiza esto. Espero te ayude...

mNomPDF=LEFT(ALLTRIM(Inputbox("Nombre del archivo a crear:","Exportar a PDF", "" )),10)
IF EMPTY(mNomPDF)
    RETURN
EndIf   
mNomPDF=mNomPDF+".pdf"
If File(mNomPDF) .and.MESSAGEB("Sobreescribir archivo?",4+32+256,"Confirme.")=7
        Return
EndIf
DO LOCFILE("FoxyPreviewer.App")
REPORT FORM informe1;
OBJECT TYPE 10 ; &&' OBJTYPE 10 = PDF , 11 = PDF AS IMAGE , 12 = RTF , 13 = XLS , 14 = HTML
TO FILE &mNomPDF
DO FOXYPREVIEWER.APP WITH "Release"
*open pdf
DECLARE INTEGER ShellExecute IN shell32.dll ;
    INTEGER hndWin, ;
    STRING cAction, ;
    STRING cFileName, ;
    STRING cParams, ; 
    STRING cDir, ;
    INTEGER nShowWin
    cFileName = mNomPDF
    cAction = "open"
    =ShellExecute(0,cAction,cFileName,"","",1)
CLEAR DLLS

Suerte

zarlu

Chetumal, Quintana Roo, México

[HernanCano]

https://www.foxite.com/archives/foxypreviewer-and-win-7-home-0000340989.htm

[Dsan]

Hola,

Prueba haciendo algo sencillo como esto....

Do foxypreviewer.app

select tutabla

if reccount()=0 then

  Messagebox("No hay información que mostrar, imprimir o lo que sea.......",0+64,"Información")

return .f.

endif

Report Form 'comp_expensas_cliente.frx' Object Type 10 To  FILE c:\Temp\Reporte.pdf  Nodialog

If Not _Screen.oFoxyPreviewer.lSaved

        Messagebox("Archivo PDF no fue generado....",0+48,"Alerta")

Return .F.

Endif

Do foxypreviewer.app with "RELEASE"

Ahora para la apetura con programa predeterminado tines que configurar el foxipreviewer de esta forma..

1. Al visualizar el documento con noconsole preview  aparece la barra de foxypreviewer clic en el boton configurar 

2. ve a la pestaña de la imagen siguiente y marca esto: Abrir el visor 

Saludos

DS

--
Visita el 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/8945c415-d75d-45e7-ad63-57e101d0a504n%40googlegroups.com.

[HernanCano]

Disculpa Douglas: 

El problema que tiene Pablo es referente al OBJECT TYPE 10.

Lo que se debe hacer es confirmar la versión.

Pablo: 

Por favor sigue la sgte secuencia de botones en un FoxyPreviewer en un reporte que no te presenta ese inconveniente.

Vas a las configuraciones... (según imagen), y nos envías un pantallazo de la versión.

[Germán Fabricio Valdez]

hola pablo

tenes esta instruccion de configuracion de reportes

SET REPORTBEHAVIOR 90

[Germán Fabricio Valdez]

y la version de foxypreview es anterior

la ultima es z36

El sábado, 19 de junio de 2021 a las 10:42:02 UTC-3, pabloc...@gmail.com escribió:

[HernanCano]

Germán:

La última "estable" es la v299z38 (Feb 06, 2021) pero ya está (para pruebas) la z41 (May 07, 2021).

La v299z36 es de Marzo-30-2017.

[HernanCano]

Douglas:

Veo que utilizars la característica "RELEASE" de FoxyPreviewer.

Te recomiendo ajustar los comandos que tienes a esta propuesta:

local M.cFRX, M.cPDF

M.cPDF = "c:\Temp\Reporte.pdf"

M.cFRX = "comp_expensas_cliente.frx"

   

select TuTabla

if reccount()=0 then

   Messagebox("No hay información que mostrar, imprimir o lo que sea.......",0+64,"Información")

else

   local M.cCad

   M.cCad = ""

   do FoxyPreviewer.app

   Report Form (M.cFRX) Object Type 10 To file (M.cPDF) Nodialog

   If Not _Screen.oFoxyPreviewer.lSaved

      M.cCad = "Archivo PDF no fue generado...."

   Endif

   do FoxyPreviewer.app with "RELEASE"

   If Not empty(M.cCad)

      Messagebox(M.cCad,0+48,"Alerta")

   Endif

endif

**

El sábado, 19 de junio de 2021 a la(s) 11:36:20 UTC-5, DSánchez escribió:

[Germán Fabricio Valdez]

hola hernan,  ya estan las versiones: 36 (la mas usada), 38(ultima estable),y la 41 (beta)

32 y 64 bits

si bien no se que ventajas tienen una de otras

[Germán Fabricio Valdez]

Hola hernan.  Sabes de algun cambio importante . correccion. O mejoras. Vi el historico

--

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/JL3-hGLjjRk/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/5c1f36ba-55ef-47f3-be04-5e471ee50a0en%40googlegroups.com.

[HernanCano]

Por favor, Germán:

Si viste el histórico, decide qué es útil para vos.

Para mí había propiedades que no funcionaban y ahora sí; se mejoró algo al juntar reportes.

[Dsan]

Hola HernanCano

Asi lo hago pero para ejemplo la idea era mostrar como lo hago de una manera mas facil y validar con 

_Screen.oFoxyPreviewer.lSaved Si se creo el archivo realmente no uso if file()

Saludos

DS 

--

Visita el 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/d7a7af72-6759-455e-9f77-0784e2c8251bn%40googlegroups.com.

[Germán Fabricio Valdez]

hola hernan

la version 41.  no funciona con vfp9

solo vfpa32 y vfpa64

no se la causa

[HernanCano]

Mi objetivo era mostrar que el "do FoxyPreviewer" (y su release) estuvieran dentro del ELSE mayor.....

Pero bien, bien.....

El lunes, 21 de junio de 2021 a la(s) 09:46:31 UTC-5, DSánchez escribió:

Hola HernanCano

Asi lo hago pero para ejemplo la idea era mostrar como lo hago de una manera mas facil y validar con 

_Screen.oFoxyPreviewer.lSaved Si se creo el archivo realmente no uso if file()

Saludos

DS 

[HernanCano]

Uy, Germán !!!

Acabo de ejecutar mi programa con FoxyPreviewer-v41 (el original de César, descargado desde el portal de  FoxyPreviewer) con VFP9 (x86 evidentemente) y funciona bien, como debe ser: tanto la interfaz como la generación de PDF (que es lo que nos ha puesto problema al cambiar a x64).

Así mismo ejecuté mi programa con FoxyPreviewer-v41 modificado por mí con un par de ajustes, con VFP9 (x86 evidentemente) , e igualmente funciona bien, como debe ser: y también tanto la interfaz como la generación de PDF.

¿Cuál es tu fuente para concluir/decir que "FoxyPreviewer-v41 (el original de César, descargado desde el portal de  FoxyPreviewer) no funciona en VFP9"? ¿Tienes un escenario particular para que éso pase, o es definición absoluta para cualq aplicación desarrollada en VFP9-x86?

¿Acaso César lo dice en alguna parte (no lo he visto), que él lo compiló para x64?

--------------------------------------------

En un momento lo pruebo con VFPA..............

--------------------------------------------

[Germán Fabricio Valdez]

gracias hernan por colaborar

el error era mio

la v41 si funcion con vfpa9 vfpa10 32, vfpa10 64

y se puede descargar nuevamente

[HernanCano]

Okeys....

Acabo de ejecutar mi aplicación en Win10-x64 con VFPA-x64 y funciona bien tanto la interfaz como generar PDF:

(no tengo VFPA9-x86, ni VFPA-x86, pero ya aclaraste que hubo un impasse en tu escenario).

Listo, Germán. Todo bien.

Seguimos en contacto.

El lunes, 21 de junio de 2021 a la(s) 15:16:19 UTC-5, gfva... escribió:

gracias hernan por colaborar

el error era mio

la v41 si funcion con vfpa9 vfpa10 32, vfpa10 64

y se puede descargar nuevamente