FoxPro/Visual FoxPro - Problema con FoxyPreviewer e Imagenes

 
Vista:

Problema con FoxyPreviewer e Imagenes

Publicado por Myriam (4 intervenciones) el 16/09/2020 23:29:16
Hola,
Estoy usando FoxyPreviewer con reportes que tienen imagenes. Si tengo el vfp9 instalado funciona bien pero cuando lo ejecuto en una pc que solo tiene las librerías, la imagen no sale.

Mi código es:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
parameters tcnombrefrx, tcnombrepdf
#define key_enter             chr(13)
#define msg_icono_error       16
#define msg_icono_informacion 64
 
local llresultado, loinforme
llresultado = .f.
 
LOCAL loinforme as "PreviewHelper" OF "FoxyPreviewer.App"
loinforme = createobject("PreviewHelper")
 
IF !EMPTY(PUBLI_FoxyPreview) AND vartype(loinforme) == "O" then
	WITH _Screen.oFoxyPreviewer
		.cLanguage = 'ESPAÑOL'
		.lPrinted = .T.
	ENDWITH
	set reportbehavior 90
 
	tcnombrefrx = alltrim(tcnombrefrx)
	tcnombrepdf = alltrim(tcnombrepdf)
	tcnombrepdf = tcnombrepdf + iif(right(tcnombrepdf, 4) <> ".PDF", ".PDF", "")
	try
		llresultado = .t.
		report form (tcnombrefrx) object type 10 to file (tcnombrepdf) preview
	catch
		llresultado = .f.
	endtry
 
ENDIF
loinforme = .null.
release loinforme

Si agrego el FoxyGetImage.prg al proyecto me sale el error "Error Interno".
Agradecería mucho si me pueden ayudar.

Myriam
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problema con FoxyPreviewer e Imagenes

Publicado por Adalberto Pérez Reyes (1 intervención) el 07/08/2021 23:31:44
Me pasó algo parecido, estos días y lo resolví situando la imagen, en la carpeta del exe. Sigo buscando otra solución
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 109
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Problema con FoxyPreviewer e Imagenes

Publicado por elhabraque (59 intervenciones) el 16/09/2021 22:27:48
Supongo que tendrás que pasarle la ruta completa de la imagen, no sólo el nombre.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil
Val: 147
Bronce
Ha mantenido su posición en FoxPro/Visual FoxPro (en relación al último mes)
Gráfica de FoxPro/Visual FoxPro

Problema con FoxyPreviewer e Imagenes

Publicado por zarlu (79 intervenciones) el 17/09/2021 18:30:22
Buenos días Myriam!

Te hago unos comentarios...

-El autor de Foxypreviewer ya no recomienda usar el modo "completo" tal cual tú lo haces.
Recomienda el modo simplificado, Algo así como esto:

DO LOCFILE("FoxyPreviewer.App")
_Screen.oFoxyPreviewer.cTitle="Título de mi informe"
_Screen.oFoxyPreviewer.nWindowState=2
_Screen.oFoxyPreviewer.nDockType=0
_Screen.oFoxyPreviewer.cLanguage = "SPANISH"
_Screen.oFoxyPreviewer.nShowToolBar=1
_Screen.oFoxyPreviewer.nPrinterPropType=1
REPORT FORM informe1 preview
DO FOXYPREVIEWER.APP WITH "Release"

-La última versión gratis la puedes bajar de su página

-A manera de prueba corre tu informe sin el Foxypreviewer para checar si también da problemas

Suerte
zarlu
Chetumal, Quintana Roo, México
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar